Discussion :

[chipster62]

Bonjour à tous,

J'ai le code suivant sur un userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jerome.vaussenat]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[chipster62]

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