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