L
LAURENT
Guest
Voila ma macro :
' Compare les colonnes A et B et inscrit 0 en colonne C lorsque
' une valeur en colonne A existe aussi dans la colonne B
' Détourne l'utilisation de la fonction Match (Equiv) pour trouver
' les données de A qui sont présentes dans B
' laurent b.bsn
Sub CompareTwoColumns()
Dim rngA As Range
Dim rngB As Range
Set rngA = Range(Cells(1, 'A'), Cells(Rows.Count, 'A').End(xlUp))
Set rngB = Range(Cells(1, 'B'), Cells(Rows.Count, 'B').End(xlUp))
For Each cell In rngA
If Not IsError(Application.Match(cell.Value, rngB, 0)) Then
Cells(cell.Row, 'C').Value = 0
End If
Next
End Sub
Mon souci et je tourne en rond :
donc on compare A et B et on inscrit 0 en C lorsque
A existe en B.
J'aimerais en fait à la place de comparer 2 colonnes d'une meme feuille ..........
faire la meme chose c'est a dire comparer 2 colonnes mais sur 2 feuilles différentes.
et rapatrier à la place du '0' en colonne C la valeur de la cellule D commune de la premiere feuille par ex.
j'espere m'être bien exprimé.
merci pour l'aide
' Compare les colonnes A et B et inscrit 0 en colonne C lorsque
' une valeur en colonne A existe aussi dans la colonne B
' Détourne l'utilisation de la fonction Match (Equiv) pour trouver
' les données de A qui sont présentes dans B
' laurent b.bsn
Sub CompareTwoColumns()
Dim rngA As Range
Dim rngB As Range
Set rngA = Range(Cells(1, 'A'), Cells(Rows.Count, 'A').End(xlUp))
Set rngB = Range(Cells(1, 'B'), Cells(Rows.Count, 'B').End(xlUp))
For Each cell In rngA
If Not IsError(Application.Match(cell.Value, rngB, 0)) Then
Cells(cell.Row, 'C').Value = 0
End If
Next
End Sub
Mon souci et je tourne en rond :
donc on compare A et B et on inscrit 0 en C lorsque
A existe en B.
J'aimerais en fait à la place de comparer 2 colonnes d'une meme feuille ..........
faire la meme chose c'est a dire comparer 2 colonnes mais sur 2 feuilles différentes.
et rapatrier à la place du '0' en colonne C la valeur de la cellule D commune de la premiere feuille par ex.
j'espere m'être bien exprimé.
merci pour l'aide