Salut,
Aller un petit exemple.
Utilise cette petite procédure.

Private Sub SelectText(Txt As TextBox)
Txt.SelStart = 0
Txt.SelLength = Len(Txt.Text)
End Sub
Coloration syntaxique automatique [AFCK]
Ensuite pour l'appeler utilise l'événement GotFocus du TextBox
Si tout tes TextBox ont un Nom Différent (ne font pas parti d'un groupe de controle)
Alors pour chaque événement
GotFocus tu devra faire l'apel
Exemple pour deux tetxbox appelé Text1 et Text2

Private Sub Text1_GotFocus()
Call SelectText(Text1)
End Sub
Private Sub Text2_GotFocus()
Call SelectText(Text2)
End Sub


En renvanche si tu possède un groupe de controle (tous les textbox ont le meme nom et sont différencier par leur propriété Index)
Tu dois faire l'appel comme suit
Exemple pour un groupe de textbox appelé GrpTxt

Private Sub GrpTxt_GotFocus(Index As Integer)
Call SelectText(GrpTxt(Index))
End Sub

Coloration syntaxique automatique [AFCK]

Voila j'espere avoir pu t'aider un peu
@+,
Ju£i€n