Bonjour à tous,

Alors voila j'ai un petit souci, en fait j'aimerai me créer un petit programme sur le VBA excel qui permet d'ajouter des mots à une liste. J'ai donc créer un useform, et sur le bouton "ajouter" :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Private Sub CommandButton1_Click()
    Dim i As Integer
    i = 1
    Worksheets("Feuil2").Range("A1").Offset(i, 0).Value = Texte.Value
    i = i + 1
End Sub
En fait j'aimerai que les mots se succèdent les uns en dessous des autres dans une autre feuille, en tapant le texte dans la boite de dialogue crée.

J'ai créer la boite de dialogue, mais la formule du dessus ne fonctionne pas correctement, et pas moyen avec for.

Merci pour vos conseils