Vider plusieurs textbox VBA Résolu

Question

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


Configuration: Windows 2003 / Firefox 3.0.10

gbinforme · Accepted Answer

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

eriiic · Answer

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

Vider plusieurs textbox VBA

2 réponses

Discussions similaires

Newsletters