Lister les doublons présents dans un classeur

Bonjour à tous,

Me voilà de nouveau avec un défis à la hauteur de quelqu'un qui n'est pas moi

J'aimerais améliorer le code ci-dessous que j'utilise pour chercher des valeurs doublons dans l'ensemble des feuilles d'un classeur et que le résultat de la recherche soit retourné dans mon message box.

Mon code est bien sympathique mais ne retourne qu'un emplacement de doublon à la fois, m'obligeant à cliquer sur Non pour continuer la recherche.

J'aimerais avoir la liste complète des doublons dans la même fenêtre.

Ceci étant la phase 1 de mon défis

La phase 2 serait de faire cette recherche sans avoir à taper la valeur chercher mais, c'est une autre histoire.

Merci de votre aide !!

Sub RechercherMatricule()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String

Nom = InputBox("Matricule à chercher dans toutes les feuilles", "Rechercher")
If Nom <> "" Then
    For Each Sh In ThisWorkbook.Worksheets
        Set c = Sh.Cells.Find(Nom, LookIn:=xlValues, LookAt:=xlPart)  'xlpart = partie du nom et xlwhole = casse exacte
        If Not c Is Nothing Then
            Sh.Activate
            c.Select
            firstAddress = c.Address
            Do
            strreponse = MsgBox("Présence dans " & Sh.Name & "!" & c.Address & vbCrLf & _
                 "Oui pour continuer la recherche" & vbLf & _
                 "Non pour sortir", vbYesNo)
                 If strreponse = vbNo Then Exit Sub
                Set c = Sh.Cells.FindNext(c)
                c.Select
            Loop While Not c Is Nothing And c.Address <> firstAddress
            Set c = Nothing
        End If
    Next Sh
End If
End Sub

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bien parfait Merci beaucoup gmb !

Bonjour,

Merci pour votre réponse rapide.

Je n'arrive pas à faire fonctionner la macro, malgré avoir renommé les rectangles avec les noms et corrigé le nom Paul dans la liste déroulante.

J'ai deux questions :

• Comment la macro sait que c'est le nom de cellule B1 de l'onglet "Chercher une personne" qu'il faut prendre en compte ?
• Et à quoi fait référence le "NOM_SELECTIONNE" ?

J'ai changé j'utilise une seule forme, une rectangle comprenant déjà une flèche à la place du rectangle et de la flèche séparée.

Merci d'avance.

Cordialement,

Lou

Bonjour loulou1604

Je crois que tu as fait une réponse dans le mauvais post...

Bye !

La phase 1 du défis étant relevé

Pensez-vous qu'il y ait une possibilité de lancer cette recherche pour que le contenu de la colonne F de chacune des feuilles soient comparé et que le résultat de la recherche soit retourné dans le msgbox ?

Merci

Le résultat serait :

Matricule 00001 trouvé feuille(S) : feuil1,feuil2 etc.....

Matricule 00008 trouvé feuille(S) : feuil1,feuil2 etc.....

Matricule 00010 trouvé feuille(S) : feuil1,feuil2 etc.....

Matricule 00012 trouvé feuille(S) : feuil1,feuil2 etc.....

Désolé mais je ne vois pas.

Bye !

OK Merci.

Je vais fouiller un peu de mon côté.

Doit bien avoir un bout de code qui sert totalement à autre chose et qui doit être récupérable.

Dès que j'ai de quoi, je relancerai la discussion

Encore merci