Afficher les mois de l'année

Résolu/Fermé

dudulleray - 12 mai 2012 à 11:11
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

A voir également:

Afficher les mois de l'année
Afficher mot de passe wifi android - Guide
Afficher les dossiers cachés - Guide
Afficher mot de passe wifi - Guide
Chanson i love you année 70 ✓ - Forum Musique / Radio / Clip
Afficher mot de passe - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
12 mai 2012 à 12:43

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
12 mai 2012 à 13:36

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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
12 mai 2012 à 20:41

Re,

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

eric

dudulleray
13 mai 2012 à 06:39

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

convertir des trimestres en ans mois et jours

Pix

Afficher toutes les lignes masquées excel

Formule Excel pour afficher les mois (chiffres) en lettre

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters