Incrementation des lignes

:salut: a tous

J'espère ne pas poser un problème déjà résolu car après plusieurs recherches, mon problème persiste.
En effet voilà Je désire renseigner les colonnes B,C,D,E,F,G à partir de la ligne 11. Et dès lors, les nouvelles valeurs entrées devraient aller à la prochaine ligne vide.
voilà mon code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() [C11] = UserForm2.TextBox1 [F11] = UserForm2.TextBox2 [D11] = UserForm2.TextBox3 [E11] = UserForm2.TextBox4 [G11] = UserForm2.TextBox5 Unload UserForm2 End Sub

---

le problème est qu'à la prochaine opération, les anciennes valeurs sont remplacées par les nouvelles dans la ligne 11. J'aimerais plutôt qu'elles devraient aillent à la prochaine ligne vide et ainsi de suite.
D'après mes recherches sur le forum il faudrait initialiser un i =... ou un truc de ce genre. Mais je n'y comprends rien vu que je suis débutant en vba.
Je vous remercie de bien vouloir me donner un coup de pouce.

bonjour kedas

le i est une variable que l'on utilise pour retrouver la prochaine ligne vide
a chaque boucle le i correspond au numero de ligne, on regarde si la case est vide. si elle est vide on ajoute 1 a i et on refait le test sinon i correspond a une ligne vide

Code:

---

1 2 3 4 5 6

dim i as long 'declaration   do while range("A" & i).value<>"" i=i+1 loop

---

ensuite tu mets ton code

Salut JFontaine

Merci pour l'information sur la variable i.

Mais seulement le problème a l'air de se déplacer.
voilà ce que j'ai fait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CommandButton1_Click() Dim i As Long 'declaration   Do While Range("C" & i).Value <> "" Do While Range("D" & i).Value <> "" Do While Range("E" & i).Value <> "" Do While Range("F" & i).Value <> "" Do While Range("G" & i).Value <> "" i = i + 1 Loop   If Button1.Value = True Then [B11] = "Entrée" End If If Button3.Value = True Then [B11] = "Sortie" End If   [C11] = UserForm2.TextBox1 [F11] = UserForm2.TextBox2 [D11] = UserForm2.TextBox3 [E11] = UserForm2.TextBox4 [G11] = UserForm2.TextBox5 Unload UserForm2 End Sub

---

et j'ai une erreur de do sans boucle comment faire our continuer ?

il faut carrément remplacer les [C11] et ainsi de suite pour des objets Range.

Essai comme ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dim i as long 'declaration   do while range("A" & i).value<>"" i=i+1 loop   Range("C" & i).Value= UserForm2.TextBox1 Range("F" & i).Value = UserForm2.TextBox2 Range("D" & i).Value = UserForm2.TextBox3 Range("E" & i).Value = UserForm2.TextBox4 Range("G" & i).Value= UserForm2.TextBox5 Unload UserForm2

---

Salut a tous
et une fois de plus merci pour toutes vos contributions.

Je reviens une fois de plus car en essayant comme vous l'avez conseillé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

dim i as long 'declaration   do while range("A" & i).value<>"" i=i+1 loop   Range("C" & i).Value= UserForm2.TextBox1 Range("F" & i).Value = UserForm2.TextBox2 Range("D" & i).Value = UserForm2.TextBox3 Range("E" & i).Value = UserForm2.TextBox4 Range("G" & i).Value= UserForm2.TextBox5 Unload UserForm2

---

j'obtiens une erreur d'exécution '1004' : la méthode 'Range' de l'objet '_Global' a échoué

je pense que j'ai oublié une truc

i=1 sinon il démarre a la ligne 0

Code:

---

1 2 3 4 5 6 7 8

dim i as long 'declaration   i=1   do while range("A" & i).value<>"" i=i+1 loop

---

:salut: Jerome

J'ai essayé en initialisant i = 11
comme tu l'as conseillé mais toujours rien.
les nouvelles données écrasent toujours les anciennes.

peux tu envoyer le fichier si il n'y a pas de données confidentielles
ou alors sans les données

Salut Jerome

Merci pour tous tes efforts
Voilà le fichier ci joint

Comme ta colonne A est vide, il fallait boucler sur la colonne B.
Ensuite, vu que tu es dans un form, il vaut mieux spécifier la feuille sur laquelle tu veux écrire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub CommandButton1_Click()   Dim i As Long 'declaration i = 11   Do While Feuil1.Range("B" & i).Value <> "" i = i + 1 Loop   If Button1.Value = True Then Feuil1.Range("B" & i).Value = "Entrée" End If If Button3.Value = True Then Feuil1.Range("B" & i).Value = "Sortie" End If Feuil1.Range("C" & i).Value = UserForm2.TextBox1 Feuil1.Range("F" & i).Value = UserForm2.TextBox2 Feuil1.Range("D" & i).Value = UserForm2.TextBox3 Feuil1.Range("E" & i).Value = UserForm2.TextBox4 Feuil1.Range("G" & i).Value = UserForm2.TextBox5 Unload UserForm2   End Sub

---

Salut et merci Jerome

J'ai essayé et c'est super ca marche comme prévu.
Special Thank... :king: