Discussion :

[carterjr]

Bonjour a tous!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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 = ?
             Text1.SelLength =? 
             Exit Sub 
       End If 
Next K 
MsgBox "OK" 
Text1.SetFocus 
Text1.Text = "" 
End Sub

quelq'un peut m'aider à selectionner le(s) premier erreur ? (ici l'erreur c'est les chiffres )
ex: lorsque j'ecris bonjour12345atous6521 dans le textbox , les chiffres 12345 sera selectionner automatiquement . je sais pas quoi mettre sur le selstart et le sellenght
désolé mais je sais pas trop expliqué

[ProgElecT]

Salut

Ton code un peu modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub cmdAfficher_Click()
Dim LenTxt As Integer 'Longueur du text
Dim Cpt As Integer 'Compteur
Dim Char As String 'Caractére scanné
Dim PosStart As Integer, PosFin As Integer 'position debut et fin de la selection
 
LenTxt = Len(Text1.Text)
PosStart = -1
'bonjour12345atous6521
'bonjour a tous6521
'12345 bonjour a tous6521
For Cpt = 0 To LenTxt - 1
       Char = Mid(Text1.Text, Cpt + 1, 1)
       'If Char < "a" Or Char > "z" Then
       If IsNumeric(Char) Then
             If PosStart = -1 Then PosStart = Cpt 'premiere rencontre d'un chiffre
             'MsgBox "Erreur", vbCritical
             'Text1.SelStart = ?
             'Text1.SelLength =?
             'Text1.SetFocus
             'Exit Sub
             Else
             If PosStart <> -1 Then PosFin = Cpt: Exit For
       End If
Next Cpt
If PosStart <> -1 And PosFin = 0 Then PosFin = Cpt
If PosStart = -1 Then
    MsgBox "OK"
    Text1.Text = ""
    Else
    Text1.SelStart = PosStart
    Text1.SelLength = PosFin - PosStart
    MsgBox "Erreur", vbCritical
End If
Text1.SetFocus
End Sub

Penses à mettre ton Text1.HideSelection = False

Tu pourrais/devrais aussi contrôler au moment de la saisie, voir dans la FAQ , plus particulièrement Comment contrôler les caractères qui peuvent être saisis dans un textbox ?

[carterjr]

merci beaucoup ça fonctionne nickel