Discussion :

[surzone]

Bonjour,

en pj, vous trouverez un projet dont je n'arrive à terme.
Je souhaite, lorsque je pointe un point du nuage de point, que le label s'affiche en haut du graph.
Tout va bien pour la série 1 mais les résultats sont erronés pour la série 2.

Quelqu'un a t-il une idée ?

Merci pour votre aide.

[Fvandermeulen]

Salut,
Je pense qu'il te manque simplement un DoEvents, dans ton cas juste avant ton End sub.

A+

[surzone]

Merci pour l'info.
Je ne te cache pas que ce n'est pas moi qui ai créé ce code et du coup, je vais tenter d'ajouter ce que tu m'as dit mais sans trop d'espoir.

Pourrais tu m'assister sur cette fonction ?

Merci beaucoup

[Fvandermeulen]

Re,
Pas de soucis, je suis à nouveau sur ton fichier, car en effet leDoEvents était peut-être un peu trop simpliste
A+

[Fvandermeulen]

Re,
Je pense avoir trouvé...
Pour récupérer les valeurs il fait un offset sur base la variable Arg2 qui est "l'ordre" des points dans la série, sauf que il ne tient pas compte des différentes séries, car la premier point de la série 2 renvoi 1 et pas 20 comme il devrait pour que le code fonctionne.
Ma question est donc, auras tu toujours le même nombre de points par série ?
Si non, peux t'on imaginer d'ajouter une colonne pour faciliter l'identification d'une nouvelle série ?
A+

[Fvandermeulen]

Re,
Voici une proposition qui se base sur des nombres de points variables (Limité à la plage A1:A100 via le .Find, que tu peux modifier ).
L'idée, sur base de l'argument 1 (variable Arg1) qui renvoi le numéro de série.
Ce numéro sert à un Select Case, suivant le Case on récupère le numéro de la ligne du premier point de la série grâce à un .Find (pour la série 2 j'ai utilisé 1ha1400CC)
Ce numéro de ligne (décrémenté de 1 pour pouvoir faire l'offset sur base de l'argument 2) est donc la cellule de référence pour les Offset.

En espérant que ce soit clair ...

Au fait il me semble que ton code couleur jaune n'est pas sur la bonne ligne, sauf erreur de ma part ta série 3 commence à la ligne 33 et non pas 34.

A+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Public WithEvents Graph As Chart
 
 
'*** Utilisation des évènements *********
 
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
    Dim MaRech As Range
    Dim MaLigne As Long
 
    On Error Resume Next
    ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
        If Arg2 = 0 Then
            ActiveChart.Shapes("Rectangle 1").Visible = msoFalse
        Else
            Select Case Arg1
 
                Case 1
                MaLigne = 1
 
                Case 2
                Set MaRech = Sheets("Y.S Densité").Range("A1:A100").Find("1ha1400C", LookIn:=xlValues, lookat:=xlPart)
                MaLigne = MaRech.Row - 1
 
                Case 3
                Set MaRech = Sheets("Y.S Densité").Range("A1:A100").Find("4ha1400C", LookIn:=xlValues, lookat:=xlPart)
                MaLigne = MaRech.Row - 1
 
            End Select
 
            With ActiveChart.Shapes("Rectangle 1")
                .Visible = msoTrue
                .TextFrame.Characters.Text = _
                    Sheets("Y.S Densité").Cells(MaLigne, 3).Offset(Arg2, -2) & vbCrLf & _
                    "Porosité" & "=" & Sheets("Y.S Densité").Cells(MaLigne, 3).Offset(Arg2, -1) & vbCrLf & _
                    "YS" & "=" & Sheets("Y.S Densité").Cells(MaLigne, 3).Offset(Arg2, 0)
                .Left = 0
                .Top = 0
                .Width = "200"
                .Height = "50"
            End With
        End If
End Sub