Menu déroulant VBA pour les mois de l'année

Bonjour à vous,

Dans le fichier, on double-clic sur une case et un calendrier apparaît. Par contre, on y voit seulement le mois de janvier. J'aimerais tout mettre les mois de l'année. Je ne sais pas comment m'y prendre. Pouvez-vous m'aider svp.

Voici le fichier.

Merci à vous

Bonjour, sur ce fichier quand Moi quand je clic le calendrier s'ouvre et avec le sélecteur de mois je peux changer les mois

Vous êtes sur Mac ou PC ?

Je suis sur pc. Il y a juste le mois de janvier qui s’affiche à répétition. Voici un imprime-écran de ce que je vois.

Bonjour

Pour confirmer XMenPl, pas de soucis de mon coté non plus

Par contre je modifierais le code Private Sub Activate par celui ci-dessous

Private Sub UserForm_Initialize()
Dim Mois(1 To 12) As String
Dim i As Integer
For i = 1 To 12
    Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
    ComboBox1.AddItem Mois(i)
Next i
TextBox1.Value = Year(Now())
End Sub

Faites un test pour vérifier sur base du code ci-dessus

Ensuite, cliquez sur la combobox 1, en dans les propriétés de l'objet, supprimez "Septembre" de même que dans le label 9. Avec vos codes dans l'userform cela se mettra automatiquement. Il n'y a aucun intérêt à les laisser là

Cordialement

Etrange de mon coté le fichier est correcte.

Dans l'onglet développeur bouton "compléments" quels sont les compléments cochés ?

oops sauf si l'astuce de Dan a déjà résolu le problème ?

re

Ok je viens de voir que vous ouvrez l'userform depuis un double click dans la colonne A, donc oubliez mon code proposé avant . Ce n'est pas ce que vous cherchez. Tout au moins si vous cherchez à avoir la date existante dans la colonne A. Si c'est une nouvelle le code serait bon

Je suppose XMenPl va revenir

Edit : @XMenPL

XMenPl : oops sauf si l'astuce de Dan a déjà résolu le problème ?

Oui cela fonctionne mais il faut qu'il supprime le text "Septembre" qu'il a mis dans les propriétés de la combobox et label9

Salut tout le monde,

pas de problème non plus avec le fichier-exemple sur ma machine.
La demande est donc floue : que veux-tu exactement, Amely ?

Ainsi, serait-ce en fait ce que tu veux : tous les mois de l'année dispo' d'UN clic ?

Avant de développer, nous attendons des éclaircissements !

A+

Bonsoir Curulis et re Dan

D'aprés son image dans le fichier Docx joint, quand sont userform est ouvert la combobox ne lui renvoi que 12 fois le mois de Janvier.

J'ai pas ce truc là quand je double clic sur une des cases de la colonne A.

D'ou mon questionnement sur : çà vient de son fichier ou d'un paramètre de son excel ?

J'ai fais les changements et cela fonctionne :) Je voulais que les mois puissent défiler dans mon menu déroulant. Je voyais que janvier à répétition. Si je veux appliquer la même chose mais pour les années. Dois-je refaire un nouveau post vu que celui-ci est résolu ??

Merci beaucoup!!!

Bonjour

Si je veux appliquer la même chose mais pour les années. Dois-je refaire un nouveau post vu que celui-ci est résolu ??

Non ce n'est pas nécessaire de créer un nouveau post. Faites ceci dans votre userform :
- Créez une combobox pour les années
- Vérifiez qu'elle a bien le nom Combobox2
- Si vous avez utilisé le code proposé avant, remplacez le par celui ci-dessous

Private Sub UserForm_Initialize()
Dim Mois(1 To 12) As String
Dim Annee
Dim i As Integer
Annee = Year(Now())
For i = 1 To 12
    Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
    ComboBox1.AddItem Mois(i)
    ComboBox2.AddItem Annee + i - 1
Next i
End Sub

Il faudra adapter les autres codes bien sûr. Notamment

- Supprimer le code Textbox1_change
- modifier le code Combobox1_change ci-dessous

Private Sub ComboBox1_Change()
  UserForm1.Label9.Caption = UserForm1.ComboBox1.Value
  Call maj
End Sub

- Ajouter le code pour la combobox2 ci-dessous

Private Sub ComboBox2_Change()
UserForm1.Label9.Caption = UserForm1.ComboBox1.Value & " " & UserForm1.ComboBox2.Value
End Sub

Cordialement

Bonjour,

Une petite contribution.

Cdlt.

Private Sub UserForm_Initialize()
    'Remplir une combobox à l’aide d’une liste personnalisée (noms mois)
    Me.ComboBox1.List = Application.GetCustomListContents(4)
End Sub