Re : recherche de plusieurs mots dans une chaine de caracteres
Oops, désolé
re voici le lien, avec le code.
Private Sub ComboBox1_Change()
Dim T, L() As String
T = Split(ComboBox1.Text, " ")
j = 1
For Each cel In Range("A1:A20")
For i = 0 To UBound(T)
If cel Like "*" & T(i) & "*" Then
compteur = compteur + 1
End If
Next
If compteur = UBound(T) + 1 Then
ReDim Preserve L(1 To j)
L(j) = cel
j = j + 1
End If
compteur = 0
Next
'ComboBox1.Clear
On Error Resume Next
If Not IsEmpty(UBound(L)) Then ComboBox1.List = L
End Sub
Donc ca fonctionne mais j'ai du mettre un ' devant combobox1.clear car quand je selectionne une donnée, la celulle de la combo s'effaçait automatiquement.
maintenant, la celulle de la combo ne s'efface plus lorsque je sélectionne une donnée, mais si je tape "cloo", il devrait me retourner une liste vide puisqu'il n'y a aucun texte qui correspond à "cloo", et c'est pas le cas.
Finalement, je me suis un peu trop emballé en disant que ça fonctionnait, enfin si ça marche, mais........je suis p'tet un peu trop pointilleux