XL 2013 vba copie/colle

vinciHorus · 18 Mai 2020

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

patricktoulon · 18 Mai 2020

ben tu a un peu oublié l'offset(1)
mais il faut le faire en 2 etape
déterminer le end(xlup).offset(1) et coller

VB:

dim nextrow&

With Worksheets("Connexion ")

nextrow= .Cells(.Rows.Count, "B").End(xlUp).offset(1).row

Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Cells(nextrow, "B")

Worksheets("Saisie").Range("C" & ActiveCell.Row).Copy .Cells(nextrow, "C")

Worksheets("Saisie").Range("D" & ActiveCell.Row).Copy .Cells(nextrow, "D")





Worksheets("Saisie").Range("P" & ActiveCell.Row).Copy .Cells(nextrow, "F")

Worksheets("Saisie").Range("Q" & ActiveCell.Row).Copy .Cells(nextrow, "G")

Worksheets("Saisie").Range("R" & ActiveCell.Row).Copy .Cells(nextrow, "H"))



Worksheets("Saisie").Range("M" & ActiveCell.Row).Copy...

_Thierry · 18 Mai 2020

Bonjour @vinciHorus , le Forum

J'essaierais plutôt comme ceci ...

VB:

With Worksheets("Connexion")
Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Range("B" & .Range("B5000").End(xlUp).Row + 1)
End With

Bonne journée
@+Thierry

jmfmarques · 18 Mai 2020

Bonjour
si ......).End(xlUp) est la dernière ligne remplie, quelle pourrait bien être la suivante, où écrire, donc ?
tu ne crois pas qu'elle serait (sait-on jamais ) celle décalée (offset) d'une ligne vers le bas ?

patricktoulon · 18 Mai 2020

ben tu a un peu oublié l'offset(1)
mais il faut le faire en 2 etape
déterminer le end(xlup).offset(1) et coller

VB:

dim nextrow&

With Worksheets("Connexion ")

nextrow= .Cells(.Rows.Count, "B").End(xlUp).offset(1).row

Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Cells(nextrow, "B")

Worksheets("Saisie").Range("C" & ActiveCell.Row).Copy .Cells(nextrow, "C")

Worksheets("Saisie").Range("D" & ActiveCell.Row).Copy .Cells(nextrow, "D")





Worksheets("Saisie").Range("P" & ActiveCell.Row).Copy .Cells(nextrow, "F")

Worksheets("Saisie").Range("Q" & ActiveCell.Row).Copy .Cells(nextrow, "G")

Worksheets("Saisie").Range("R" & ActiveCell.Row).Copy .Cells(nextrow, "H"))



Worksheets("Saisie").Range("M" & ActiveCell.Row).Copy .Cells(nextrow, "I")

Worksheets("Saisie").Range("N" & ActiveCell.Row).Copy .Cells(nextrow, "J")



End With

patricktoulon · 18 Mai 2020

a bon la quelle ??

vinciHorus · 18 Mai 2020

patricktoulon à dit:
a bon la quelle ??

vinciHorus · 18 Mai 2020

jmfmarques à dit:
Bonjour
si ......).End(xlUp) est la dernière ligne remplie, quelle pourrait bien être la suivante, où écrire, donc ?
tu ne crois pas qu'elle serait (sait-on jamais ) celle décalée (offset) d'une ligne vers le bas ?

comment y remedier

jmfmarques · 18 Mai 2020

comment y remedier

Ben (bis repetita) en choisissant de copier à la ligne suivante (utilisation de Offset).

vinciHorus · 18 Mai 2020

jmfmarques à dit:
Ben (bis repetita) en choisissant de copier à la ligne suivante (utilisation de Offset).

est ce que je peux avoir un esquisse

jmfmarques · 18 Mai 2020

est ce que je peux avoir un esquisse

Beaucoup mieux qu'une "esquisse" -->> carrément l'exposé de la méthode + 2 exemples --->> ouvre donc s'il te plait (elle est faite pour cela) ton aide interne VBA à la rubrique
Range.Offset, propriété
et reviens, si toujours en difficulté, en nous montrant le code au moins tenté après cette saine et indispensable lecture.

vinciHorus · 18 Mai 2020

patricktoulon à dit:
a bon la quelle ??

c’était une erreur de ma part le code donne parfaitement !!

merci

vinciHorus · 18 Mai 2020

jmfmarques à dit:
Beaucoup mieux qu'une "esquisse" -->> carrément l'exposé de la méthode + 2 exemples --->> ouvre donc s'il te plait (elle est faite pour cela) ton aide interne VBA à la rubrique
Range.Offset, propriété
et reviens, si toujours en difficulté, en nous montrant le code au moins tenté après cette saine et indispensable lecture.

si je demande de l'aide c'est que j'ai déjà regardé

merci

jmfmarques · 18 Mai 2020

si je demande de l'aide c'est que j'ai déjà regardé

Bien. Très bien
et dans ce cas (pour mémoire) :

et reviens, si toujours en difficulté, en nous montrant le code au moins tenté après cette saine et indispensable lecture.

XL 2013 vba copie/colle

vinciHorus

XLDnaute Junior

patricktoulon

_Thierry

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

vinciHorus

XLDnaute Junior

Pièces jointes

vinciHorus

XLDnaute Junior

jmfmarques

XLDnaute Accro

vinciHorus

XLDnaute Junior

jmfmarques

XLDnaute Accro

vinciHorus

XLDnaute Junior

vinciHorus

XLDnaute Junior

jmfmarques

XLDnaute Accro

Discussions similaires