Discussion :

[zoumzoum59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[zoumzoum59]

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.