comparaison entre deux feuille et copiage de donnée Fermé

Question

Bonjour a tous ,
j'ai un fichier excel avec deux pages dans la page 1 la colonne A contient des codes uniques ces codes ont un code Regate qui se trouve dans la colonne B de la même page et une adresse dans la colonne E , 
dans la page 2 j'ai le code source dans la colonne E qui se répète , je ce que j'essaye de faire et de comparer la colonne A de la page 1 avec la colonne E de la page 2 si les codes sont identiques on prend le code regate et l'adresse du code A dans la page 1 et on les colle dans les colonne G et H dans la page 2 qui leurs code correspond au code de la page 1 .
Voila le code que j'ai essayé d'utiliser mais ça marche pas je recois pas les resultats que je veux 
Sub copy_lignes()Dim DerLig As Integer, i As Integer, DerLig_Bis As IntegerApplication.ScreenUpdating = True    DerLig = Sheets("Feuil7").Range("A" & Rows.Count).End(xlUp).Row    For i = 2 To DerLig        If Sheets("Feuil6").Range("A" & i) = Sheets("Feuil7").Range("E" & i) Then            Sheets("Feuil6").Range("B" & i).copy Destination:=Sheets("Feuil7").Range("G" & i)            Sheets("Feuil6").Range("E" & i).copy Destination:=Sheets("Feuil7").Range("H" & i)        End If    Next iEnd Sub  
si vous pouvez m'aider svp ,   et merci d'avance

f894009 · Answer

Bonjour,
Les codes page1 colonne A et page2 colonne E sont classes ou pas ??

anas · Answer

Bonjour
je viens de trouver le code qu'il me faut si vous êtes interessé
Sub CompléterAdRégate()    Dim d As Object, k, n&, i&    Set d = CreateObject("Scripting.Dictionary")    With Worksheets("Feuil7")        n = .Cells(.Rows.Count, 1).End(xlUp).Row        For i = 2 To n            k = .Cells(i, 2).Text & "|" & .Cells(i, 5)            d(.Cells(i, 1).Value) = k        Next i    End With    With Worksheets("Feuil6")        n = .Cells(.Rows.Count, 5).End(xlUp).Row        For i = 2 To n            If d.exists(.Cells(i, 5).Value) Then                k = Split(d(.Cells(i, 5).Value), "|")                .Cells(i, 7).Resize(, 2).Value = k            End If        Next i    End WithEnd Sub

Comparaison entre deux feuille et copiage de donnée

2 réponses

Discussions similaires