Pb de remplissage d'une listBox userform

[kettou]

Bonjour à tous,
Je souhaite remplir une listebox avec les mois de l'année c à d janvier,fevrier,mars... afin de choisir un mois à partir de cette liste et afficher le tableau de bord correspondant alors g insérer le code suivant:
Private Sub UserForm1_Initialize()
ListBox1.AddItem "Janvier", 0
ListBox1.AddItem "Février", 1
ListBox1.AddItem "Mars", 2
ListBox1.AddItem "Avril", 3
ListBox1.AddItem "Mai", 4
ListBox1.AddItem "Juin", 5
ListBox1.AddItem "Juillet", 6
ListBox1.AddItem "Aout", 7
ListBox1.AddItem "Septembre", 8
ListBox1.AddItem "Octobre", 9
ListBox1.AddItem "Novembre", 10
ListBox1.AddItem "Décembre", 11
End Sub

mais malheureusement ca ne marche pas. si quelqu'un peut m'aider svp

 

[PUARAI]

Re : Pb de remplissage d'une listBox userform

Peux tu m'envoyer un fichier exemple et de ce que tu veux exactement dans ton fichier

PUARAI

 

[Pierrot93]

Re : Pb de remplissage d'une listBox userform

Bonjour Kettou, puarai

peut être comme ceci :

Option Explicit
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
    ListBox1.AddItem MonthName(i)
Next i
End Sub

bon après midi
@+

 

[Robert]

Re : Pb de remplissage d'une listBox userform

Bonjour Kettou, Puarai, Pierrot bonjour le forum,

Tu as écris : Private Sub UserForm1_Initialize()

le 1 est en trop ! Supprime-le et ton code fonctionnera.

Private Sub UserForm_Initialize()
ListBox1.AddItem "Janvier", 0
ListBox1.AddItem "Février", 1
ListBox1.AddItem "Mars", 2
ListBox1.AddItem "Avril", 3
ListBox1.AddItem "Mai", 4
ListBox1.AddItem "Juin", 5
ListBox1.AddItem "Juillet", 6
ListBox1.AddItem "Aout", 7
ListBox1.AddItem "Septembre", 8
ListBox1.AddItem "Octobre", 9
ListBox1.AddItem "Novembre", 10
ListBox1.AddItem "Décembre", 11
End Sub

 

[Hulk]

Re : Pb de remplissage d'une listBox userform

Hello tout le monde 😀

J'apporte ma petite contribution pour le plaisir 😀

Ami calmant, Hulk.

 

[kettou]

Re : Pb de remplissage d'une listBox userform

Bonjour Kettou, Puarai, Pierrot bonjour le forum,

Tu as écris : Private Sub UserForm1_Initialize()

le 1 est en trop ! Supprime-le et ton code fonctionnera.

Private Sub UserForm_Initialize()
ListBox1.AddItem "Janvier", 0
ListBox1.AddItem "Février", 1
ListBox1.AddItem "Mars", 2
ListBox1.AddItem "Avril", 3
ListBox1.AddItem "Mai", 4
ListBox1.AddItem "Juin", 5
ListBox1.AddItem "Juillet", 6
ListBox1.AddItem "Aout", 7
ListBox1.AddItem "Septembre", 8
ListBox1.AddItem "Octobre", 9
ListBox1.AddItem "Novembre", 10
ListBox1.AddItem "Décembre", 11
End Sub

Oui en fait c'etait ca l'erreur je te remercie ainsi que tous le monde
Bonne journée

 

[kettou]

Re : Pb de remplissage d'une listBox userform

Oui en fait c'etait ca l'erreur je te remercie ainsi que tous le monde
Bonne journée

rebonjour,
Encore une question SVP, je suis débutant sous vba et je voudrai savoir comment selctionner un itel de la liste box par un evenement click, g programmé le code suivant et ca ne marche pas:
Private Sub ListBox1_Click()
Dim i As Integer
For i = 0 To 11
If ListBox1.Selected(i) = True Then
'<l'item a été sélectionné>
End If
Next i
p__mois = ListBox1.SelectedIndex
End Sub
Merci

 

[Robert]

Re : Pb de remplissage d'une listBox userform

Bonjour le fil, bonjour le forum,

pas très bien compris mais si P__mois est une plage nommée peut-être plus simplement :

Private Sub ListBox1_Click()
Range("p__mois") = ListBox1.Value
End Sub

ou si c'est une variable :

Private Sub ListBox1_Click()
p__mois = ListBox1.Value
End Sub

 

[kettou]

Re : Pb de remplissage d'une listBox userform

Bonjour le fil, bonjour le forum,

pas très bien compris mais si P__mois est une plage nommée peut-être plus simplement :

Private Sub ListBox1_Click()
Range("p__mois") = ListBox1.Value
End Sub

ou si c'est une variable :

Private Sub ListBox1_Click()
p__mois = ListBox1.Value
End Sub

c'est bien une variable et ca fonctionne à merveille.
Bah Robert je te remercie tu mas sauvé ma journée.
@+

 

[PUARAI]

Re : Pb de remplissage d'une listBox userform

Bonsoir à tous

Bon je vois que tu n'as plus besoin d'aide Kettou

🙂