Combobox valeur par défaut

Bonjour à tous,

J'ai le code suivant sur un userform :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Activate() 'Identifier chaque liste pour les valeurs des box à afficher Dim C As Range Me.ComboBox3.Clear With Sheets("Base") For Each C In .Range(.[D2], .Cells(.Rows.Count, 4).End(xlUp)) Me.ComboBox3.AddItem C.Value Next C End With End Sub

---

Cela concerne une comboxbox où figure un menu déroulante avec plusieurs date (seulement le dernier jour de chaque mois : 30/06/2017 - 31/07/2017 - 31/08/2017 - ...)

1. Dans la combobox, est-il possible d'afficher la valeur des dates en format mm/aaaa (je n'ai pas besoin de la journée)
2. De plus est-il possible de mettre par défaut le dernier jour du mois actuel (ici 07/2017 en résolvant la 1ère question), au lieu d'afficher un vide dans la combobox

merci par avance

Ludovic

Salut,

Pour avoir le format de date que tu souhaites, je te propose la modification suivante dans ton code

Code:

---

Me.ComboBox3.AddItem =Application.Text(C.Value, "mm/yyyy")

---

Et pour que ta liste ai une valeur par défaut,

Code:

---

Me.ComboBox3.value = Application.Text(C.Value, "mm/yyyy")

---

Que je placerai à la sorite de la boucle.

En espérant que c'est ce que tu veux.

Cela a fonctionné (pour la dernière méthode)

j'ai oublié ma première question (mm/aaaa) car après j'ai un code qui prend le jour (jj/mm/aaaa) et qui beugé du fait de la variable en mm/aaaa


Merci bien