Macro comparaison colonnes
Bonjour,
Ayant peu de connaissances en VBA, je ne sais pas comment modifier le code ci-dessous pour n'afficher qu'une fois en colonne C les valeurs identiques en colonne A et B (colonnes avec un nombre de lignes différent et colonnes non triées) :
Option Explicit
Sub ListeDoublons()
Dim Plage As Range, C As Range
Dim Ligne As Long
With Worksheets("ID")
Ligne = 1
Set Plage = .Range("A1").CurrentRegion
For Each C In Plage
If C <> "" Then
If Application.CountIf(Plage, C) <> 1 Then .Range("C" & Ligne) = C.Value: Ligne = Ligne + 1
End If
Next C
End With
End Sub
De plus, si quelqu'un peut satisfaire à cette demande, j'aimerais pouvoir faire évoluer ce code pour comparer 2 colonnes (A et B) avec 2 autres colonnes (C et D) et afficher de la même manière que ci-dessus les résultats identiques dans les colonnes E et F
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !
Bonsoir,
Merci beaucoup, cela répond pleinement à ma première demande.
Si quelqu'un pouvait mettre à jour ce code pour pouvoir comparer 2 colonnes (Nom et Prénom en A et B) avec 2 autres colonnes (Nom et prénom en C et D) avec affichage des valeurs identiques en E et F (Nom et prénom identique), ce serait parfait.
Cordialement.
Bonsoir gmb,
Cela fonctionne à merveille. Tu me rends un fier service.
Merci beaucoup pour ton aide et bonne soirée