Positionnement du commentaire
Bonjour,
Nowhereman a écrit :Est-il possible d'arriver à ce résultat sans devoir cliquer ?
Galopin a écrit :Sans doute mais cela dépasse mes compétences...
Le commentaire s'affiche par définition au survol de la souris.
La solution de Boisgontier repose sur l'obligation de cliquer : Vous en avez demandé quelques variations de cette proposition c'est chose faite.
Pour changer le fonctionnement "au survol" ça n'existe pas encore !
A+
galopin01 a écrit :Bonjour,
Nowhereman a écrit :Est-il possible d'arriver à ce résultat sans devoir cliquer ?
Galopin a écrit :Sans doute mais cela dépasse mes compétences...
Le commentaire s'affiche par définition au survol de la souris.
La solution de Boisgontier repose sur l'obligation de cliquer : Vous en avez demandé quelques variations de cette proposition c'est chose faite.
Pour changer le fonctionnement "au survol" ça n'existe pas encore !
A+
Une alternative est un bouton pour faire apparaître le commentaire et disparaître.
Est possible d'avoir un bouton qui execute alternativement deux actions?
Un clic: j'affiche
Un clic: je masque
Sub test()
Range("a1").Comment.Visible = True
End Sub
Sub test02()
Range("a1").Comment.Visible = False
End Sub
Ici j'ai fait un test avec deux boutons et ca fonctionne. Quid d'un bouton faisant les deux?
Biensur que c'est possible, il suffit de faire une macro qui vérifie si les commentaires sont affichés. S'ils le sont, ça les masque, sinon, ça les affiche.
Ne pourrait-on pas adapter ceci au commentaire?
Survol texte dans un formulaire
SurvolTexte
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 5 Or X > Label1.Width - 5 Or Y < 5 Or Y > Label1.Height - 5 Then
Me.Image1.Visible = False
Me.Label1.ForeColor = vbBlack
Else
Me.Image1.Visible = True
Me.Label1.ForeColor = vbRed
End If
End Sub
J'ai trouvé ça sur http://boisgontierjacques.free.fr/pages_site/evenements.htm#SurvolForm
Une vrai référence ce site!
Je me suis lancé dans des tests et c'est parfait comme alternative à un commentaire!