copier lignes entière d'1 feuil1 à feuil2

Y compris Power BI, Power Query et toute autre question en lien avec Excel
E
ELAB
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 11 avril 2017
Version d'Excel : 97-2003 .xls

Message par ELAB » 12 mai 2017, 23:08

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
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 13 mai 2017, 02:29

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 ?
Vive ces nouvelles saisons qui nous colorent.
isabelle
E
ELAB
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 11 avril 2017
Version d'Excel : 97-2003 .xls

Message par ELAB » 13 mai 2017, 18:44

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
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 14 mai 2017, 03:54

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
ELAB-TRAN_TEST3.xlsm
(146.87 Kio) Téléchargé 26 fois
Vive ces nouvelles saisons qui nous colorent.
isabelle
E
ELAB
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 11 avril 2017
Version d'Excel : 97-2003 .xls

Message par ELAB » 14 mai 2017, 17:42

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message