Mais je voudrais que le résultat renvoyé ne soit pas le mois en lettre mais le numéro de ligne Exemple : 1 -> janvier 3 -> mars
Merci d'avance
Jean
michdenis
Bonjour Jean,
Voici un exemple si tu as un combobox dans un formulaire(userform)
'Déclaration de la variable dans le haut du module userform Dim Ok As Boolean '-------------------------------------- Private Sub ComboBox1_Change() If Ok = False Then Me.ComboBox1.Text = Me.ComboBox1.ListIndex + 1 Ok = True End If End Sub '-------------------------------------- Private Sub ComboBox1_Click() Ok = False End Sub
'-------------------------------------- Private Sub UserForm_Initialize() For A = 1 To 12 Me.ComboBox1.AddItem Format(DateSerial(2006, A, 1), "MMMM") Next End Sub '--------------------------------------
Salutations!
"Jean" a écrit dans le message de news: 43e259d6$0$21286$ Bonjour à tous
Je veux faire une liste déroulante pour choisir les mois de l'année, j'utilise :
Mais je voudrais que le résultat renvoyé ne soit pas le mois en lettre mais le numéro de ligne Exemple : 1 -> janvier 3 -> mars
Merci d'avance
Jean
Bonjour Jean,
Voici un exemple si tu as un combobox dans un formulaire(userform)
'Déclaration de la variable dans le haut du module userform
Dim Ok As Boolean
'--------------------------------------
Private Sub ComboBox1_Change()
If Ok = False Then
Me.ComboBox1.Text = Me.ComboBox1.ListIndex + 1
Ok = True
End If
End Sub
'--------------------------------------
Private Sub ComboBox1_Click()
Ok = False
End Sub
'--------------------------------------
Private Sub UserForm_Initialize()
For A = 1 To 12
Me.ComboBox1.AddItem Format(DateSerial(2006, A, 1), "MMMM")
Next
End Sub
'--------------------------------------
Salutations!
"Jean" <jj@free.fr> a écrit dans le message de news: 43e259d6$0$21286$8fcfb975@news.wanadoo.fr...
Bonjour à tous
Je veux faire une liste déroulante pour choisir les mois de l'année,
j'utilise :
Voici un exemple si tu as un combobox dans un formulaire(userform)
'Déclaration de la variable dans le haut du module userform Dim Ok As Boolean '-------------------------------------- Private Sub ComboBox1_Change() If Ok = False Then Me.ComboBox1.Text = Me.ComboBox1.ListIndex + 1 Ok = True End If End Sub '-------------------------------------- Private Sub ComboBox1_Click() Ok = False End Sub
'-------------------------------------- Private Sub UserForm_Initialize() For A = 1 To 12 Me.ComboBox1.AddItem Format(DateSerial(2006, A, 1), "MMMM") Next End Sub '--------------------------------------
Salutations!
"Jean" a écrit dans le message de news: 43e259d6$0$21286$ Bonjour à tous
Je veux faire une liste déroulante pour choisir les mois de l'année, j'utilise :
