Vider plusieurs textbox VBA

Résolu
medbo Messages postés 551 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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   Statut Contributeur Dernière intervention   4 725
 
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   Statut Contributeur Dernière intervention   7 276
 
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

La corbeille de Watsap
mariam-j -
mariam-j -

6 réponses
"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
Comment supprimer de l' espace dans Stockage "autres" Samsun
Sen1015 -
Pierr10 -

2 réponses
absorbeur d'encre plein
crock3140 -
Frim77 -

20 réponses