URGENT svp!! incrémentation VBA
Résolu
grace
-
grace -
grace -
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!
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!
A voir également:
- URGENT svp!! incrémentation VBA
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
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!
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!
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