Repérer doublons dans deux colonnes

Bonjour à tous les contributeurs

dans un tableau contrenant en colonne B des débits et en colonne C des crédits, je voudrais pouvoir mettre en évidence toutes les valeurs que l'on trouve dans les deux colonnes. L'idéal serait de leur affecter une couleur qui permettrait de les repérer d'un simple coup d'oeil, voire de les sélectionner à l'aide d'une macro en vue de les copiers sur une autre feuille.

étant débutant (et vraiment débutant) dans ce genre d'exercice, je vous remercie de bien vouloire faire preuve de pédagogie.

Mercià tous ceux qui prendront du temps pour essayer de satisfaire ma demande

Bonsoir et bienvenue,

Envoie une feuille avec exemples représentatifs

Amicalement

Claude

Bonjour Arnaud, bonjour Claude,

Un essai avec une Mise en Forme Conditionnelle :

Sélectionner la colonne B (de B1 à B10)

puis Format - Mise en forme conditionnelle - Condition 1 - La formule est :

=NB.SI($C$1:$C$10;$B1)>0

+Format et choix couleur

On recommence dans l'autre sens avec la colonne C :

Sélectionner la colonne C (de C1 à C10)

puis Format - Mise en forme conditionnelle - Condition 1 - La formule est :

=NB.SI($B$1:$B$10;$C1)>0

+Format et choix couleur

Plage de cellules à adapter.

Inconvénient : on a une seule couleur pour tous les montants présents au débit et au crédit.

Si on souhaite plusieurs couleurs, ça sera à mon avis, en VBA.

Je te laisse tester

@+

re forum, Bonsoir thibo ,

Solution VBA

Sub ColorDoublon()
Dim Lg%, Dico As Object, Plg As Range, c
    Lg = Range("A65536").End(xlUp).Row
    Set Dico = CreateObject("Scripting.Dictionary")
    Set Plg = Range("b3:c" & Lg) 'à adapter
    Plg.Interior.ColorIndex = xlNone

    For Each c In Plg
        If c <> "" Then Dico.Item(c.Value) = Dico.Item(c.Value) + 1
    Next c

    For Each c In Plg
        If Dico.Item(c.Value) > 1 Then
        c.Interior.ColorIndex = Application.Match(c.Value, Dico.keys, 0) + 2
        End If
    Next c
End Sub

Amicalement

Claude

Bonjour

Merci à tous ceux qui ont pris du temps pour apporter me répondre et un merci particulier à Claude dont le code fonctionne à merveille.

Compte tenu de la qualité des solutions qui m'ont été proposées, je me permets de solliciter de nouveau votre aide.

Je voudrais pouvoir trouver un code qui me permette de séléctionner toutes les lignes dont au moins une cellule est colorée, et de copier ces lignes dans une autre feuilles. Les cellules colorées sont de couleurs différentes.(je travaille sous excel 2000)

Merci à vous

re,

Ceci est un autre sujet, ouvre un nouveau poste,

pour fermer celui-ci, c'est ici