SAISIE SEMI-AUTOMATIQUE DES COMBOS ACCESS EN VB .NET

' "" REMARQUE A SUPPRIMER
' "" Cette procédure est à appeler sur le KeyUp de la ComboBox, comme suit

     If (e.KeyValue() >= Keys.A And e.KeyValue() <= Keys.Z) Then
            AutoSelection(Me.CBox.Text, Me.CBox)
        End If

' "" FIN REMARQUE


Sub AutoSelection(ByVal rstrValeurSaisie As String, ByVal rctlCombo As ComboBox)

        ' "" La fonction complète automatiquement la saisie en fonction de la liste du combobox

        Dim strTemp As String
        Dim i As Integer
        Dim n As Integer
        Dim intLongueur As Integer

        On Error GoTo AutoSelection_Err

        n = rctlCombo.Items.Count - 1
        intLongueur = Len(rstrValeurSaisie)

        With rctlCombo
            For i = 0 To n
                If StrComp(Microsoft.VisualBasic.Left(.Items.Item(i), intLongueur), rstrValeurSaisie, vbTextCompare) = 0 Then
                    ' "" On a trouvé un élément qui commence comme la valeur saisie
                    ' "" on le sélectionne
                    .SelectedIndex = i
                    ' "" On surligne la fin du mot
                    .SelectionStart = intLongueur
                    .SelectionLength = 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