Selstart et sellenght

Fermé

carter - Modifié par pijaku le 12/02/2015 à 08:40
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 12 févr. 2015 à 09:10

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:

Selstart vba
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par pijaku le 12/02/2015 à 08:41

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

carter
Modifié par carter le 11/02/2015 à 17:33

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

Réponse 2 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
11 févr. 2015 à 18:34

Voilà

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

Réponse 3 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 févr. 2015 à 09:10

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters