SAISIE SEMI AUTOMATIQUE
thrakkazz2000
Messages postés
39
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
19 juin 2003
-
17 mai 2002 à 15:33
jpeg93 Messages postés 10 Date d'inscription lundi 14 septembre 2009 Statut Membre Dernière intervention 27 septembre 2009 - 19 sept. 2009 à 16:54
jpeg93 Messages postés 10 Date d'inscription lundi 14 septembre 2009 Statut Membre Dernière intervention 27 septembre 2009 - 19 sept. 2009 à 16:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3339-saisie-semi-automatique
https://codes-sources.commentcamarche.net/source/3339-saisie-semi-automatique
19 sept. 2009 à 16:54
5 déc. 2007 à 10:55
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
21 mai 2006 à 23:24
"If KeyCode = vbKeyShift Then Exit Sub"
apres
"If KeyCode = vbKeyBack Then Exit Sub"
21 mai 2006 à 23:21
14 févr. 2004 à 23:21
Tu merite bien plus que ça
6 juil. 2002 à 09:30
17 mai 2002 à 15:33