XL 2021 Commentaire au survol d'un checkbox d'un userform

Nicolas JACQUIN

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,

Comme le titre le dit, je cherche à mettre un commentaire ou note au survol d'un checkbox d'un userform,
je sais que ça se fait et qui en a qui savent faire, mais plus moyen de trouver.

Merci d'avance à tous
 
Solution
Bonjour tous le monde,
J'ai trouvé ma solution je pense

Dans un module

VB:
Public Const MyString1 = "Les 1"
Public Const MyString2 = "Les 2"
Public Const MyString3 = "Les 3"
Public Const MyString4 = "Les 4"

Et dans le userform

Code:
Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    commentary CheckBox1, vbCrLf & MyString1
End Sub

Private Sub CheckBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    commentary CheckBox2, vbCrLf & MyString2
End Sub

Private Sub CheckBox3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    commentary CheckBox3, vbCrLf & MyString3...

patricktoulon

XLDnaute Barbatruc
re
chez moi ça fonctionne très bien comme tu peux voir
ajoute du temps pour voir mais je doute que ça soit ça

demo.gif
 

patricktoulon

XLDnaute Barbatruc
re
oui mais ce n'est pas normal que ça fasse ça chez toi
faudrait se poser des questions
surtout que la tu le vois c'est pas du code compliqué et juste l'api du cursor
si un truc aussi simple déraille qu'est ce qu'il doit se passer sur des codes plus complexes
c'est pour toi que je le dit ;) et c'est pas la première
ca viens peut être de la ta facon de coder des action en passerelle comme ça

Nicolas sur mon 2016 64 ça marche aussi
 

Discussions similaires

Statistiques des forums

Discussions
312 545
Messages
2 089 457
Membres
104 168
dernier inscrit
alain_geremy