Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

histogramme cliquable

  • Initiateur de la discussion julie
  • Date de début
J

julie

Guest
Salut à tous, je voulais vous demander si il est possible de pouvoir affecter une macro à un bâton d'un histogramme sur un graph EXCEL.
C'est à dire je veux que si je clic sur une valeur ça me renvoie sur une autre page.

Merci d'avance
Bisous à tous
 
A

Arnaud

Guest
salut,

apparement selon l'aide c faisable mais g pas réussit à l'utiliser mais bon je te met l'exemple de l'aide, tu y arriveras pe être.

"
Cet exemple montre comment ne pas tenir compte du double-clic par défaut pour le plancher du graphique.

Private Sub Chart_BeforeDoubleClick(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)

If ElementID = xlFloor Then
Cancel = True
MsgBox "Chart formatting for this item is restricted."
End If

End Sub

"
 
A

Arnaud

Guest
g eu du mal mais g réussi a faire un bout de truc.
a adapter.
 

Pièces jointes

  • graph.zip
    9.4 KB · Affichages: 48
  • graph.zip
    9.4 KB · Affichages: 45
  • graph.zip
    9.4 KB · Affichages: 50
A

Arnaud

Guest
a et j'ai oublier de mettre une ligne pour que la fenêtre de propriété qui s'ouvre normalement ne s'ouvre pas. cela donne ça :

Private Sub cht_BeforeDoubleClick(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
Select Case ElementID
Case xlSeries
MsgBox "click sur la barre " 'donc écris ton code ici
Cancel = True
End Select
End Sub
 
S

Sebb

Guest
Salut !
Si tu n es pas trop callée commence par utiliser les macros automatiques !

Outil macro nouvelle macro
tu executes ce que tu veux faire puis tu appuies sur Stop

ensuite tu colles le code (fait tout seul comme par magie) à la place du Msgbox "click sur la barre" que t'as donné Arnaud

Donnes nous de tes nouvelles après ^^
 
A

Arnaud

Guest
ben la y a pu grand chose a faire. faudrais juste savoir ce que tu veux que ça fasse derrière le double click.

envoi une pièce jointe avec un exemple mais j'verrai ça ce soir .
 
A

Arnaud

Guest
g pas trop le tps de tester donc a voir....

Private Sub cht_BeforeDoubleClick(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
Select Case ElementID
Case xlSeries
MsgBox "click sur la barre "
Select Case Arg1
Case 1: MsgBox "Barre1"
Case 2: MsgBox "Barre2"
Case 3: MsgBox "Barre3"
Case 4: MsgBox "Barre4"
etc.........
End Select
End Select
End Sub
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…