OVH Cloud OVH Cloud

Valeurs dans liste déroulante

15 réponses
Avatar
Tatane
Bonjour à tous,

J'ai trois valeurs (Mr, Mme, Melle) que je voudrais pouvoir intégrer dans ma
"zone de liste" sans avoir besoin de créer une feuille avec ces valeurs à
choisir.

Ah j'oubliais ..........................Au secours !!!!!

--
VBA Excel, c'est bon mais c'est chaud !

5 réponses

1 2
Avatar
Tatane
Salut Poulpor,

Je veux bien que tu m'explique la démarche à suivre.

Eh oui, moi quand je débute, je débute !!!!!

--
VBA Excel, c''est bon mais c''est chaud !



Bonjour,

Si je puis me permettre : pourrais-tu uploader par cjoint le fichier,
histoire de vérifier les propriétés du combobox.

Ca deviendra nettement plus facile pour y voir clair

Poulpor.




Ouiiinnn ! j'y arrive pas !

Ma boite de dialogue s'appelle "Dialogue", j'ai deux onglets :"Affaires" et
"Destinataires" ma Combobox s'appelle "Combobox_titre" et elle est sur

Private Sub Dialogue_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien ...!

J'ai essayé (quand je double-clique sur mon userform (Dialogue):

Private Sub MultiPage1_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien non plus !

Désolé !

--
VBA Excel, c''est bon mais c''est chaud !



Bonjour
Tu n'as pas bien lu le code d'isabelle
C'est sur l'evenement userform_initialise qu'il faut ecrire le code pas sur
combox_click
--
Michel
"Tatane" a écrit dans le message de news:

Bonjour Isabelle,

C'est ce que j'essaie mais ca fonctionne pas, en fait, j'ai une combobox
dans un userform et j'ai, dans le VBA, double-cliqué sur ma combobox et
écrit:

Private Sub ComboBox_Titre_Click()
ComboBox_Titre.AddItem "Mr" 'ListIndex = 0
ComboBox_Titre.AddItem "Mme" 'ListIndex = 1
ComboBox_Titre.AddItem "Melle" 'ListIndex = 2
End Sub

et quand je fais "F5" pour essayer et que je clique sur la flèche de ma
liste déroulante, il n'y a rien.
--
VBA Excel, c''est bon mais c''est chaud !



bonjour Tatane,

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub


isabelle

Encore désolé,

Je le refais: Je voudrais créer une ComboBox avec des valeurs
pré-définies.

Quelle est la syntaxe du VBA pour mettre Mr,Mme & Melle dans la liste
de ma
ComboBox ?

Par avance, merci
















Avatar
Tatane
C'est fait

http://cjoint.com/?jfrCFbRJDt
--
VBA Excel, c''est bon mais c''est chaud !



bonjour Tatane,

si tu veut "déposer" ton fichier là:

http://www.cjoint.com

et venir donner ici le lien de téléchargement que le site va donner.
il sera plus facile pour nous de résoudre le problème.

isabelle


Ouiiinnn ! j'y arrive pas !

Ma boite de dialogue s'appelle "Dialogue", j'ai deux onglets :"Affaires" et
"Destinataires" ma Combobox s'appelle "Combobox_titre" et elle est sur

Private Sub Dialogue_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien ...!

J'ai essayé (quand je double-clique sur mon userform (Dialogue):

Private Sub MultiPage1_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien non plus !

Désolé !






Avatar
Poulpor
Re,

Isabelle avait raison. Avec ce code, ca marche :

Private Sub UserForm_Initialize()
ComboBox_Titre.AddItem "Mr" 'ListIndex = 0
ComboBox_Titre.AddItem "Mme" 'ListIndex = 1
ComboBox_Titre.AddItem "Melle" 'ListIndex = 2
End Sub


C'est fait

http://cjoint.com/?jfrCFbRJDt
--
VBA Excel, c''est bon mais c''est chaud !



bonjour Tatane,

si tu veut "déposer" ton fichier là:

http://www.cjoint.com

et venir donner ici le lien de téléchargement que le site va donner.
il sera plus facile pour nous de résoudre le problème.

isabelle


Ouiiinnn ! j'y arrive pas !

Ma boite de dialogue s'appelle "Dialogue", j'ai deux onglets :"Affaires" et
"Destinataires" ma Combobox s'appelle "Combobox_titre" et elle est sur

Private Sub Dialogue_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien ...!

J'ai essayé (quand je double-clique sur mon userform (Dialogue):

Private Sub MultiPage1_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien non plus !

Désolé !








Avatar
Tatane
Miracle ! j'ai réussi !

Je n'avais pas mis le code d'Isabelle au bon endroit, je crois !

Merciiiii à tous pour votre patience !

--
VBA Excel, c''est bon mais c''est chaud !



Re,

Isabelle avait raison. Avec ce code, ca marche :

Private Sub UserForm_Initialize()
ComboBox_Titre.AddItem "Mr" 'ListIndex = 0
ComboBox_Titre.AddItem "Mme" 'ListIndex = 1
ComboBox_Titre.AddItem "Melle" 'ListIndex = 2
End Sub


C'est fait

http://cjoint.com/?jfrCFbRJDt
--
VBA Excel, c''est bon mais c''est chaud !



bonjour Tatane,

si tu veut "déposer" ton fichier là:

http://www.cjoint.com

et venir donner ici le lien de téléchargement que le site va donner.
il sera plus facile pour nous de résoudre le problème.

isabelle


Ouiiinnn ! j'y arrive pas !

Ma boite de dialogue s'appelle "Dialogue", j'ai deux onglets :"Affaires" et
"Destinataires" ma Combobox s'appelle "Combobox_titre" et elle est sur

Private Sub Dialogue_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien ...!

J'ai essayé (quand je double-clique sur mon userform (Dialogue):

Private Sub MultiPage1_Initialize()
ComboBox1.AddItem "Mr" 'ListIndex = 0
ComboBox1.AddItem "Mme" 'ListIndex = 1
ComboBox1.AddItem "Melle" 'ListIndex = 2
End Sub

Rien non plus !

Désolé !










Avatar
isabelle
bonjour Tatane,

Private Sub UserForm_Initialize()
MultiPage1.Page2.ComboBox_Titre.AddItem "Mr"
MultiPage1.Page2.ComboBox_Titre.AddItem "Mme"
MultiPage1.Page2.ComboBox_Titre.AddItem "Melle"
End Sub

isabelle


C'est fait

http://cjoint.com/?jfrCFbRJDt


1 2