|
 |
 |
 |
| |
 Effacer le contenu des ComboBox d'une feuille
Public Sub EffaceToutesComboBox(NOM As Form)
Dim vControl
For Each vControl In NOM.Controls
If TypeOf vControl Is ComboBox Then
vControl.Text = ""
End If
Next
End Sub
Pour effacer le contenu de toutes les ComboBox de la Form2 :
EffaceToutesComboBox Form2
|
|
 |
 |
 |
|