liste mois dans un userform

[seb83100]

Bonjour,

J'ai crée un userform avec une combobox qui comprend une liste des 12 mois.

Je sélectionne dans la liste un mois et je souhaite après avoir cliqué sur le bouton OK, que s'affiche le premier jour du mois dans la cellule D3 et que le dernier jour du mois s'affiche dans la cellule E3.

par avance merci de votre aide

ps : ci-joint le fichier

 

[camarchepas]

Re : liste mois dans un userform

Bonjour ,


Voici une solution en fonction de ce que j"ai compris :

 

[seb83100]

Re : liste mois dans un userform

merci beaucoup camarchepas c'est exactement ce que je cherchais.
bon week end

 

[Paritec]

Re : liste mois dans un userform

Bonjour Nono seb le forum
moi j'ai fait un peu différent pour inclure les années si ton fichier en a besoin ??
comme c'est fait je le poste tout de même
a+
Papou

 

[ChTi160]

Re : liste mois dans un userform

Bonjour Seb83100
Bonjour Camarchepas
Bonjour le Fil,Le Forum

Une autre version possible, parmi tant d'autres Lol

Le Fichier :Regarde la pièce jointe Liste_Mois_V2.1.xlsm

OOOOuuuuppsss pas vu Paritec ,Bonjour à toi !!!!!!

Bonne Journée
Amicalement
Jean Marie(Chti160)

 

[seb83100]

Re : liste mois dans un userform

merci Paritec, merci ChTi160 pour vos propositions

 

[camarchepas]

Re : liste mois dans un userform

Re ,
@ ChTi160 ; Bonjour

@ Paritec Bonjour , j'ai emprunté ton fichier pour modifier mon code pour l'année .

Cela m'a effectivement traversé l'esprit l'histoire de l'année , et j'avais donc pris l'année courante ...

Voici donc avec un choix année .

Trés peu de changement par rapport à mon code original ...

 

[Paritec]

Re : liste mois dans un userform

Bonjour Jean Marie le forum
on ne te vois plus beaucoup !!! , Remarque que moi non plus je ne viens pas souvent en ce moment
amicalement
Papou

 

[Si...]

Re : liste mois dans un userform

salut

autre proposition avec la fonction MonthName et une mise à jour quels que soient les choix.

 

[JCGL]

Re : liste mois dans un userform

Bonjour à tous,

Si... Tu le permets pour rendre pérenne ton code :

Private Sub UserForm_Initialize()
   For n = 1 To 12
     LA.AddItem Year(Date) - 1 + n: LM.AddItem MonthName(n)
   Next
End Sub

A+ à tous

 

[Staple1600]

Re : liste mois dans un userform

Bonsoir à tous

Je relisais cette après-midi un bouquin de Bob Umlas.
Et j'avoue que que j'aime bien cette petite astuce pour remplir une ListBox ou une ComboBox avec les noms des mois (sans passer par une boucle)

Private Sub UserForm_Initialize()
ListBox1.List = Application.GetCustomListContents(4)
End Sub

NB: A n'utiliser avec un Excel qui a conservé ses listes personnalisées par défaut.
(Quoique dans Excel 2013, il semble qu'on ne puisse par les supprimer manuellement)

 

[Si...]

Re : liste mois dans un userform

re

Si... Tu le permets pour rendre pérenne ton code :

Aucun souci .

Je me méfie de la Pérennité* mais ce n’est pas pour autant que je revendique la Paternité de Mes codes.

*j’aime évoluer donc merci Staple pour cette ligne que je réutiliserai sans aucun doute

 

[Modeste geedee]

Re : liste mois dans un userform

Bonsour® à tous

qui comprend une liste des 12 mois.

Je sélectionne dans la liste un mois et je souhaite ./.
./. que s'affiche le premier jour du mois dans la cellule D3
et que le dernier jour du mois s'affiche dans la cellule E3.

le même sans macro, ni userform, ni plage de cellules intermédiaire...
Données>Validation