Selectionner Texte dans TextBox

Bonjour à tous

J'ai un petit soucis technique,

J'ai une UserForm1 avec 8 TextBox (de TextBox10 à TextBox17).

Lorsque j'ouvre ma UserForm à partir d'excel via un bouton, j'ai demandé à ce que les TextBox de 10 à 17 soit remplies par 0.

C'est la qu'arrive ma question

Comment puis je faire que lorsque j'ouvre ma UserForm ou lorsque je clique sur une textBox, l'intégralité du texte de cette box se sélectionne (comme lorsqu'on surligne avec la souris)

Merci d'avance

Bonjour,

essaye peut être ceci :

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With TextBox1
    .SelStart = 0
    .SelLength = Len(.Text)
    .SetFocus
End With
End Sub

bonne journée

@+

Parfait !

Merci beaucoup