Combobox avec Saisie semie automatique Résolu

Question

Bonjour, 


Plutot novice en code je souhaiterai paramètrer une combobox dans un userform permettant la saisie semi automatique à partir des caractère entrés.
Ma combobox est reliée à  une liste de noms présents en sheet 1 .

Jusqu'a présent,  ma Combobox  reconnait les noms "commencant"   par les caractères entrés mais pas les résultats "comprenant" les caractères . 

Par exemple, si j'entre dans le champde la combo les caractères "ABC", la Combobox m'affiche tt les noms de la forme (ABCxxx, ABCxxxy, ABCxxyz...) et je voudrais qu'elle m'affiche tt les nom comprenant "ABC", c'est à dire (xxxABCxx, ABCxxx, xxxABC...)

 Pouvez vous m'aider ??? hyper imp^

Merci

jordane45 · Answer

Bonjour,

Je pense que pour y parvenir il va te falloir utiliser la méthode FIND d'Excel.
voir... la fonction FINDALL:

Function FindAll(ByVal sText As String, ByRef oSht As Worksheet, ByRef sRange As String, ByRef arMatches() As String) As Boolean
' --------------------------------------------------------------------------------------------------------------
' FindAll - To find all instances of the1 given string and return the row numbers.
' If there are not any matches the function will return false
' --------------------------------------------------------------------------------------------------------------
On Error GoTo Err_Trap
Dim rFnd As Range ' Range Object
Dim iArr As Integer ' Counter for Array
Dim rFirstAddress ' Address of the First Find
' -----------------
' Clear the Array
' -----------------
Erase arMatches
Set rFnd = oSht.Range(sRange).Find(what:=sText, LookIn:=xlValues, lookAt:=xlPart)

If Not rFnd Is Nothing Then
rFirstAddress = rFnd.Address
Do Until rFnd Is Nothing
iArr = iArr + 1
ReDim Preserve arMatches(iArr)
arMatches(iArr) = rFnd.Row 'rFnd.Address pour adresse complete ' rFnd.Row Pour N° de ligne
Set rFnd = oSht.Range(sRange).FindNext(rFnd)
If rFnd.Address = rFirstAddress Then Exit Do ' Do not allow wrapped search
Loop
FindAll = True
Else
' ----------------------
' No Value is Found
' ----------------------
FindAll = False
End If
' -----------------------
' Error Handling
' -----------------------
Err_Trap:
If Err <> 0 Then
MsgBox Err.Number & " " & Err.Description, vbInformation, "Find All"
Err.Clear
FindAll = False
Exit Function
End If
End Function


Exemple d'utilisation:

Sub Exemple_util_Findall()

Dim arTemp() As String 'variable tableau pour la fonction Findall
Dim ValCherchee as string
ValCherchee="test"
Dim Nom_Feuil as string
Nom_Feuil = "Feuil1"

'---------------------------------------------------------------
bFound = FindAll(ValCherchee, Sheets(Nom_Feuil), ma_plage, arTemp())
'---------------------------------------------------------------

If bFound = True Then
Debug.Print "Nb occurences : " & UBound(arTemp)
For X = 1 To UBound(arTemp)
debug.print arTemp(X)
Next
End If

End sub

Combobox avec Saisie semie automatique

1 réponse

Votre réponse

Discussions similaires