Discussion :

[mehdi.017]

Bonjour,

J'ai 1 feuille excel ou j'ajoute des lignes en scannant des codes articles.
Je souhaite créer une macro qui a chaque fois que j'ajoute une ligne sur cette feuille me copie cette information sur une 2eme feuille et sur la premiere case vide de cette 2eme feuille.
Est ce que Quelqu'un aurait des piste?

Merci

[sabzzz]

bonjour,

Code :

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

1
2
3
4
5
6
Sub Macro1()
Dim x As Integer
x = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil1").Rows(1).Copy Sheets("Feuil2").Rows(x)
Application.CutCopyMode = False
End Sub

[mehdi.017]

merci pour ta réponse
en fait la dernière ligne qui s'ajoute dans la feuille 1 , je veux qu'ellle soit copiée dans la feuille dans la première ligne vide de la feuille 2.

ton code ne me donne pas ça

[casefayere]

Bonjour mehdi, isabelle

Isabelle t'a donné la réponse, il suffit d'ajouter une variable

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim x As Integer, y as Integer
x = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
y= Sheets("Feuil1").Range("A65536").End(xlUp).Row
 
Sheets("Feuil1").Rows(y).Copy Sheets("Feuil2").Rows(x)
Application.CutCopyMode = False
End Sub

[mehdi.017]

merci à vous deux, c'est très gentil