Macro de recherche

[bobafric]

bonjour,
je voudrai faire une macro de recherche pour trouver un mot entier dans une phrase on un mot composé qui contient celui-ci.
J'ai déjà une macro ci-dessous qui existe:
bonjour,
je voudrai faire une macro de recherche pour trouver un mot entier dans une phrase on un mot composé qui contient celui-ci.
J'ai déjà une macro ci-dessous qui existe:

Sub RechercherNom()
Dim Sh As Worksheet
Dim c As Range
Dim Nom As String, firstAddress As String
 
Nom = InputBox("Taper le nom en Français", "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(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

mais si je tape en forme xlpart j'obtiens tous les mots qui contiennent les mêmes lettres exemple je cherche PIN, j'obtiens AUBEPINE, SAPIN etc
Si j'utilise la forme xlwhole je suis obligé de taper tous les mots qui compose le nom que je recherche exemple si je tape PIN je n'obtient rien parce que les noms sur mon classeur sont composés, comme pin parasol, pin maritime etc.
Don cje voudrai taper PIN et avoir tous les noms qui sont composés avec ce mot.
J'espère être assez clair.
Merci d'avance pour votre collaboration.

 

[Paritec]

Re : Macro de recherche

Re Bobafric le forum
mais tu sais que tu as plein de doublons dans tes feuilles??
a+
papou