Discussion :

[Oh!Tofocus]

Bonjour
j'ai un Userform avec une TextBox1 avec une valeur : chaine de caractères

Je voudrais pouvoir par macro selectionner cette valeur
avec TextBox1.SetFocus, le curseur se positionne en fin de chaine de carractère mais ne sélectionne pas la valeur ( en bleu foncé )...
Comment faire ?

[AlainTech]

Regarde l'aide sur SelStart et SelLength

[Oh!Tofocus]

Merci de ton aide AlainTech
mais je n'arrive toujours pas à résoudre mon problème :

je me suis peut être mal expliqué.

j'ai une TextBox1 ou je rentre une valeur
quand j'appuie sur enter une macro démarre
si la valeur entrée n'est pas la valeur que j'attends
je voudrais que la valeur à l'intérieur de la TextBox1 soit présélectionnée ( avec le fond bleu) pour pouvoir être encore visible mais disparaitre dés que l'on entre un nouveau caractère.

est-ce plus clair

[ucfoutu]

Bonsoir,

La réponse que tu as reçue d'AlainTech me parait claire et suffisante.

Je la complète simplement par cette précision : si ta textbox n'a plus le focus, il faut le lui donner (setFocus) après cette manipulation par selstart et SelLength si tu veux à la fois voir ton texte en surbrillance et y retourner (autrement donc que par un clic qui ferait perdre la sélection).
C'est donc dans ta procédure appelée que tu dois (uniquement si la vérifdication conduit à la découverte de cette nécessité) :
- mettre ton selstart à 0
- mettre ton SelLength à la longueur du texte présent dans la textbox
- donner le focus à la textbox

[Oh!Tofocus]

Merci ucefoutu pour tes explications.
Mais je n'arrive pas exactement à ce que je veux:
mon code marche que si la routine est demarrée par un click bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
If TextBox1.Value <> "aaa" Then
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Value)
    TextBox1.SetFocus
Else
    MsgBox ("code bon")
End If
 
End Sub

et ne marche pas si je l'associe à la validation de la TextBox1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox1_exit(ByVal Cancel As MSForms.ReturnBoolean)
 
If TextBox1.Value <> "aaa" Then
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Value)
    TextBox1.SetFocus
Else
    MsgBox ("code bon")
 
End If
 
End Sub

[Oh!Tofocus]

Remoi
Vraiment je perds la mémoire
en combinant les réponses ( AlainTech & ucfoutu ) de ce post et une solution de pgz d'un post debut décembre http://www.developpez.net/forums/d65...e/#post3857502
j'ai résolu mon problème

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
Dim bChange As Boolean
 
 
Private Sub CommandButton1_Click()
MsgBox "coucou"
End Sub
 
Private Sub TextBox1_Change()
bChange = True
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If bChange Then
If TextBox1.Value <> "aaa" Then
MsgBox ("non trouve")
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Value)
    Cancel = True
    bChange = False
Else
MsgBox ("trouvé")
End If
 
 
End If
End Sub
 
Private Sub UserForm_Initialize()
 
bChange = False
TextBox1.SetFocus
End Sub

la saisie est possible et les boutons sont accessibles pendant la saisie
merci a tous