Sujet Précédent Sujet Suivant

Modifier infobulle sur nuage de points excel 2003

Résolu/Fermé
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 - 17 déc. 2014 à 15:19
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 - 20 déc. 2014 à 16:19
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

Réponse 1 / 11
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
20 déc. 2014 à 02:19
Bonsoir,

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

cordialement
1
Réponse 2 / 11
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
20 déc. 2014 à 14:33
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
Réponse 3 / 11
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
20 déc. 2014 à 15:44
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
Réponse 4 / 11
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
19 déc. 2014 à 13:26
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
Réponse 5 / 11
Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
20 déc. 2014 à 01:43
Peut-être ! On fait tant de choses avec une macro ...
0
Réponse 6 / 11
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
Modifié par ccm81 le 20/12/2014 à 14:04
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 mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
20 déc. 2014 à 14:08
salut ccm81,

t'as un fichier avec ce que tu veux?
0
Réponse 7 / 11
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
20 déc. 2014 à 14:15
Voilà ce que j'ai pu obtenir
https://www.cjoint.com/?3LuowHy5Yxi
0
Réponse 8 / 11
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
20 déc. 2014 à 15:00
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 mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
20 déc. 2014 à 15:04
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
Réponse 9 / 11
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
20 déc. 2014 à 15:09
OK, et quelle est la manip? (Je découvre les Modules de classe alors tu comprendras que je galère ferme)
0
Réponse 10 / 11
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
20 déc. 2014 à 16:19
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
Réponse 11 / 11
Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
18 déc. 2014 à 05:49
C'est impossible.
-3