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