optimiser un code vba avec 10 labels

pascal21 · 15 Novembre 2008

Code:

 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

Code:

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 · 15 Novembre 2008

Re : optimiser un code vba avec 10 labels

Bonjour Pascal,

Pour la première boucle:

Code:

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

Pour la deuxième

Code:

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

A+

pascal21 · 15 Novembre 2008

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 · 15 Novembre 2008

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 · 15 Novembre 2008

Re : optimiser un code vba avec 10 labels

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

optimiser un code vba avec 10 labels

pascal21

XLDnaute Barbatruc

Guest

Guest

pascal21

XLDnaute Barbatruc

jeanpierre

Nous a quitté

pascal21

XLDnaute Barbatruc

Discussions similaires

optimiser un code vba avec 10 labels

pascal21

XLDnaute Barbatruc

Guest

Guest

pascal21

XLDnaute Barbatruc

jeanpierre

Nous a quitté

pascal21

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency