Afficher les mois de l'année
Résolu
dudulleray
-
dudulleray -
dudulleray -
Bonjour a toutes et tous, forum bonjour
Je souhaiterai svp dans l'UserForm ou se trouve des Labels de 276 à 287 voir afficher dans ces 12 Labels les 12 mois de l'année en cours
Mais je bidouille avec le code ci-dessous, si quelqu'un veut bien me le modifier svp
Merci de votre temps et de votre aide
Bon W-end a tous
Cdlt
Je souhaiterai svp dans l'UserForm ou se trouve des Labels de 276 à 287 voir afficher dans ces 12 Labels les 12 mois de l'année en cours
Mais je bidouille avec le code ci-dessous, si quelqu'un veut bien me le modifier svp
Merci de votre temps et de votre aide
Bon W-end a tous
Cdlt
'************** ON AFFICHE LE NOM DE CHAQUE MOIS DANS LABELS 276 à 287
Dim I As intéger
For I = 276 To 287
.Controls("Label" & I).Caption = WorksheetFunction.Proper(Format(Date, "mmm yyyy"))
Next I
2 réponses
-
Bonjour,
essaie qcq chose comme ça :Dim i As Long For i = 1 To 12 Controls("Label" & i + 275) = Format(DateSerial(2012, i, 1), "mmm yyyy") Next i
eric-
Salut eriiic,
Merci pour ta réponse ainsi que pour la modification, ça fonctionne bien.
j'ai déja un Combobox fait avec ce code ci-dessous qui fonctionne et
je souhaiterai svp que lorsque je change d'année en cliquant dans la combo que cela modifie
également l'année dans le code que tu m'a modifier.
cela marche dans un autre de mes programmes mais la c'est différent et ça marche pas.
Merci de ton aide je te souhaite une bonne après midi
Cdlt
For I = 2012 To 2025 ComboBox1.AddItem I Next I ComboBox1.Text = Year(Now)
'-------------------------------------------------------------------------------- J'ai mis le code avec première lettre du mois en majuscule, si ça peut servir a quelqu'un. For I = 1 To 12 Controls("Label" & I + 275) = WorksheetFunction.Proper(Format(DateSerial(2012, I, 1), "mmm yyyy")) Next I
-
-
Re,
Controls("Label" & i + 275) = Format(DateSerial(ComboBox1, i, 1), "mmm yyyy")
tout simplement.
eric
