Suite avec Label

ifi77 · 6 Juin 2011

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 · 6 Juin 2011

Re : Suite avec Label

Bonjour,

essaye ceci :

Code:

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 · 6 Juin 2011

Re : Suite avec Label

bonjour ifi77

teste:

Code:

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 · 9 Juin 2011

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...

@+

Suite avec Label

ifi77

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

ifi77

XLDnaute Occasionnel

Discussions similaires

Suite avec Label

ifi77

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

ifi77

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency