Inserer un bouton de validation

bonsoir
j'ai un fichier "recherche ville" et je n'arrive pas a ajouter un botton de validation
Comment faire ça ?

Bonjour,

Ajoute cette macro dans le module du userform :

Code:

---

1 2 3

Private Sub CmdAjouter_Click() [B16]=me.Lbx1.Value End Sub

---

bonsoir,
merci pour la reponce mais ca ne marche pas
je prefère si tu me donne la reponce sur le fichier "recherche ville"
parceque je suis un debutant dans vba
et merci d'avance

Bonjour,

être débutant n'est pas une excuse .... !


que veut tu dire avec ce message

Citation:

---

merci pour la reponce mais ca ne marche pas

---

que se passe-t-il ?

ou as tu mis le code proposé ?

Bonsoir,

@ bbil : il y avait initialement un classeur en pièce jointe.
@ wahid-chaoui : tu trouveras le classeur en pièce joointe . Le code attaché au bouton est le suivant :

Code:

---

1 2 3

Private Sub CmdAjouter_Click() [B16] = Me.Lbx1.Value End Sub

---

bonjour
j'ai poser le code que tu ma donne
ALT+F11 me donne visual basic
je met le code donne donne le botton "ajouter" de userform mais ça marche pas et voici le fichier

Bonjour et bonne année,

Quand tu es dans la fenêtre Visual Basic, repère, dans la partie gauche le projet qui a le nom de ton classeur. Ouvre le dossier "Feuilles" (si besoin) et double clique sur "Userform1". Fais un clic droit sur le bouton "Ajouter" et clique sur "Code".
Tu dois voir :

Code:

---

1 2 3

Private Sub CmdAjouter_Click()   End Sub

---

Ajoute la ligne :

Code:

---

[B16] = Me.Lbx1.Value

---

Tu obtiens :

Code:

---

1 2 3

Private Sub CmdAjouter_Click() [B16] = Me.Lbx1.Value End Sub

---

C'est tout. Enregistre et teste.

merci mon ami
ça marche mais je veut si je choix de 1 jusqu'a 14 villes et je veut les maitre dans les cellules de 16 jusqu'a 29 comment faire le code ?

Alors, remplace la macro par la suivante :

Code:

---

1 2 3 4 5 6 7

Private Sub CmdAjouter_Click() If [B16] = "" Then [B16] = Me.Lbx1.Value Else [B15].End(xlDown).Offset(1) = Me.Lbx1.Value End If End Sub

---

Code:

---

[B15].End(xlDown).Offset(1)

---

désigne la première cellule vide en dessous de B16. Pour t'aider à progresser dans VA, tu peux cliquer dans un mot et appuyer sur la touche F1 pour obtenir de l'aide.