emplacement graph

[alex]

Bonjour,

J'ai un souci avec l'emplacement d'un graph croisé dynamique

sur la même feuille j'ai un tableau avec des drill and down et le graph en dessous

quand je déplie les lignes les données passent derrière le grah

comment obliger le graph a être toujours sous le total du tableau ?

merci d'avance !

 

[Softmama]

Re : emplacement graph

Bonjour,

Vois si tu peux t'inspirer de cette macro évènementielle qui replace le graphique "Graphique 1" aligné sur la cellule D6 dans cet exemple.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.ChartObjects("Graphique 1").Left = Range("D6").Left
    ActiveSheet.ChartObjects("Graphique 1").Top = Range("D6").Top
End Sub

 

[alex]

Re : emplacement graph

le problème c'est que le numéro de ligne de mon total change en fonction des "plier - déplier"

 

[alex]

Re : emplacement graph

Merci

le problème c'est que la ligne de mon total change en fonction des plier - déplier

 

[alex]

Re : emplacement graph

merci

le problème c'est que mon total se retrouve ligne 93 si je déplie tout et ligne 23 si je replie tout le tableau.

je peux donc pas lier le graphique à une cellule fixe.

ps : désolé pour les doubles post

 

[Softmama]

Re : emplacement graph

Re,

Tu peux nommer la plage sous laquelle tu veux mettre le graphique :
En donnant le nom "Yop" (Insertion/nom/définir) à cette plage, tu tapes :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.ChartObjects("Graphique 1").Left = Range("Yop").Left
    ActiveSheet.ChartObjects("Graphique 1").Top = Range("Yop").Top
End Sub

 

[alex]

Re : emplacement graph

merci Softmama

mais je n'y arrive pas car même si je nomme une plage "yop"
quand je déplie mon tableau la plage ne bouge pas et donc le graphique ne bouge pas également
y'a t-il un petit bout de VBA qui permet à un graphique de vérifier si la cellule du dessus est remplie ou non et du coup de se placer après la première cellule vide ?

Merci beacoup

 

[Softmama]

Re : emplacement graph

Bonjour,

Peut-être comme ceci :

Sub test()
With ActiveSheet
    a = .range("A65536").end(xlUp).row +1
    '.ChartObjects("Graphique 1").Left = Range("A1").Left
    .ChartObjects("Graphique 1").Top = Range("A" & a).Top
End With
End Sub

Juste... qu'est ce que tu appelles exactement Plier/Déplier un tableau ?

 

[alex]

Re : emplacement graph

Dans les options du TCD
tu as une boite à cocher dans l'onglet affichage
"afficher les boutons développer / réduire"

ce qui permet d'utiliser le drill-down directement dans la cellule et non plus sur les lignes du tableur