Modifier infobulle sur nuage de points excel 2003 Résolu/Fermé

Question

Bonjour

Comment peut on modifier l'infobulle lorsqu'on passe la souris sur un point d'un graphique de type nuage de points (excel 2003)

Merci

Raymond PENTIER · Answer

C'est impossible.

ccm81 · Answer

Je me doute bien que ça doit être tordu, mais n'y a t'il pas un un moyen d'y arriver via macro(s) ?

Raymond PENTIER · Answer

Peut-être ! On fait tant de choses avec une macro ...

JvDo · Answer

Bonsoir,

regarde ce que MichelXld ou jboisgontier proposent :https://www.excel-downloads.com/threads/nuages-de-points-label-infobulles.108776/

cordialement

ccm81 · Answer

Merci,

J'ai réussi à récupérer le n° du point, c'est déjà quelque chose, mais pas à modifier l'infobulle attachée au point

Cdlmnt

ccm81 · Answer

Voilà ce que j'ai pu obtenir
https://www.cjoint.com/?3LuowHy5Yxi

JvDo · Answer

une proposition: https://www.cjoint.com/c/DLuoNXbztJW

il faut l'affiner car elle ne différencie pas un point d'une graduation d'axe.

A+

ccm81 · Answer

Merci,

J'ai ajouté le test sur la valeur de ElementID (3 pour un point) et transformé AfficheInfo en fonction (ça fait plus propre), ça fonctionne bien (et c'est plus gratifiant que le double-clic) pour remplir le textbox, mais ça n'agit pas sur l'infobulle des points

Private Sub Graph_MouseMove(ByVal Button As Long, ByVal Shift As Long, _                    ByVal x As Long, ByVal y As Long)    Dim ElementID As Long    Dim Arg1 As Long, Arg2 As Long    On Error Resume Next    ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2    If ElementID <> 3 Or Arg2 = 0 Then        ActiveSheet.TextBox1.Text = ""    Else        ActiveSheet.TextBox1.Text = AfficheInfos(Arg2)    End IfEnd Sub
Cdlmnt

ccm81 · Answer

OK, et quelle est la manip? (Je découvre les Modules de classe alors tu comprendras que je galère ferme)

JvDo · Answer

d'abord il faut ajouter un rectangle dans  chaque graphique puis remettre le masquage du rectangle si le mouseover n'est pas sur un point, et remettre l'affichage de ce "rectangle 1" avec le contenu de textbox1.text créé par ta macro.

j'ai modifié le positionnement du rectangle pour que ce soit plus agréable quand tu promènes la souris.

https://www.cjoint.com/c/DLupZWNFVjG

cordialement

ccm81 · Answer

Jolie ruse pour contourner le problème, il ne reste qu'à travailler sur les coordonnées du rectangle pour qu'il ne disparaisse pas lorsqu'on s'approche des bords du graphique, ça, je pense m'en sortir tout seul
Merci encore
J'attends un peu pour mettre en résolu

Bonne fin de journée à toi

Cordialement

Modifier infobulle sur nuage de points excel 2003

11 réponses

Discussions similaires