Aide sur VBA Excel (2007) Résolu

Question

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

Gord21 · Answer

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

@+

Manshiz · Answer

Bonjour Gord,

je viens de tester, mais il y a un bug.

Gord21 · Answer

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.

Aide sur VBA Excel (2007)

3 réponses

Newsletters