J'ai dans la colonne A des données chiffrées et dans la colonne B des données
chiffrées. Je voudrais comparer les 2 colonnes A et B et recuperer les
doublons dans la colonne C par exemple.
MERCI
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
francois.forcet
Salut à toi
Soit la Feuil1 à traiter Colonne C les doublons :
For Each c In Worksheets("Feuil1").Range("A1", "A" & Range("A65535").End(xlUp).Row) For Each d In Worksheets("Feuil1").Range("B1", "B" & Range("B65535").End(xlUp).Row) If c = d Then Range("C65535").End(xlUp).Offset(1, 0) = c Range("C65535").End(xlUp).Offset(1, 0) = d End If Next Next
Celà devrait faire Dis moi !!!
Salut à toi
Soit la Feuil1 à traiter
Colonne C les doublons :
For Each c In Worksheets("Feuil1").Range("A1", "A" &
Range("A65535").End(xlUp).Row)
For Each d In Worksheets("Feuil1").Range("B1", "B" &
Range("B65535").End(xlUp).Row)
If c = d Then
Range("C65535").End(xlUp).Offset(1, 0) = c
Range("C65535").End(xlUp).Offset(1, 0) = d
End If
Next
Next
For Each c In Worksheets("Feuil1").Range("A1", "A" & Range("A65535").End(xlUp).Row) For Each d In Worksheets("Feuil1").Range("B1", "B" & Range("B65535").End(xlUp).Row) If c = d Then Range("C65535").End(xlUp).Offset(1, 0) = c Range("C65535").End(xlUp).Offset(1, 0) = d End If Next Next
