XL 2010 Rechercher les valeurs identiques

  • Initiateur de la discussion Initiateur de la discussion all_yver
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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 🙂
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 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
34
Affichages
4 K
Retour