Salut,
Non cette constante est juste là pour qu'il y ait quelque chose dans la textbox à l'initialisation de la textbox. Par contre pour modifier tu peux passer par le bouton droit de la souris et donc on aura:
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case 1: HyperK TextBox1.Text
Case 2: TxtB TextBox1
End Select
If Err <> 0 Then TxtB TextBox1: Err.Clear
End Sub
Private Sub TxtB(Ctrl As MSForms.TextBox)
With Ctrl
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
A+++