Discussion :

[stueur666]

Bonjour,

J'ai une demande qui je pense être simple mais qu'il est plutôt difficile d'exprimer.
J'ai un graphique en nuage de points dans lequel des données sont régulièrement ajoutées. L'abscisse étant des dates, il arrive très fréquemment que le graphique doivent ajouter de nouvelles abscisses (nouvelles dates) alors que la date de départ (la plus à gauche du graphique) ne change pas. Sur ce graphique, j'ajoute des barres verticales assorties de zones de textes pour expliquer certains points/dates.

Mon problème : lorsque j'ajoute de nouvelles données, toutes mes barres et zones de texte se retrouvent décalées vis-à-vis du point/de la date.

Existe-t-il une façon d'ajouter des formes/zones de textes liées à une date, un point, ou à une zone du graphique, et qui serait donc "dynamique" dans le sens où elle suivrait le point qu'elle précise?

Merci d'avance pour votre aide et bonne journée

[Menhir]

Sur ce graphique, j'ajoute des barres verticales assorties de zones de textes pour expliquer certains points/dates.

Pourrais-tu présenter une copie d'écran pour montrer à quoi ressemble ces barres verticales et ces textes ?

[stueur666]

Il s'agit juste de formes droites de dessin.

[Menhir]

Désolé. J'avais une petite idée mais ça ne ressemblait pas du tout à ça.

[stueur666]

Pas de soucis! Merci de t'être penché sur le sujet!

[ARTURO83]

Bonjour,

Pour l'ajout d'une zone de texte et d'une barre, vous devez le faire manuellement puisque leurs emplacements dépend des positions des autres objets déjà existants (plus haut, plus bas, autre..).
Par contre, après avoir ajouter manuellement une zone de texte et une barre verticale, soit 2 éléments, on peut faire un système qui déplace à la demande les zones de texte et les barres existantes pour les ajuster au bon endroit.
Je vous propose 4 flèches pour les déplacements à droite ou à gauche (2 pour un déplacement rapide et 2 pour un déplacement lent), ainsi toutes les objets dessinés existants se déplacent sauf les 2 derniers qui viennent d'être ajouté par vos soins, car vous les auraient déjà placés au bon endroit.
Pièce jointe 579124

ici seuls les 2 zones de texte et barres verticales de gauche se déplacent, la zone de texte et la barre verticale de droite sont les dernières ajoutées manuellement, elles ne sont pas impactées par le déplacement.


Le fichier
Pièce jointe 579123

le code

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
49
50
51
52
53
54
55
Sub Deplacement_rapide_gauche()
    Dim Sh As Shape
    Cpt = Worksheets("Feuil1").Shapes.Count - 2 'toutes les zones de texte et barres sauf la dernière zone de texte et dernière barre
    For i = 1 To Cpt
        If Sheets("Feuil1").Shapes(i).Name <> "Graphique 1" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 11" And Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 12" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 13" And Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 14" Then 'on ne déplace pas le graphique ni les flèches de déplacement
            With ActiveSheet.Shapes(i)
                .Left = .Left - 10
            End With
        End If
    Next
End Sub
 
Sub Deplacement_lent_gauche()
    Dim Sh As Shape
    Cpt = Worksheets("Feuil1").Shapes.Count - 2 'toutes les zones de texte et barres sauf la dernière zone de texte et dernière barre
    For i = 1 To Cpt
        If Sheets("Feuil1").Shapes(i).Name <> "Graphique 1" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 11" And Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 12" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 13" And Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 14" Then 'on ne déplace pas le graphique ni les flèches de déplacement
            With ActiveSheet.Shapes(i)
                .Left = .Left - 1
            End With
        End If
    Next
End Sub
 
Sub Deplacement_rapide_droite()
    Dim Sh As Shape
    Cpt = Worksheets("Feuil1").Shapes.Count - 2 'toutes les zones de texte et barres sauf la dernière zone de texte et dernière barre
    For i = 1 To Cpt
        If Sheets("Feuil1").Shapes(i).Name <> "Graphique 1" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 11" And Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 12" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 13" And Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 14" Then 'on ne déplace pas le graphique ni les flèches de déplacement
            With ActiveSheet.Shapes(i)
                .Left = .Left + 10
            End With
        End If
    Next
End Sub
 
Sub Deplacement_lent_droite()
    Dim Sh As Shape
    Cpt = Worksheets("Feuil1").Shapes.Count - 2 'toutes les zones de texte et barres sauf la dernière zone de texte et dernière barre
    For i = 1 To Cpt
        If Sheets("Feuil1").Shapes(i).Name <> "Graphique 1" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 11" And Sheets("Feuil1").Shapes(i).Name <> "Flèche gauche 12" And _
            Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 13" And Sheets("Feuil1").Shapes(i).Name <> "Flèche droite 14" Then 'on ne déplace pas le graphique ni les flèches de déplacement
            With ActiveSheet.Shapes(i)
                .Left = .Left + 1
            End With
        End If
    Next
End Sub

Bien sûr, ceci peut ne pas vous convenir, mais cela peut vous donner des idées.

Cdlt

[stueur666]

merci, je prends note (avec un peu de retard…)!