OVH Cloud OVH Cloud

Textbox

3 réponses
Avatar
Vincent
Bonjour
Je souhaite ne cliquant dans un textbox lancer un msgbox, puis après clic
sur OK, pouvoir saisir dans ce textbox.
Merci beaucoup
Vincent

3 réponses

Avatar
michdenis
Bonjour Vincent,

Tu peux essayer ceci :

'-------------------
Private Sub ComboBox1_Enter()

MsgBox "Bonjour"

End Sub
'-------------------


Salutations!



"Vincent" a écrit dans le message de news:
Bonjour
Je souhaite ne cliquant dans un textbox lancer un msgbox, puis après clic
sur OK, pouvoir saisir dans ce textbox.
Merci beaucoup
Vincent
Avatar
Vincent
Bravo et merci
C'est très sympa
Vincent

"michdenis" a écrit dans le message de news:
%
Bonjour Vincent,

Tu peux essayer ceci :

'-------------------
Private Sub ComboBox1_Enter()

MsgBox "Bonjour"

End Sub
'-------------------


Salutations!



"Vincent" a écrit dans le message de
news:
Bonjour
Je souhaite ne cliquant dans un textbox lancer un msgbox, puis après clic
sur OK, pouvoir saisir dans ce textbox.
Merci beaucoup
Vincent





Avatar
Frédéric Sigonneau
Bonsoir,

En supposant que le textbox en question s'appelle TextBox1 :

Private Sub TextBox1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
If Me.TextBox1.Text = "" Then MsgBox "coucou"
End Sub

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour
Je souhaite ne cliquant dans un textbox lancer un msgbox, puis après clic
sur OK, pouvoir saisir dans ce textbox.
Merci beaucoup
Vincent