Copier lignes entière d'1 feuil1 à feuil2

Bonjour le forum,

Je reviens à vous pour solliciter à nouveau votre aide.

Dans mon fichier, j’ai Feui1 et Feuil2. Dans la Feuil1, il y a 2 tableaux TAB1 (A1 à HV121) et TAB2 (A127 à CA247).

Dans la Feuil1 à a ligne 1, il y a des cellules contenant des références.

J’aimerais que la macro sélectionne les cellules une à une de la Feuil2 ligne 1.

Ensuite, elle doit chercher les cellules contenant les références correspondantes en Feuil1 Colonne A.

Une fois les cellules correspondantes trouvées, la macro doit copier la ligne en Feuil2 à partir des lignes 7 et 54.

Enfin, la macro devra additionner toutes les colonnes de la Feuil2.

Dans tous les cas la ligne 1 de la Feuil1 doit être copier en Feuil2 ligne 6 et la ligne 127 de la Feuil1 doit être copier en Feuil2 ligne 53.

Cela à l’air un peu brouillon, mais le fichier joint éclaircira mes propos du moins je l’espère.

Merci d’avance.

A+

ELAB

Bonjour,

les données V2, Y1, AH1, etc....

sont présentent 2 fois en Feuil1 et 2 fois en feuil2

doit-on écraser ceux de la Feuil2 par ceux de la Feuil1

ou bien les ajouter ?

Bonjour sabV,

Déjà merci pour accorder de l‘intérêt à mon projet.

Toutes les références qui sont présentent en Feuil2 peuvent être effacer. C'est juste à titre d'exemple qu'ils sont là.

Par contre les 40 références présentent en ligne1 de la Feuil2, doivent être les seules références à copier à partir de la Feuil1.

Cordialement.

ELAB

Bonjour ELAB,

voici la macro,

Option Explicit
Sub test()
Dim i As Long, LastRw1 As Long, LastRw2 As Long, dercol As Integer
Dim sh1, sh2, valeur

Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
LastRw1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
LastRw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 4
dercol = sh2.Cells(1, Columns.Count).End(xlToLeft).Column
valeur = sh2.Range(Cells(1, 1).Address, Cells(1, dercol).Address).Value

For i = 1 To LastRw1
  If sh1.Range("A" & i) = "EMPLACEMENTS" Or Not IsError(Application.Match(sh1.Range("A" & i), valeur, 0)) Then
    sh1.Rows(i).Copy sh2.Rows(LastRw2)
    LastRw2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
  End If
Next
Set sh1 = Nothing
Set sh2 = Nothing
End Sub
46elab-tran-test3.xlsm (146.87 Ko)

Bonjour sabV,

Merci d'avoir répondu à ma demande. La macro fonctionne parfaitement et je vous suis très reconnaissant.

Néanmoins, il y a 2 points qui pourraient être changés, si vous le voulez.

1) La macro fonctionne que si la ligne 1 de la Feuil2 possède 40 références. J'aimerais bien l'adapter pour qu'elle s'exécute même

si la ligne 1 contient 10 références par exemple.

Pouvez-vous m'annoter la macro pour que je puisse faire les changements ?

2) La macro n'additionne pas les colonnes.

Dans tous les cas, 1000 merciii...........is

Cordialement.

ELAB

Rechercher des sujets similaires à "copier lignes entiere feuil1 feuil2"