saisie semi automatique combobox

[chinel]

Salut tout le monde!

je voudrais svp trouver comment faire une saisie semi automatique dans une combobox
j'ai une liste dans la feuil1 en A1:A6 et dedans des dates si je frappe 19 ao...
alors la combobox me donne 19 août 2009

Merci !

 

[Guest]

Re : saisie semi automatique combobox

Bonjour Chinel,

Voici un exemple,pour le reste je te laisse faire tu trouveras des solutions sur le site.

Private Sub ComboBox1_Change()
    Dim i As Integer, pos As Byte
    With ComboBox1
        pos = Len(.Text)
        If pos > 0 Then
            For i = 0 To .ListCount - 1
                If Left(.List(i), pos) = .Text Then
                    .ListIndex = i
                    .SelStart = pos
                    .SelLength = Len(.Text) - pos
                End If
            Next i
        End If
    End With

End Sub

A+