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:
Merci d'avance !
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:
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 SubMerci d'avance !
Dernière édition: