XL 2013 Recherche qui fonctionne avec le texte et non la Value

[youguybass]

Bonjour

Le code ci-dessous me permet d'aller chercher des valeurs de "N° Outil"

les outils sont appelés N° 0001 / N° 0002 / N° 0003 ...

Le problème est que j'ai des outils en double qui sont appelés par exemple N° 0007 et N° 0007 - Bis

Si je fait une recherche du N° 0007 la recherche ne trouvera que le N° 0007 - Bis !

Il faudrait une recherche qui fonctionne avec le texte et non la Value

Private Sub BtnRechercheOutil_Click()
Dim NumOutil As String
Feuil3.Activate
Range("A1").Select


NumOutil = Page6ChoixOutil.ListBoxOutillages.Value

    'rechercher
   ActiveSheet.Columns(1).Cells.Find(What:=NumOutil, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    
'**************************
'Activation Formulaire de modificaion
Page7ModificationOutil.Show

End Sub

Merci pour votre aide

 

[xUpsilon]

Bonjour,

Pour une recherche par égalité, utiliser RECHERCHEV ou INDEX + EQUIV (en VBA, Worksheetfunction.VLookUp et Worksheetfunction.Index/Worksheetfunction.Match).

Bonne journée,

 

[job75]

Bonjour youguybass, xUpsilon,

Avec le code de post #1 utiliser LookAt:=xlWhole

A+

 

[youguybass]

Bonjour youguybass, xUpsilon,

Avec le code de post #1 utiliser LookAt:=xlWhole

A+

Merci bcp
Cela fonctionne parfaitement