Sélection dans une TextBox

Bonjour :D
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 ?

Regarde l'aide sur SelStart et SelLength

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 :roll:

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

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:

---

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:

---

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

---

Remoi :mouarf:
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:

---

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 :yaisse2:
merci a tous :D