Vider plusieurs textbox VBA

Résolu/Fermé
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 - 11 avril 2011 à 19:49
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 11 avril 2011 à 23:13
Bonjour,

je voudrais que lorsque j'appui sur un commandbouton d'un userform toutes les textbox soient vidées

quel est le code VBA pour ?

merci pour votre aide



2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 718
11 avril 2011 à 22:21
bonjour

Si tes textbox ont gardé le nom par défaut, ceci devrait fonctionner, sinon tu adapte avec tes noms : 

Dim ctr As Object
For Each ctr In Me.Controls
    If ctr.Name Like "TextBox*" Then ctr.Value = ""
Next
4
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 257
Modifié par eriiic le 11/04/2011 à 23:14
Bonsoir tout le monde,

Tu peux aussi te baser sur le type de l'objet pour ne pas être tributaire des noms : 
Private Sub CommandButton1_Click() 
    Dim Ctrl As Control 
    For Each Ctrl In Me.Controls 
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Text = "" 
    Next Ctrl 
End Sub

eric
4

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Excel VBA : Derniere colonne utilisée
Eaheru -
Darnc -

12 réponses
La corbeille de Watsap
mariam-j -
mariam-j -

6 réponses
[VBA] format de date dans textbox
antic80 -
nabilone -

15 réponses