Afficher les mois de l'année

Résolu
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 

'************** 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
A voir également:

2 réponses

Réponse 1 / 2
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 279
 
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
0
dudulleray
 
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
0
Réponse 2 / 2
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 279
 
Re,

Controls("Label" & i + 275) = Format(DateSerial(ComboBox1, i, 1), "mmm yyyy")
tout simplement.

eric
0
dudulleray
 
Bonjour Eric,

Merci pour ta réponse, le code fonctionne bien, j'étais loin de penser a coder de cette façon

mais le résultat est la et c'est l'essentiel.

Encore merci a toi , je te souhaite un très bon Dimanche.

Cordialement Raymond
0

Discussions similaires

Durée d'une diapositive animée
bibibibi99 -
bibibibi99 -

2 réponses
Afficher toutes les lignes masquées excel
livlarsen -
Mehdiiii -

27 réponses
convertir des trimestres en ans mois et jours
Cambouie44 -
Cambouie44 -

6 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses
Formule Excel pour afficher les mois (chiffres) en lettre
castelc -
-2-2 -

23 réponses