Merci pour la 1=E8re soluce, mais j'ai un autre probl=E8me :
Avec ceci :
Private Sub commandbutton5_MouseMove(ByVal Button As=20
Integer, ByVal Shift As Integer, ByVal X As Single, ByVal=20
Y As Single)
CommandButton5.ForeColor =3D RGB(255, 255, 255)
CommandButton5.BackColor =3D RGB(0, 0, 144)
userform1.show (l'userform s'ex=E9cute au passage de la=20
souris, et je souhaiterais que ce soit en cliquant.)
end sub
Quelle instruction rajouter pour qu'il execute un userform=20
avec un click et non pas avec MouseMove tout en gardant=20
cette fonction de MouseMove ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anomymousA
re,
reste sur le même fil STP. C'est + facile pour suivre. Par ailleurs, concernant ta question, ben en utilisant CommandButton5_Click p.e et en enlevant le Userform1.show de la procédure CommandButton5_MouseMove.
A+
Re_bonjour à tous,
Merci pour la 1ère soluce, mais j'ai un autre problème :
Avec ceci : Private Sub commandbutton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton5.ForeColor = RGB(255, 255, 255) CommandButton5.BackColor = RGB(0, 0, 144)
userform1.show (l'userform s'exécute au passage de la souris, et je souhaiterais que ce soit en cliquant.) end sub
Quelle instruction rajouter pour qu'il execute un userform avec un click et non pas avec MouseMove tout en gardant cette fonction de MouseMove ?
Merci Denis
re,
reste sur le même fil STP. C'est + facile pour suivre. Par ailleurs,
concernant ta question, ben en utilisant CommandButton5_Click p.e et en
enlevant le Userform1.show de la procédure CommandButton5_MouseMove.
A+
Re_bonjour à tous,
Merci pour la 1ère soluce, mais j'ai un autre problème :
Avec ceci :
Private Sub commandbutton5_MouseMove(ByVal Button As
Integer, ByVal Shift As Integer, ByVal X As Single, ByVal
Y As Single)
CommandButton5.ForeColor = RGB(255, 255, 255)
CommandButton5.BackColor = RGB(0, 0, 144)
userform1.show (l'userform s'exécute au passage de la
souris, et je souhaiterais que ce soit en cliquant.)
end sub
Quelle instruction rajouter pour qu'il execute un userform
avec un click et non pas avec MouseMove tout en gardant
cette fonction de MouseMove ?
reste sur le même fil STP. C'est + facile pour suivre. Par ailleurs, concernant ta question, ben en utilisant CommandButton5_Click p.e et en enlevant le Userform1.show de la procédure CommandButton5_MouseMove.
A+
Re_bonjour à tous,
Merci pour la 1ère soluce, mais j'ai un autre problème :
Avec ceci : Private Sub commandbutton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton5.ForeColor = RGB(255, 255, 255) CommandButton5.BackColor = RGB(0, 0, 144)
userform1.show (l'userform s'exécute au passage de la souris, et je souhaiterais que ce soit en cliquant.) end sub
Quelle instruction rajouter pour qu'il execute un userform avec un click et non pas avec MouseMove tout en gardant cette fonction de MouseMove ?
Merci Denis
DENIS
Ca fonctionne très bien maintenant. Merci beaucoup !
Denis
-----Message d'origine----- re,
reste sur le même fil STP. C'est + facile pour suivre. Par ailleurs,
concernant ta question, ben en utilisant CommandButton5_Click p.e et en
