Sujet Précédent Sujet Suivant

Aide sur VBA Excel (2007)

Résolu/Fermé
Manshiz Messages postés 184 Date d'inscription samedi 21 janvier 2006 Statut Membre Dernière intervention 18 août 2012 - 7 mars 2010 à 13:20
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 7 mars 2010 à 18:58
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 samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
7 mars 2010 à 15:35
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 samedi 21 janvier 2006 Statut Membre Dernière intervention 18 août 2012 10
7 mars 2010 à 17:32
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 samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289
7 mars 2010 à 17:47
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 samedi 21 janvier 2006 Statut Membre Dernière intervention 18 août 2012 10
7 mars 2010 à 18:55
Super, ça fonctionne cette fois.

Merci beaucoup Gord.

Good Looking!
0
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 289 > Manshiz Messages postés 184 Date d'inscription samedi 21 janvier 2006 Statut Membre Dernière intervention 18 août 2012
7 mars 2010 à 18:58
Je t'en prie.
Penses à mettre en résolu :-)
0