pb de concatenation

P

POLO

Guest

• 30 Juin 2003

• #2

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

 

Vote positif 0 Vote négatif

S

steph

Guest

• 30 Juin 2003

• #3

OK, merci pour ta réponse POLO.

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

Steph

 

Vote positif 0 Vote négatif

P

POLO

Guest

• 1 Juillet 2003

• #4

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

 

Vote positif 0 Vote négatif

S

steph

Guest

• 2 Juillet 2003

• #5

AAAAAAAAAAHHHHHHHHHHHH

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

Bon courage pr le taf.

Steph

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 2 Juillet 2003

• #6

non non, il y a bien plus simple :

Dim Cntrl

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

 

Vote positif 0 Vote négatif

S

steph

Guest

• 2 Juillet 2003

• #7

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

 

Vote positif 0 Vote négatif