macro pour comparer des valeurs de 2 fichiers excel différents

[eroxfar92]

Bonjour à tous,

je suis actuellement bloqué sur une macro, j'ai beau avoir cherché que le net, je trouve pas ou ne comprend les solutions aux problèmes.
j'ai donc décider de poser mon problème ici dans l'espoir de trouver chaussures à mon pied.

Alors mon problème c'est que je voudrais d'un fichier A au nom variable et d'un fichier B au nom variable, pouvoir comparer une colonne de A (parfois avec des lignes vides) à une colonne de B (là aussi parfois des lignes vides).
Si les valeurs sont égales, dans ce cas je souhaite copier la valeur de la même ligne mais d'une colonne différente du fichier B pour la coller dans le fichier A, là aussi dans une autre colonne (j'espère être assez clair).

Exemple:
--------------------Avant macro----------------------
----- Fichier A-------------Fichier B----------
ColA------ColB------ColA----------ColB
1-----------------------1-----------valeur1
2-----------------------------------valeur2
------------------------12-----------valeur3
4---------------------- 4------------valeur4
------------------------ 4--------------------
5-----------------------5------------valeur5


---------------- Apres macro-------------------
------ Fichier A------------Fichier B-------------
ColA------ColB-------ColA-----------ColB--------
1---------valeur1------1-----------valeur1
2------------------------------------valeur2
-------------------------12-----------valeur3
4--------valeur4--------4------------valeur4
-------------------------4-------------------
5---------valeur5-------5------------valeur5

Voici mon code:

Sub Copie(X As String, X2 As String, X3 As String, X4 As String)
'X est la colonne du fichier A utilisé pour la comparaison 
'X2 est la colonne du fichier A utilisé pour le collage 
'X3 est la colonne du fichier B utilisé pour la comparaison 
'X4 est la colonne du fichier B utilisé pour la copie 
        
           Dim DerniereLigneWs1 As Variant
           Dim DerniereLigneWs2 As Variant
           Dim cpt As Integer
           Dim cpt2 As Integer          
           DerniereLigneWs1 = Range("b65536").End(xlUp).Row
           DerniereLigneWs2 = Range("b65536").End(xlUp).Row

    For cpt = 1 To DerniereLigneWs1          
           For cpt2 = 1 To DerniereLigneWs2
                    If Worksheets(1).Sheets(1).Range(X & cpt).Value <> Worksheets(2).Sheets(2).Range(X3 & cpt2).Value Then
                            Worksheets(2).Range(X4 & cpt2).Copy
                            Worksheets(1).Range(X2 & cpt).Paste
                    End If
           Next cpt2
    Next cpt
End Sub

Merci d'avance !

 

[eroxfar92]

Re : macro pour comparer des valeurs de 2 fichiers excel différents

J'ai aussi fait un truc du genre

Sub Copie(X As String, X2 As String, X3 As String, X4 As String)

            Dim F1 As Worksheet, F2 As Worksheet, plage1 As Range, plage2 As Range
            Dim cel1 As Range, cel2 As Range
            
            Set F1 = Workbooks("Classeur1.xls").Sheets("toto") 'à adapter
            Set F2 = Workbooks("Classeur2.xls").Sheets("ZOZO")
            
            Set plage1 = F1.Range(X, F1.Range("G65536").End(xlUp)) 'ou B2
            Set plage2 = F2.Range(X3, F2.Range("J65536").End(xlUp)) 'ou B2
            
            For Each cel1 In plage1
                    For Each cel2 In plage2
                        If cel1 = cel2 Then
                           Range("X4" & cel2.Row).Copy
                           Range("X2" & cel1.Row).PasteSpecial
                         End If
                         Else
                    Next cel2
            Next cel1
End Sub

 

[eroxfar92]

Re : macro pour comparer des valeurs de 2 fichiers excel différents

svp, je suis bloqué j'aimerais bien de l'aide, une piste un truc du genre, merci !!

 

[sadia]

Re : macro pour comparer des valeurs de 2 fichiers excel différents

bonjour,

peux tu envoyer un fichier excel ???
est ce que tu peux mettre les deux onglets dans le meme fichiers ?

 

[eroxfar92]

Re : macro pour comparer des valeurs de 2 fichiers excel différents

Bonjour,

Malheureusement les données sont considérées comme étant sensibles, mais je peux envoyer un fichier de test tout simple qui reprend le même principe.
Et non les onglets sont obligatoirements dans 2 fichier différents, onglet1 du fichier A et onglet1 du fichier B