SAISIE SEMI AUTOMATIQUE

Commentaire de EXOCET le 06/07/2002 09:30:48

je vais éssayer tout de suite

Commentaire de Mikey_md le 21/05/2006 23:21:53

Salut, il y a un probleme quand tu "shift" les lettres, mais sinon c'est tres bien comme manip, merci

Commentaire de schmurtz le 05/12/2007 10:55:13

Ca m'a bien dépanné mais il doit exister des controles qui le font directement , non?
En tous cas deux petites modifs sont necessaires :
celle citée ci dessus pour ne pas prendre en compte la touche shift et un petit test pour eviter que ça déconne quond on tape très vite (et que plusieurs occurence de la fonction sont lancées en même temps). Au final :

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
   'Saisie semie-automatique
  
   If KeyCode = vbKeyShift Then Exit Sub
   If KeyCode = vbKeyBack Then Exit Sub
   If Combo1.Text = "" Then Exit Sub
  
    Dim inc1 As Integer
  
   Wcount = Len(Combo1.Text)
    For inc1 = 0 To Combo1.ListCount - 1
    If LCase(Combo1.Text) = LCase(Left(Combo1.List(inc1), Wcount)) Then
        'Combo1.Text = Combo1.Text & Mid(Combo1.List(inc1), Combo1.SelStart + 1)
         Combo1.Text = Combo1.List(inc1)
        If Wcount <> Len(Combo1.Text) Then
            Combo1.SelStart = Wcount
            Combo1.SelLength = Len(Combo1.Text)
            Exit For
        End If
    End If
    Next inc1

End Sub