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
Merci pour votre aide
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 SubMerci pour votre aide