Bonsoir
Peut-on dans un textbox avoir une saisie semi auto.
J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste,
sur mon userform, un textbox.
Je souhaite que lorsque l'on saisit les premières lettres, cela me donne, la
suite.
Merci beaucoup
Vincent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
docm
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode 46 Then Exit Sub If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next End Sub
Sous toutes réserves.
"Vincent" wrote in message news:
Bonsoir Peut-on dans un textbox avoir une saisie semi auto. J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste, sur mon userform, un textbox. Je souhaite que lorsque l'on saisit les premières lettres, cela me donne, la
suite. Merci beaucoup Vincent
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode 46 Then Exit Sub
If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text
d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next
End Sub
Sous toutes réserves.
"Vincent" <v.herlat@tiscali.fr> wrote in message
news:uDMBWWolEHA.952@TK2MSFTNGP14.phx.gbl...
Bonsoir
Peut-on dans un textbox avoir une saisie semi auto.
J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste,
sur mon userform, un textbox.
Je souhaite que lorsque l'on saisit les premières lettres, cela me donne,
la
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode 46 Then Exit Sub If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next End Sub
Sous toutes réserves.
"Vincent" wrote in message news:
Bonsoir Peut-on dans un textbox avoir une saisie semi auto. J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste, sur mon userform, un textbox. Je souhaite que lorsque l'on saisit les premières lettres, cela me donne, la
suite. Merci beaucoup Vincent
Vincent
Ok merci DOCM Je te contacterai. Bonne soirée. Vincent
"docm" a écrit dans le message de news:
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode 46 Then Exit Sub If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next End Sub
Sous toutes réserves.
"Vincent" wrote in message news:
Bonsoir Peut-on dans un textbox avoir une saisie semi auto. J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste, sur mon userform, un textbox. Je souhaite que lorsque l'on saisit les premières lettres, cela me donne,
la
suite. Merci beaucoup Vincent
Ok merci DOCM
Je te contacterai.
Bonne soirée.
Vincent
"docm" <docmarti@spamcolba.net> a écrit dans le message de
news:OdgoIYrlEHA.1672@TK2MSFTNGP14.phx.gbl...
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode
46 Then Exit Sub
If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text
d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next
End Sub
Sous toutes réserves.
"Vincent" <v.herlat@tiscali.fr> wrote in message
news:uDMBWWolEHA.952@TK2MSFTNGP14.phx.gbl...
Bonsoir
Peut-on dans un textbox avoir une saisie semi auto.
J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste,
sur mon userform, un textbox.
Je souhaite que lorsque l'on saisit les premières lettres, cela me
donne,
Ok merci DOCM Je te contacterai. Bonne soirée. Vincent
"docm" a écrit dans le message de news:
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode 46 Then Exit Sub If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next End Sub
Sous toutes réserves.
"Vincent" wrote in message news:
Bonsoir Peut-on dans un textbox avoir une saisie semi auto. J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste, sur mon userform, un textbox. Je souhaite que lorsque l'on saisit les premières lettres, cela me donne,
la
suite. Merci beaucoup Vincent
docm
Ce sera le tarif usuel. :)
"Vincent" wrote in message news:
Ok merci DOCM Je te contacterai. Bonne soirée. Vincent
"docm" a écrit dans le message de news:
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode
46 Then Exit Sub If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next End Sub
Sous toutes réserves.
"Vincent" wrote in message news:
Bonsoir Peut-on dans un textbox avoir une saisie semi auto. J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste, sur mon userform, un textbox. Je souhaite que lorsque l'on saisit les premières lettres, cela me donne,
la
suite. Merci beaucoup Vincent
Ce sera le tarif usuel. :)
"Vincent" <v.herlat@tiscali.fr> wrote in message
news:uPTaOY3lEHA.3156@TK2MSFTNGP12.phx.gbl...
Ok merci DOCM
Je te contacterai.
Bonne soirée.
Vincent
"docm" <docmarti@spamcolba.net> a écrit dans le message de
news:OdgoIYrlEHA.1672@TK2MSFTNGP14.phx.gbl...
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or
KeyCode
46 Then Exit Sub
If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text
d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next
End Sub
Sous toutes réserves.
"Vincent" <v.herlat@tiscali.fr> wrote in message
news:uDMBWWolEHA.952@TK2MSFTNGP14.phx.gbl...
Bonsoir
Peut-on dans un textbox avoir une saisie semi auto.
J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste,
sur mon userform, un textbox.
Je souhaite que lorsque l'on saisit les premières lettres, cela me
donne,
Ok merci DOCM Je te contacterai. Bonne soirée. Vincent
"docm" a écrit dans le message de news:
Bonsoir Vincent.
Tu peux essayer quelque chose dans le genre :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Or KeyCode = 37 Or KeyCode = 39 Or KeyCode
46 Then Exit Sub If TextBox1.Text = "" Then Exit Sub
a = TextBox1.Text d = TextBox1.SelStart
For Each c In Range("MALISTE")
If UCase(Mid(c, 1, Len(a))) = UCase(a) Then
TextBox1.Text = c
TextBox1.SelStart = d
TextBox1.SelLength = Len(c)
End If
Next End Sub
Sous toutes réserves.
"Vincent" wrote in message news:
Bonsoir Peut-on dans un textbox avoir une saisie semi auto. J'ai dans ma feuille de calcul des noms, dans une liste nommé Maliste, sur mon userform, un textbox. Je souhaite que lorsque l'on saisit les premières lettres, cela me donne,