Boucle sur NAME

JPM · 10 Mars 2003

Salut le forum

Mon probléme :

Dans un userform j'ai 10 controles Labels avec un name du type LblN1J1
NblN1J2, NblN1J3 .... Etc
Est-il possible de raccourcir le code pour définir une propriété en utilisant une boucle du style
i=1
do while i<11
NblN1J & i.Value = Range("A" & i)
i = i + 1
loop
Cette boucle ne fonctionne pas , mais si quelqu'un avait une solution je suis prenneur.

Merci d'avance

A+

michael · 10 Mars 2003

JPM:
Tu ne peux pas concatener les noms directement comme cela.
Essaye plutôt quelque chose de ce type :

Dim sName As String
Dim sRange As String

i=1
do while i<11
sName = "NblN1J" & i
Set MyLabel = UserForm1.Controls.Item(sName) '<-- Ici change le nom
'de ton UserForm
MyLabel = Range(sRange)
i = i + 1
loop
Set MyLabel = Nothing

Je suis pas sûr que ca marche en l'état, mais ce doit être la bonne piste.
Michael

JPM · 11 Mars 2003

Merci beaucoup pour le coup de main

Je essayer ça tout de suite

A+

Boucle sur NAME

JPM

Guest

michael

Guest

JPM

Guest

Discussions similaires