Modifier infobulle sur nuage de points excel 2003

Résolu
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

11 réponses

JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
Bonsoir,

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

cordialement
1
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
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+
1
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
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
1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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) ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Raymond PENTIER Messages postés 58988 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
Peut-être ! On fait tant de choses avec une macro ...
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
salut ccm81,

t'as un fichier avec ce que tu veux?
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Voilà ce que j'ai pu obtenir
https://www.cjoint.com/?3LuowHy5Yxi
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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 If
End Sub

Cdlmnt
0
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
bin normal puisque j'ai viré l'infobulle pour rediriger vers le texbox!!

si tu veux les 2, il faut remettre la partie infobulle dans le module de classe

cdlt
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
OK, et quelle est la manip? (Je découvre les Modules de classe alors tu comprendras que je galère ferme)
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Raymond PENTIER Messages postés 58988 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
C'est impossible.
-3