Suite avec Label

[ifi77]

Bonjour @ tous,

une petite demande dont la réponse parait simple mais qu'en tant que novice je n'arrive pas à trouver.
J'essaye de faire une suite à partir de cela:

Me.Controls("label229").Caption = Sheets("statistique").Range("c4")
Me.Controls("label230").Caption = Sheets("statistique").Range("c5")
Me.Controls("label231").Caption = Sheets("statistique").Range("c6")
Me.Controls("label232").Caption = Sheets("statistique").Range("c7")

J'essaye cele mais sans succés:

Dim a, i As Variant
a = 4
For i = 229 To 232
Me.Controls("label(i)").Caption = Sheets("statistique").Range("c (a+1)")
next i

si quelqu'un peut morienter...

D'avance merci

@+

 

[Pierrot93]

Re : Suite avec Label

Bonjour,

essaye ceci :

Dim i As Byte
For i = 4 To 7
Me.Controls("label" & 225 + i).Caption = Sheets("statistique").Range("C" & i)
Next i

bon après midi
@+

 

[pierrejean]

Re : Suite avec Label

bonjour ifi77

teste:

Dim a, i As Variant
a = 4
For i = 229 To 232
Me.Controls("label" & i).Caption = Sheets("statistique").Range("c" & a)
a=a+1
next i

edit: Salut Pierrot

 

[ifi77]

Re : Suite avec Label

Bonjour Pierre jean, bonjour pierrot,

merci pour vos réponses, les 2 fonctionnent bien évidemment, j'ai utilisé la formule de pierrot car plus courte.

Encore Merci...

@+