optimiser un code vba avec 10 labels

[pascal21]

 Label4.Caption = "Pointages  " & Sheets(1).Range("b1").Value
Label5.Caption = "Pointages  " & Sheets(2).Range("b1").Value
Label6.Caption = "Pointages  " & Sheets(3).Range("b1").Value
Label7.Caption = "Pointages  " & Sheets(4).Range("b1").Value
Label8.Caption = "Pointages  " & Sheets(5).Range("b1").Value
Label9.Caption = "Pointages  " & Sheets(6).Range("b1").Value
Label10.Caption = "Pointages  " & Sheets(7).Range("b1").Value
Label11.Caption = "Pointages  " & Sheets(8).Range("b1").Value
Label12.Caption = "Pointages  " & Sheets(9).Range("b1").Value
Label13.Caption = "Pointages  " & Sheets(10).Range("b1").Value
'
Label22.Caption = Sheets(11).Range("v1").Value
Label23.Caption = Sheets(12).Range("v1").Value
Label24.Caption = Sheets(13).Range("v1").Value
Label25.Caption = Sheets(14).Range("v1").Value
Label26.Caption = Sheets(15).Range("v1").Value
Label27.Caption = Sheets(16).Range("v1").Value
Label28.Caption = Sheets(17).Range("v1").Value
Label29.Caption = Sheets(18).Range("v1").Value
Label30.Caption = Sheets(19).Range("v1").Value
Label31.Caption = Sheets(20).Range("v1").Value

bonsoir
comment faire pour optimiser ce code dans un usf?
j'ai penser à quelque chose comme

for i = 4 to 13
label (i).caption =sheets (i-13).range etc.........
etc...

mais je n'y arrive pas
pouvez-vous m'aider merci

 

[Guest]

Re : optimiser un code vba avec 10 labels

Bonjour Pascal,

Pour la première boucle:

For i =1 to 10
Me.controls("Label" & i+3).Caption = "Pointages " & Sheets(i).Range("b1").Value
Next

Pour la deuxième

For i= 11 to 20
Me.Controls("Label" & i+11).Caption = Sheets(i).Range("v1").Value
Next i

A+

 

[pascal21]

Re : optimiser un code vba avec 10 labels

bonsoir Hasco
c'est bien ça
ça fonctionne
merci
juste une autre question de curiosité
est-ce que ça change quelque chose au niveau du poids ou de la rapidité de excel

 

[jeanpierre]

Re : optimiser un code vba avec 10 labels

Bonsoir Pascal, Hasco,

Au niveau du poids, ici, un peu à peine, pour la rapidité, je pense que oui, mais à tester tout de même, mais, là aussi, ce sera petit.

C'est seulement plus propre comme écriture.

Bon week.

Jean-Pierre

 

[pascal21]

Re : optimiser un code vba avec 10 labels

bonsoir jean pierre
merci pour l'explication
bonne soirée