[VBA-E] ajout de ligne automatique en fin de tableau

Bonjour à tous

Je voudrais savoir comment automatiser une copy de la derniere ligne des que l'avant derniere ligne se remplit.

Je rempli mes ligne a l'aide d'une userform qui peut me servir de declencheur.

j'ai le shema a peu pres en tete mais je n'arrive pas à le formaliser.


voici mon code de copy de ligne, mais je ne sais pas comment faire pour que ça se fasse dynamiquement:

Code:

---

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

Dim r As Integer, s As Integer Set firstCell = Range("B5") Set lastCell = Range("B65536").End(xlUp)   Range(lastCell, lastCell).Select s = ActiveCell.Row   ActiveCell.Offset(1, 0).EntireRow.Select r = ActiveCell.Row selection.Insert Shift:=xlDown Rows(s).Select Rows(s).Copy Rows(r)

---

Merci d'avance

Code:

---

1 2 3 4 5 6 7 8

Dim r As Integer, s As Integer Set firstCell = Range("B5") Set lastCell = Range("B65536").End(xlUp)   s = Range(lastCell, lastCell).Row r = s +1 Rows(s).Insert Shift:=xlDown Rows(s).Copy Rows(r)

---

La sélection d'une cellule / d'une ligne... ralentit ton code, tu peux le simplifier

Je ne comprends pas ce que tu veux faire. Peux-tu dire ce que tu entends par automatiser ?

A+

Merci ouskel'n'or j'avais un peu etabli quelque chose de mon coté mais ton code a surtout servi à le simplifier.

J'ai toujours tendance à mettre des choses qui ne servent a rien.