Afficher les mois de l'année

Résolu

dudulleray -
dudulleray - 13 mai 2012 à 06:39

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

Afficher la suite

A voir également:

Afficher les mois de l'année
Afficher appdata - Guide
Afficher mot de passe wifi android - Guide
Afficher taille dossier windows - Guide
Afficher les modifications word - Guide
600h en mois ✓ - Forum Bureautique

2 réponses

Réponse 1 / 2

eriiic Messages postés 25847 Statut Contributeur 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

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

Réponse 2 / 2

eriiic Messages postés 25847 Statut Contributeur 7 279

Re,

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

eric

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

Discussions similaires

Durée d'une diapositive animée

Afficher toutes les lignes masquées excel

convertir des trimestres en ans mois et jours

remettre toutes les colonnes et les lignes masquées

Formule Excel pour afficher les mois (chiffres) en lettre

Votre réponse

Discussions similaires