Bonjour , tous les AMIS du forum ,
J'ai un USF ds lequel j'ai 10 TextBox .... Un bouton "SUPPRIMER" , je cherche à effacer toutes les données présentent ds les TextBox en même temps ,
pour effacer une seule TextBox je fais par Exemple Nom.Value = "" mais ne trouve la solution pour effacer toutes le autres.
Merci de votre aide.
GDS35(GéGé)
Avec ce code tous les texbox de l'userform seront traités
Code:
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is MSForms.TextBox Then
C.Object.Value=vbNullString
End If
Next C
EDITION :Une petite question pour les VBAistes du forum
Cette variante est-elle toujours fonctionnelle ?
Code:
Private Sub CommandButton1_Click()
Dim C As Control
For Each C In Me.Controls
C.Object.Value = _
IIf(TypeOf C Is MSForms.TextBox, vbNullString, C.Object.Value)
Next C
End Sub