Mettre un texte en surbrillance

[Clark]

Bonjour au forum,

petite question, j'ai un champ Textbox dans une feuille excel et j'aimerais lorsque l'utilisateur clique sur ce champ pour rentrer dedans afin de saisir qqchose, que le texte qui s'y trouve déjà, se mette en surbrillance pour qu'il puisse taper son texte directement sans avoir à effacer ce qu'il y a déjà dedans.

merci pour votre attention
Clark

 

[roro69]

Re : Mettre un texte en surbrillance

Tiens essaye ceci:
Private Sub Text1_GotFocus(Index As Integer)

Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)

End Sub

 

[Clark]

Re : Mettre un texte en surbrillance

Royla Roro69, c'est pile poil ce qu'il me fallait.
Par contre, j'ai viré la notion d'index qui plantait. Et ca marche très bien sans.

Merci encore!

Clark

 

[gauchou]

Re : Mettre un texte en surbrillance

Royla Roro69, c'est pile poil ce qu'il me fallait.
Par contre, j'ai viré la notion d'index qui plantait. Et ca marche très bien sans.

Merci encore!

Clark

Salut le forum, clark et roro,

je ne parviens à mixer ces deux macro, celle donnée par roro au dessus et remanié par clark( mais je ne sais pas comment), et la mienne:

Private Sub Affaire_Change()
[A2] = UsfAffaire.Affaire
End Sub

en résumé: je voudrais que lorque que ma USF s'ouvre, les données déjà présentes se mettent en surbrillance lorque l'on clique dans le champs de la texte box.

Merci d'avance.