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
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

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
Pour ma part, ca bug sur wcount... que puis-je faire ?
schmurtz
Messages postés
10
Date d'inscription
mercredi 13 février 2002
Statut
Membre
Dernière intervention
18 janvier 2009

5 déc. 2007 à 10:55
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
Mikey_md
Messages postés
33
Date d'inscription
dimanche 10 octobre 2004
Statut
Membre
Dernière intervention
2 février 2014

21 mai 2006 à 23:24
en fait il faut ajouter
"If KeyCode = vbKeyShift Then Exit Sub"
apres
"If KeyCode = vbKeyBack Then Exit Sub"
Mikey_md
Messages postés
33
Date d'inscription
dimanche 10 octobre 2004
Statut
Membre
Dernière intervention
2 février 2014

21 mai 2006 à 23:21
Salut, il y a un probleme quand tu "shift" les lettres, mais sinon c'est tres bien comme manip, merci
algo69
Messages postés
47
Date d'inscription
samedi 13 décembre 2003
Statut
Membre
Dernière intervention
13 mars 2005

14 févr. 2004 à 23:21
ça marche merci;

Tu merite bien plus que ça
Afficher les 7 commentaires