Bonjour,

J'ai une combobox :

quand je clique sur une proposition de la liste de cette combobox, je souhaiterais qu'une recherche "xlwhole" se fasse ->
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set F = .Find(ComboBoxSté, LookIn:=xlValues, Lookat:=xlWhole)
et quand je tape du texte dans cette combobox, je souhaiterais qu'une recherche non "xlwhole" se fasse ->
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set F = .Find(ComboBoxSté, LookIn:=xlValues)
Comment puis-je faire cela via un appel de procédure ?


Du style :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ComboBoxSté_Click()
    ChoixSur=True
    Call Localisation("xlWhole")
End Sub
 
Sub ComboBoxSté_LostFocus()
    If ChoixSur <> True Then Call Localisation
End Sub
 
Sub Localisation(Choix As String)
    Application.ScreenUpdating = True
    If Len(ComboBoxSté) > 2 Then
        With Worksheets("Sociétés").Range("B3:B300")
            Set F = .Find(ComboBoxSté, LookIn:=xlValues, Lookat:=)
            If Not F Is Nothing Then
            ...