Selstart et sellenght

[Fermé]
Signaler
-
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
-
Bonjour,

Private Sub cmdAfficher_Click()
Dim A As Integer
Dim b As String
Dim K As Integer
A = Len(Text1.Text)
For K = 1 To A
    b = Mid(Text1.Text, K, 1)
    If b < "a" Or b > "z" Then
        MsgBox "Erreur", vbCritical
        Text1.SetFocus
        Text1.SelStart = K - 1 
        Text1.SelLength =?
        Exit Sub
    End If
Next K
MsgBox "OK"
Text1.SetFocus
Text1.Text = ""
End Sub


quelq'un peut m'aider pour selectionner le(s) premier erreur ?
ex: lorsque j'ecris bonjour12345atous6521 dans le textbox , les chiffres 12345 sera sélectionner

EDIT: Ajout de la coloration syntaxique.
A voir également:

3 réponses

Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Bonjour,

Pour répondre à ta question:

ex: lorsque j'ecris bonjour12345atous6521 dans le textbox , les chiffres 12345 sera sélectionner


With TextBox1
    .SetFocus
    .SelStart = 7
    .SelLength = 5
End With


@+ Le Pivert
merci a toi mais si je change la place du chiffre 12345, ça fonctionne plus. faut qu'il soit automatique. mon problème c'est la fin de la sélection vue que j'ai déjà fait le début du sélection (K-1).
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Voilà

Dim position As Integer
position = InStr(1, TextBox1, "1", 0)
With TextBox1
    .SetFocus
    .SelStart = position - 1
    .SelLength = 5
End With

Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Quand je lis ceci:

mon problème c'est la fin de la sélection vue que j'ai déjà fait le début du sélection (K-1).

Sait-tu ce que signifie:

.SelLength

c'est la longueur du texte à sélectionner!

Tu la connaît 12345 cela fait 5 caractères

Là je ne vois pas où est le problème!!!!!!!