caption de Label = cellule

[Hélène]

Bonsoir cher Forum,

je souhaite faire un userform dans lequel il y aura entre autres des labels.

j'ai eu beau chercher dans les archives, je n'ai pu trouvé une solution à mon pb:
- quel code mentionner en vba pour pouvoir donné à mes labels qui sont numérotés de 1 à 9 pour que chacun récupère respectivement la valeur d'une cellule se trouvant dans la plage (b1:j1)?

j'ai utilisé le code suivant mais mes labels récupèrent les valeurs de j1 à r1?!?!

voici le code:


Private sub Userform_initialize()
Dim Cell As Range
Dim i As Byte

For i = 1 to 9
For Each Cell In Sheets('Feuil1').Range('B1:J13)
Userform1.controls('Label'&1).caption = Cell (1,i)
Next Cell
Next i


Merci d'avance pour votre aide.

Hélène

 

[JeanMarie]

Bonsoir Helene

Essaye ceci

Private sub Userform_initialize()
Dim i As Byte 
For i = 1 to 9  
Userform1.controls('Label'&1).caption = Sheets('Feuil1').Cells (1,i+1) 
Next i

@+Jean-Marie

 

[Hélène]

Bonsoir Jean-Marie

c'est fantastique!!!

en utilisant ton code, j'ai réussi à obtenir ce que je voulais!

merci.

ci-après, le code finalement utilisé:

Private sub Userform_initialize()
Dim i As Byte
For i = 1 to 9
Userform1.controls('Label'&i).caption = Sheets('Feuil1').Range('b1:j1).Cells (1,i)
Next i


à bientot