pb de concatenation

[steph]

Bonjour à toutes et tous,

j'ai par exemple 3 listes box qui s'appelle : LsB1,LsB2 et LsB3.

Je veux les vider en utilisant LsB1.clear. Jusque là tout va bien.
Mais est-il possible d'avoir une concatenation du genre : LsB & i &.clear ?
Ce qui me permetterais de les vider avec une simple boucle.

Merci.

Steph

 

[POLO]

Moi, je ne vois qu'une ruse du style :

Sub macro1()
LsB1.Clear
End Sub

Sub macro2()
LsB2.Clear
End Sub
Sub macro3()
LsB3.Clear
End Sub


Sub boucle()
For i = 1 To 3
Application.Run ("LsB" & i)
Next i
End Sub

 

[steph]

OK, merci pour ta réponse POLO.

Mais j'avoue ne pas comprendre :"Application.Run ("LsB" & i)"

Steph

 

[POLO]

Mille excuses !
j'étais au boulot et dans la précipistation, j'ai merdé. Désolé, faute de frappe...

je rectifie:
-------------
(l'idée est de lancer avec une boucle 3 macros initialisant les trois listes)

Sub macro1()
LsB1.Clear
End Sub

Sub macro2()
LsB2.Clear
End Sub

Sub macro3()
LsB3.Clear
End Sub


Sub boucle()
For i = 1 To 3
Application.Run ("macro" & i)
Next i
End Sub

 

[steph]

AAAAAAAAAAHHHHHHHHHHHH

Ok merci POLO, là c'est très clair.

Bon courage pr le taf.

Steph

 

[Ti]

non non, il y a bien plus simple :

Dim Cntrl

For Each Cntrl in Array(Lsb1, Lsb2, Lsb3)
Cntrl.Clear
Next Cntrl

 

[steph]

Merci Ti,

C'est une methode extra qui va me permettre de faire de la vrai programmation et non une usine à gaz, car de ListBox j'en ai 34... et je ne fais pas que des clear.

Merci encore, Bye

Steph