Discussion :

[xuorel]

Bonjour,

je voudrais créer une combobox avec une liste d'item (des mois par exemple). Et je souhaiterais que lorsque aucun mois n'est sélectionné, la combobox contienne le mot "mois" ou "mmmm" (éventuellement en gris clair), mais que ce mot ne fasse pas partie des choix possible pour l’utilisateur quand il déroule la liste.

Est-ce possible ?


Merci

[Nicolas JACQUIN]

Bonjour,
quelque chose de ce genre pour un userform

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Me.ComboBox1.Value = "Mois"
       Dim Mois(1 To 12) As String
       Dim i As Integer
       For i = 1 To 12
             Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
             Me.ComboBox1.AddItem Mois(i)
       Next i
 End Sub

[unparia]

Bonjour Nicolas JACQUIN
On voit tout de suite la différence entre ceux qui se contentent de copier/coller et ceux qui, comme tu le montres ici, ont l'habitude d'y mettre du leur.
Tu es vraiment sympa.
Petit cadeau, alors --->>

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
   Me.ComboBox1.Value = "Mois"
   For i = 1 To 12
     Me.ComboBox1.AddItem MonthName(i)
   Next i
 End Sub

[Nicolas JACQUIN]

Bonjour Unparia,
Merci pour ce code bien plus simple.
Bonne Journée.