Aide sur VBA Excel (2007)

Résolu
Manshiz Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je viens de créer un UserForm avec des TextBox et les boutons Valider et Quitter.

J'aimerais que, après avoir saisi les données, suite au clic sur Valider, les TextBox soient effacées.

Voici le code:

Private Sub cmdValider_Click()
Sheets("Liste").Range("A65536").End(xlUp).Offset(1, 0).Value = Nom.Value
Sheets("Liste").Range("B65536").End(xlUp).Offset(1, 0).Value = Prénom.Value
Sheets("Liste").Range("C65536").End(xlUp).Offset(1, 0).Value = Adresse.Value
Sheets("Liste").Range("D65536").End(xlUp).Offset(1, 0).Value = Code_Postal.Value
Sheets("Liste").Range("E65536").End(xlUp).Offset(1, 0).Value = Ville.Value
Sheets("Liste").Range("F65536").End(xlUp).Offset(1, 0).Value = Téléphone.Value
Sheets("Liste").Range("G65536").End(xlUp).Offset(1, 0).Value = Natel.Value
End Sub
--------------------------------
J'ai trouver ceci sur le Web, mais comme je débute en VBA Excel,
je ne sais pas comment compiler et si il est correct.

foreach (Control c in this.Controls)
if(c is TextBox) c.Text = String.Empty;

J'aimerais incorporer deux images dans le formulaire.

Pourriez-vous me donner un coup de main?
Merci d'avance

A voir également:

3 réponses

Réponse 1 / 3
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
Bonjour,

Tu peux ajouter ces lignes juste avant le End Sub 

For Each c in this.Controls
   If TypeName(c) = "TextBox" Then
      c.Value = ""
   End If
Next c


@+
0
Réponse 2 / 3
Manshiz Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   10
 
Bonjour Gord,

je viens de tester, mais il y a un bug.
0
Réponse 3 / 3
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
Essaies de remplacer this par le nom de ton UserForm (UserForm1 ou autre) ou par Me.
Sinon, essaie de détailler ce que tu entends par bug.
0
Manshiz Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   10
 
Super, ça fonctionne cette fois.

Merci beaucoup Gord.

Good Looking!
0
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289 > Manshiz Messages postés 184 Date d'inscription   Statut Membre Dernière intervention  
 
Je t'en prie.
Penses à mettre en résolu :-)
0