ajouter des mots à une liste

Version imprimable

01/06/2011, 15h42
johnjrambo

ajouter des mots à une liste
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:

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

Bonjour
Essaies ceci

Code:

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.

01/06/2011, 18h14
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 :)