vinciHorus
XLDnaute Junior
bonjour
j'ai un code qui copie une ligne d'un tableau A et le colle dans un tableau B
Le probleme est que lorsque j'ajoute une nouvelle ligne dans A et que je veux la copie dans B, elle supprime l'ancienne sauvegarde or je voudrais qu'elle se copie à la suite
mon code
Sub rempli()
With Worksheets("Connexion ")
Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Cells(.Rows.Count, "B").End(xlUp)
Worksheets("Saisie").Range("C" & ActiveCell.Row).Copy .Cells(.Rows.Count, "C").End(xlUp)
Worksheets("Saisie").Range("D" & ActiveCell.Row).Copy .Cells(.Rows.Count, "D").End(xlUp)
Worksheets("Saisie").Range("P" & ActiveCell.Row).Copy .Cells(.Rows.Count, "F").End(xlUp)
Worksheets("Saisie").Range("Q" & ActiveCell.Row).Copy .Cells(.Rows.Count, "G").End(xlUp)
Worksheets("Saisie").Range("R" & ActiveCell.Row).Copy .Cells(.Rows.Count, "H").End(xlUp)
Worksheets("Saisie").Range("M" & ActiveCell.Row).Copy .Cells(.Rows.Count, "I").End(xlUp)
Worksheets("Saisie").Range("N" & ActiveCell.Row).Copy .Cells(.Rows.Count, "J").End(xlUp)
End With
End Sub
j'ai un code qui copie une ligne d'un tableau A et le colle dans un tableau B
Le probleme est que lorsque j'ajoute une nouvelle ligne dans A et que je veux la copie dans B, elle supprime l'ancienne sauvegarde or je voudrais qu'elle se copie à la suite
mon code
Sub rempli()
With Worksheets("Connexion ")
Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Cells(.Rows.Count, "B").End(xlUp)
Worksheets("Saisie").Range("C" & ActiveCell.Row).Copy .Cells(.Rows.Count, "C").End(xlUp)
Worksheets("Saisie").Range("D" & ActiveCell.Row).Copy .Cells(.Rows.Count, "D").End(xlUp)
Worksheets("Saisie").Range("P" & ActiveCell.Row).Copy .Cells(.Rows.Count, "F").End(xlUp)
Worksheets("Saisie").Range("Q" & ActiveCell.Row).Copy .Cells(.Rows.Count, "G").End(xlUp)
Worksheets("Saisie").Range("R" & ActiveCell.Row).Copy .Cells(.Rows.Count, "H").End(xlUp)
Worksheets("Saisie").Range("M" & ActiveCell.Row).Copy .Cells(.Rows.Count, "I").End(xlUp)
Worksheets("Saisie").Range("N" & ActiveCell.Row).Copy .Cells(.Rows.Count, "J").End(xlUp)
End With
End Sub