for next dans macro dans userform

[pwolff]

Bonjour à tous.
je souhaite lors d'une modification d'une combobox dans un userform modifier les valeurs saisies dans 20 textbox
mon humble niveau ma conduit à écrire 20 lignes :
txtbox1.Value = ""
txtbox2.Value = ""
... etc

J'aimerais bien utiliser la formule for next et j'arrive à l'écriture suivante :

Dim boite As TextBox
For boite = txtbox1 To 20
boite.Value = ""
Next boite

Evidemment, ça aurait été trop simple.
merci si quelqu'un pouvait m'aider

 

[CHALET53]

Re : for next dans macro dans userform

Essaie ceci dans la boucle :

Me.Controls("Textbox" & boite)=""



ps : dim boite as integer

 

[gilbert_RGI]

Re : for next dans macro dans userform

bonjour

c'est presque ça

dim boite as integer

for boite = 1 to 20
me.userform1.Me.Controls("TextBox" & boite)=""
next

ça devrait le faire🙂

 

[Dull]

Re : for next dans macro dans userform

Salut pwolff, le Forum

Peut-être comme cela sans renommer tes TextBoxes ce qui aurait été plus facile

Dim i As Byte
For i = 1 To 20
Me.Controls("TextBox" & i) = ""
Next i

Edition: Salut Gilbert🙂, Chalet53🙂

Bonne Journée

 

[pwolff]

Re : for next dans macro dans userform

Merci. Voici l'écriture qui marche :

Dim i As Integer

For i = 1 To 20

Me.Controls("txtbox" & i) = ""

Next i


Merci infiniment

 

[Si...]

Re : for next dans macro dans userform

salut

déclaration pour déclaration, autant choisir une déclaration adéquate.

Dim i As Byte
For i = 1 To 20
  Me("txtbox" & i) = "" 'ça passe aussi et c'est plus court
Next

 

[Dull]

Re : for next dans macro dans userform

Re le Fil, 🙂

salut
déclaration pour déclaration, autant choisir une déclaration adéquate.
...

Heu...Jenetelefaitpasdire...Mon ami🙂

Bonne Journée