SAISIE SEMI-AUTOMATIQUE DES COMBOS ACCESS EN VB

'REMARQUE A SUPPRIMER
'Cette procédure est à appeler sur le KeyUp de la ComboBox, comme suit
    If (KeyCode >= vbKey0 And KeyCode <= vbKey9) Or _
            (KeyCode >= vbKeyA And KeyCode <= vbKeyZ) Or _
            (KeyCode >= vbKeyNumpad0 And KeyCode <= vbKeyNumpad9) Then
        AutoSelection Me.cboMaCombo.Text, Me.cboMaCombo
    End If
'FIN REMARQUE


Sub AutoSelection(rstrValeurSaisie As String, rctlCombo As ComboBox)
'======================================================
'
'   PURP.  : Simule les combos de access : on tape les
'       premières lettres, et l'appli complète avec
'       les données correspondantes dans la liste
'
'======================================================
'   Déclaration des variables
'======================================================
Dim strTemp As String
Dim i As Integer
Dim n As Integer
Dim intLongueur As Integer
'======================================================

On Error GoTo AutoSelection_Err

    n = rctlCombo.ListCount - 1
    intLongueur = Len(rstrValeurSaisie)
    
    With rctlCombo
        For i = 0 To n
            If StrComp(Left(.List(i), intLongueur), rstrValeurSaisie, vbTextCompare) = 0 Then
                'On a trouvé un élément qui commence comme la valeur saisie
                'on le sélectionne
                .ListIndex = i
                'On surligne la fin du mot
                .SelStart = intLongueur
                .SelLength = Len(.Text) - intLongueur
                Exit For
            End If
        Next i
    End With

AutoSelection_End:
    Exit Sub
    
AutoSelection_Err:
    msgbox err.Number & " : " &  err.description
    Resume AutoSelection_End
    Resume

End Sub