Optimiser un code

Fermé
vieuxray - 7 déc. 2013 à 19:16
Bonsoir a toutes et tous, Forum bonsoir


Sous Excel 2007 VBA

J'ai réaliser ce code pour faire un affichage horizontal dans 3 Labels

Label483= Année
2013-----2013-----2013-----2013

Label467= Nom des mois
Janv-----Févr-----Mars-----Avr

Label55= N°s des mois
1-----2-----3-----4

les tirets représente des espaces

Je souhaiterai svp optimiser mon code afin d'éviter les répètitifs

Merci a vous pour votre aide et votre temps, bonne soirée a vous

Cordialement Raymond


For i = 2012 To 2030
ComboBox1.AddItem i
Next i
ComboBox1.Text = Year(Now)

Dim Sp As Long
Sp = 19 'janvier

For i = 1 To 12

If i = 2 Then Sp = 22 'février
If i = 3 Then Sp = 26 'mars
If i = 4 Then Sp = 20 'avril
If i = 5 Then Sp = 25 'mai
If i = 6 Then Sp = 23 'juin
If i = 7 Then Sp = 22 'juillet
If i = 8 Then Sp = 28 'aout
If i = 9 Then Sp = 22 'septembre
If i = 10 Then Sp = 21 'octobre
If i = 11 Then Sp = 27 'novembre
If i = 12 Then Sp = 22 'décembre

Label483.Caption = Label483.Caption & Space(Sp) & Format(DateSerial(ComboBox1, i, 1), "yyyy")
Next i

'*** AFFICHAGE DES N°s ET DU NOM DES MOIS DE L'ANNEE
Dim Numéro As String, Mois As String

Numéro = " 1" & Space(11) & "2" & Space(11) & "3" & Space(11) & "4" & Space(11) & "5" & Space(11) & "6" & Space(11) & "7" & Space(11) & "8" & Space(11) & "9" _
& Space(11) & "10" & Space(9) & "11" & Space(9) & "12"

Mois = " Janv" & Space(6) & "Févr" & Space(7) & "Mars" & Space(6) & "Avr" & Space(8) & "Mai" & Space(7) & "Juin" & Space(7) & "Juil" & Space(8) & "Aoùt" & Space(6) _
& "Sept" & Space(7) & "Oct" & Space(8) & "Nov" & Space(7) & "Déc"

Label455.Caption = Numéro
Label467.Caption = Mois