PrinceCorwin
XLDnaute Occasionnel
Bonjour les amis,
Je souhaiterai faire un contrôle de saisie dans un textbox d'un formulaire, et que ce contrôle fasse "à la façon" d'Excel.
Quand vous commencez à écrire un mot, excel termine le mot s'il à déjà rencontrer un autre mot qui commence pareil. Excel met à jour la fin du mot au fur et à mesure que vous tapez le mot.
Voilà, je souhaiterai faire pareil. Pour facilité la saisie dans les formulaires.
J'ai déjà commencé, mais cela ne va pas tout à fait comme il faut.
Ci-joint le script en question.
Et là.. ca ne va pas.
Merci à tout ceux qui pourrait me venir en aide.
ZeB
Je souhaiterai faire un contrôle de saisie dans un textbox d'un formulaire, et que ce contrôle fasse "à la façon" d'Excel.
Quand vous commencez à écrire un mot, excel termine le mot s'il à déjà rencontrer un autre mot qui commence pareil. Excel met à jour la fin du mot au fur et à mesure que vous tapez le mot.
Voilà, je souhaiterai faire pareil. Pour facilité la saisie dans les formulaires.
J'ai déjà commencé, mais cela ne va pas tout à fait comme il faut.
Ci-joint le script en question.
VB:
Private Sub Text5_Change()
Set f = Sheets("data")
derligne = f.[A65000].End(xlUp).Row
'la variable temp reçoit la partie gauche du Text5 sur une longueur à la position du curseur !
pos = Me.Text5.SelStart
temp = Left(Me.Text5.Text, pos)
If derligne > 1 Then
Set o = f.[F:F].Find(what:=temp & "*", LookAt:=xlWhole)
If Not o Is Nothing Then
Me.Text5 = o.Value
End If
End If
Me.Text5.SelStart = pos
Me.Text5.SelText = Mid(Me.Text5.Text, pos)
End Sub
Et là.. ca ne va pas.
Merci à tout ceux qui pourrait me venir en aide.
ZeB
Dernière édition: