Bonjour à tous,
Contexte :
Je veux savoir combien de fois, dans mon fichier 2, apparait exactement la valeur contenue dans la cellule de mon fichier 1. Et inscrire ce nombre dans mon fichier 1.
Problème :
Si ma valeur dans fichier 1 est "A400569-9" et que dans mon fichier 2 il y a une cellule ayant pour valeur "A400569-9BC", il me la compte également.
Voici le bout de mon code qui pose problème :
a = Fichier1.Sheets("Comparatif").Cells(Cells.Rows.Count, "A").End(xlUp).Row
d = Fichier2.Sheets(1).Cells(Cells.Rows.Count, "B").End(xlUp).Row
For Each c In Fichier1.Sheets("Comparatif").Range("A2:A" & a)
c.Offset(0, 2) = Application.CountIf(Fichier2.Sheets(1).Range("B3:B" & d), c)
Next c
Par avance, merci de votre aide.
Contexte :
Je veux savoir combien de fois, dans mon fichier 2, apparait exactement la valeur contenue dans la cellule de mon fichier 1. Et inscrire ce nombre dans mon fichier 1.
Problème :
Si ma valeur dans fichier 1 est "A400569-9" et que dans mon fichier 2 il y a une cellule ayant pour valeur "A400569-9BC", il me la compte également.
Voici le bout de mon code qui pose problème :
a = Fichier1.Sheets("Comparatif").Cells(Cells.Rows.Count, "A").End(xlUp).Row
d = Fichier2.Sheets(1).Cells(Cells.Rows.Count, "B").End(xlUp).Row
For Each c In Fichier1.Sheets("Comparatif").Range("A2:A" & a)
c.Offset(0, 2) = Application.CountIf(Fichier2.Sheets(1).Range("B3:B" & d), c)
Next c
Par avance, merci de votre aide.