XL 2010 Rechercher les valeurs identiques

all_yver

XLDnaute Nouveau
Bonjour à tous,

J'ai une liste de références (colonne A) et une liste de références (colonne B), j'aurais souhaité repérer les valeurs identiques lorsqu’une référence de la colonne B est retrouvée dans la colonne A.

J'ai fait des essais, mais je ne m'en sort plus... j'avais eu l'idée d'avoir le n° de ligne comme repère mais ceux-ci ne correspondent pas... l'idéal serait que la valeur correspondante en colonne A soit mise en forme couleur au niveau de la police ou de la couleur de remplissage qui me permettrait de filtrer sur la couleur afin de pouvoir vérifier.

D'avance merci à vous ;)

Essai en pièce-jointe
 

Pièces jointes

  • Verifications.xlsx
    22.8 KB · Affichages: 90
Solution
Bonjour, le Fil :), le Forum,
... Serait-ce possible de colorer la cellule trouvée ?
Au lieu de colorer la cellule trouvée, le code suivant permet, par clic double en colonne d, d'atteindre la ligne mentionnée.

Nota : je n'ai pas su comment éviter "On Error Resume Next".
VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Dim mem As Long
    On Error Resume Next
    mem = c
    If c.Value = "" Or c.Column <> 4 Or IsError(c) Then Exit Sub
    Rows(mem).Select
End Sub
A bientôt :)

DoubleZero

XLDnaute Barbatruc
Bonjour, le Fil :), le Forum,
... Serait-ce possible de colorer la cellule trouvée ?
Au lieu de colorer la cellule trouvée, le code suivant permet, par clic double en colonne d, d'atteindre la ligne mentionnée.

Nota : je n'ai pas su comment éviter "On Error Resume Next".
VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Dim mem As Long
    On Error Resume Next
    mem = c
    If c.Value = "" Or c.Column <> 4 Or IsError(c) Then Exit Sub
    Rows(mem).Select
End Sub
A bientôt :)
 

Discussions similaires