Sujet Précédent Sujet Suivant

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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 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 684
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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
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
Excel VBA : Derniere colonne utilisée
Eaheru -
Darnc -

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

15 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses