faire une boucle en VBA

[pascal21]

bonjour à tous
étant toujours aussi nul avec les boucles, je viens vous demander de l'aide
j'aimerais simplifier ce bout de code

Label2.Caption = ActiveSheet.Range("b4").Value
Label3.Caption = ActiveSheet.Range("b5").Value
Label4.Caption = ActiveSheet.Range("b6").Value
Label5.Caption = ActiveSheet.Range("b7").Value
Label6.Caption = ActiveSheet.Range("b8").Value
Label7.Caption = ActiveSheet.Range("b9").Value
etc....

j'ai en fait 31 labels
merci de votre aide

 

[Pierrot93]

Re : faire une boucle en VBA

Re,

regarde peut être ceci :

Dim i As Byte
For i = 1 To 31
    Me.Controls("Label" & i).Caption = Range("B" & i + 2).Value
Next i

@+

 

[pascal21]

Re : faire une boucle en VBA

merci pierrot c'est parfait

 

[pascal21]

Re : faire une boucle en VBA

merci Pierrot c'est parfait