Re : Affichage au survol de la souris
Bonjour à tous,
J'ai continué un peu mes recherches sur le survol de la souris.
J'ai trouvé ce code mais je n'arrive pas à l'adapter à mon cas.
Sachant que la feuille qui contient mon graphique s'appelle "GrapfDebours" et que mes données viennent d'un export via PowerPivot, je voudrai savoir ce que je dois changer dans ce code.
Autre soucis, dans le Module Thisworkbook, j'ai déjà un code me permetttant d'ouvrir une boîte de dialogue et du coup, ç l'ouverture de mon classeur, j'ai un message d'erreur.
===== Dans le module ThisWorkbook =====
Dim Graph As Classe1
Private Sub Workbook_Open()
Set Graph = New Classe1
Set Graph.Graph = Feuil1.ChartObjects(1).Chart
End Sub
'===== Dans le module de classe "Classe1" =====
Public WithEvents Graph As Chart
Private Sub Graph_MouseMove(ByVal Button As Long, _
ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim ElementID As Long, SeriesIndex As Long, PointIndex As Long
Dim S As Series, I As Integer, J As Integer, Form As String
Dim CellX As Range, CellY As Range
Graph.GetChartElement x, y, ElementID, SeriesIndex, PointIndex
If ElementID = xlSeries Then
Form = Graph.SeriesCollection(SeriesIndex).Formula
I = InStr(1, Form, ",") + 1
J = InStr(I, Form, ",") + 1
Set CellX = Range(Mid$(Form, I, J - I - 1))(PointIndex)
Set CellY = Range(Mid$(Form, J, InStr(J, Form, ",") -
J))(PointIndex)
Application.StatusBar = "Cellules= " & CellX.Address & ", " _
& CellY.Address & " | valeurs = " & CellX & ", " & CellY
Else: Application.StatusBar = False
End If
End Sub
Merci d'avance pour vos réponses,
Bien cordialement,
Hervé.