Discussion :

[johnjrambo]

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

[mercatog]

Bonjour
Essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim LastLig As Long
 
With Worksheets("Feuil2")
    'N° de ligne de la dernière cellule remplie de la colonne A
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    'On inscrit dans la cellule juste en dessous, la valeur contenu dans TextBox1
    .Range("A" & LastLig + 1).Value = Me.TextBox1.Value
End With
End Sub

Et regarde ce lien.

[johnjrambo]

Merci beaucoup, ca marche en effet.

Merci aussi pour le lien, je vais essayer de créer une boite de dialogue pour supprimer des mots, ca doit être le meme principe