Discussion :

[Invité]

Bonjour,

J'ai bien trouvé un moyen pour que le texte d'un textbox soit sélectionné avec la souris. j'ai plusieurs textboxs, j'ai donc repris ce code pour tous les textboxs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(TextBox1.Text)
End With
End Sub

Voici ma question: y a-t-il un moyen pour gérer tous les textboxs, comme une boucle?

En vous remerciant par avance.

[casefayere]

Bonjour,

lesboucles, voir icihttp://silkyroad.developpez.com/VBA/...UserForm/#LI-B

[Invité]

Bonjour Casefayere,

Merci pour le lien, mais ça ne m'aide pas beaucoup. J'ai peut-être posé la mauvaise question (Boucle). Je ne connais pas toutes les possibilités du VBA.

Etant donné que j'utilise l’événement textbox_MouseMove pour chaque textbox, existe-il un moyen pour avoir un code "générique" pour gérer tous les textboxs.

J'ai 13 textboxs et j'ai mis le même code sur les 13 événements MouseMove en adaptant les numéros des textboxs.

j'ai essayé ainsi mais ça plante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Msforms.TextBox_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)