Remplissage d'une Zone de liste

bonjour,

j'ai créé un formulaire avec la boite à outils de microsoft visual basic, qui contient une zone de liste.

dites moi svp comment je peux rempliir cette liste avec des mois :

mois 1

mois 2

mois 12

Merci

Bonjour,

Clique droit sur la zone de liste, Format de contrôle, dans la partie "Plage d'entrée", sélectionne les cellules qui contiennent "Mois 1, Mois 2 etc. et valide par OK.

Bonjour

Janvier, Février, Mars,...

Où est le problème ?

Donne plus de précisions car le problème n'est pas la liste, mais les valeurs qui seront utilisées à partir de la liste.

Cordialement

Amadéus a écrit :

Bonjour

Janvier, Février, Mars,...

Où est le problème ?

Donne plus de précisions car le problème n'est pas la liste, mais les valeurs qui seront utilisées à partir de la liste.

Cordialement

je ne sais pas s'il y'a probleme ou non,

mais ce que je veux c remplir cette avec des valeurs ( mois1, mois2, ...) par un saisi, car il n y'a une colonne qui contient ces valeurs.

et je veux savoir comment faire cela, dans l'environnement visual basic

Bonjour

La réponse de Raja devrait solutionner ton problème.

Cordialement

Amadéus a écrit :

Bonjour

La réponse de Raja devrait solutionner ton problème.

Cordialement

y'a pas de format apres le click droit, y'a que :

Couper

Copier

Supprimer

Propriétés

Code

Aligner

Inuformiser la taille

Premier plan

Arriere plan

Salut tout le monde,

La solution de Raja fonctionne si c'est une liste déroulante issue de la boite à outils formulaire sinon, si la liste déroulante provient de la boite à outils VBA, il faut passer par un code:

Pour cela: en mode création (cliquer sur l'équerre) clique droit/visualier le code et colle ceci.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Clear
    ComboBox1.AddItem "TEST"
    ComboBox1.AddItem "TEST2"
End Sub

Remplace TEST et TEST2 par tes valeurs et ajoutes autant de lignes que tu le souhaites....

A te lire,

Souri84

EDIT: je me suis trompé de code:

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ComboBox1.Clear
    ComboBox1.AddItem "TEST"
    ComboBox1.AddItem "TEST2"
End Sub

souri84 a écrit :

Salut tout le monde,

La solution de Raja fonctionne si c'est une liste déroulante issue de la boite à outils formulaire sinon, si la liste déroulante provient de la boite à outils VBA, il faut passer par un code:

Pour cela: en mode création (cliquer sur l'équerre) clique droit/visualier le code et colle ceci.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Clear
    ComboBox1.AddItem "TEST"
    ComboBox1.AddItem "TEST2"
End Sub

Remplace TEST et TEST2 par tes valeurs et ajoutes autant de lignes que tu le souhaites....

A te lire,

Souri84

c fait, mais ça me donne une lliste vide

REgarde juste au dessus, je viens d'éditer mon message, je me suis gouré de code....

A te lire,

Souri84

souri84 a écrit :

Salut tout le monde,

La solution de Raja fonctionne si c'est une liste déroulante issue de la boite à outils formulaire sinon, si la liste déroulante provient de la boite à outils VBA, il faut passer par un code:

Pour cela: en mode création (cliquer sur l'équerre) clique droit/visualier le code et colle ceci.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Clear
    ComboBox1.AddItem "TEST"
    ComboBox1.AddItem "TEST2"
End Sub

Remplace TEST et TEST2 par tes valeurs et ajoutes autant de lignes que tu le souhaites....

A te lire,

Souri84

EDIT: je me suis trompé de code:

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ComboBox1.Clear
    ComboBox1.AddItem "TEST"
    ComboBox1.AddItem "TEST2"
End Sub

OK merci ça marche tres

merci bcp

là ce que je veux faire c reccuperer cette valeur de la liste ,

j'ai fais nomform.nomliste.value mais ça ne marche pas

elle est ou mon erreur?

Tu veux la récupérer dans une cellule de ta feuille ?

je pense que c'est plutôt:

Private Sub ComboBox1_Change()
Range("A1").Value = ComboBox1.Value 'remplace A1 par la cellule de ton choix
End Sub

A te lire,

Souri84