URGENT svp!! incrémentation VBA

Résolu/Fermé
grace - 7 juil. 2008 à 14:48
 grace - 7 juil. 2008 à 22:22
Bonjour,

Je dois créer une UserForm pour remplir une base de donnée.
J'ai créé la UserForm où la personne inscrit les données dans les champs, ainsi que le bouton "enregistrer" avec le programme suivant :

Private Sub Enregistrer_Click()
Sheets("Feuil2").Range("A4").Value = Me.TextBox1.Value
Sheets("Feuil2").Range("B4").Value = Me.ComboBox1.Value
Sheets("Feuil2").Range("C4").Value = Me.ComboBox2.Value
Sheets("Feuil2").Range("D4").Value = Me.ComboBox3.Value
Sheets("Feuil2").Range("E4").Value = Me.TextBox2.Value
Sheets("Feuil2").Range("F4").Value = Me.TextBox3.Value
Sheets("Feuil2").Range("K4").Value = Me.ComboBox4.Value
Sheets("Feuil2").Range("L4").Value = Me.ComboBox5.Value
Sheets("Feuil2").Range("G4").Value = Me.TextBox4.Value
Sheets("Feuil2").Range("I4").Value = Me.TextBox5.Value
Sheets("Feuil2").Range("J4").Value = Me.TextBox6.Value
End Sub

Or je voudrais que les données soient insérées dans la première ligne du tableau où il n'y a aucune information.
1ères données dans la ligne 4 par exemple, les 2ndes données dans la ligne 5...etc
En fait ne pas écraser les données précédentes! Car avec ce programme mes informations sont mises à chaque dans la ligne 4.
Est-il possible de mettre Dn??? par exemple et ensuite mettre Dn+1
Je pense qu'il faut faire une incrémentation mais je ne sais pas faire (étant débutante en UserForm VBA).

Je vous remercie d'avance pour votre aides!

1 réponse

jimelfou Messages postés 133 Date d'inscription samedi 20 octobre 2001 Statut Membre Dernière intervention 6 février 2016 2
7 juil. 2008 à 17:49
Fait une boucle pour vérifier chaque ligne s'il y a quelque chose d'écrit dessus.

dim x as integer
x = 1
while range("A" & x).value <> ""
x = x +1
wend

et après tu n'as qu'à écrire comme tu le fais en remplaçant ton code par par range("A" & x).value = "XXXXX"

comme ça il va écrire à la rangée où tu es rendu!

Je ne sais pas si c'était vraiment ça ta question, si oui tant mieux!
0
Je te remercie pour ta réponse.
Je vais essayer ça demain et puis si j'ai encore quelques soucis je laisse un message!

Merci encore

PS: c'était bien ca ma question
0