Ajout automatique de données dans un tableau

Bonjour,

à l'aide d'une boîte de dialogue je veux ajouter des données dans un tableau.

Pour cela je souhaite que le programme détecte une ligne vide (celle juste après celle qui sont occupées) et la remplisse du contenu voulu!

Le problème c'est que j'effectue une boucle entre toutes les cases de mon tableau et il me remplace TOUTES les cases vides par les données.

Moi j'aimerais que seules la ligne vides située juste après les lignes remplies soit renseignée!

Si quelqu'un peut m'aider je m'arrache les cheveux la^^

j'ai écrit ceci :

Private Sub CommandButtonAjout_Click()

Dim x As Integer

Sheets("Listing").Select

For x = 3 To 100

If Cells(x, 1).Value = 0 Then Cells(x, 2) = TextBox1

Next x

End Sub

Bonjour,

à essayer

Private Sub CommandButtonAjout_Click()
Dim x As Integer
Sheets("Listing").Select
For x = 3 To 100
    If Cells(x, 1).Value = 0 Then
        Cells(x, 2) = TextBox1
        Exit Sub
    End If
Next x
End Sub

Claude.

parfait! merci beaucoup c'était tout à fait ce que je recherchais!

re,

tu aurais pu écrire aussi : Exit For, si ta macro continuait après la boucle.

n'oublie pas la petite formalité, en étant connecté,

Claude.