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

youguybass

XLDnaute Junior
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


VB:
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
 

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T