Discussion :

[Didpa]

Bonjour

Voilà, je ne sais pas me servir des boucles, et j'aimerais en executer une afin d'effacer des textbox (clearcontent)
Avec un commandbutton, lors du click, et que les informations sont transmise, a ma feuille je voudrais vider la textbox1, puis la 2, la 3 et comme ça jusqu'a 25.
voilà, je me doute que c'est tout simple, mais bon.

Cordialement

[mercatog]

Meilleur moyen de commencer ici

[LE VIEUX]

bonjour,
puis après avoir bien intégré cet exellent tuto.

comme le parcours de textbox n'est pas forcément évident regardes ce que tu peux composer avec cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub MonBouton_Click()
Dim obj As OLEObject
 
 For Each obj In ActiveSheet.OLEObjects
 
     If TypeOf obj.Object Is MSForms.TextBox Then
      'obj.Object.Text = ""
      'ou
      'obj.Object = Null
 
 End If
 Next obj
 
End Sub