Position graphique sous tableau croisé dynamique

Question

Bonjour,

J'ai actuellement un tableau dynamique croisé et qui dit tableau dynamique dit tableau de taille variable. J'ai également un graphique que j'aimerai positionner juste en dessous de ce tableau de taille variable, quelque-soit sa taille.

Ce problème n'est qu'esthétique: lorsque le tableau dynamique devient grand, mon graphique recouvre le tableau.
Y aurait il une macro pour que le graphique se positionne automatiquement sous le tdc.
Cordialement.

Frenchie83 · Answer

Bonjour, 

Quel est le contenu de la dernière cellule en bas à gauche du TCD?

Frenchie83 · Answer

Essayez ceci

Sub Position_Graphique()
    Application.ScreenUpdating = False
    Set L = Columns(9).Find("Total général", LookIn:=xlValues)
    With ActiveSheet.ChartObjects(1) 'mettre le numéro de votre graphique
        .Left = Range(Cells(L.Row + 2, "A"), Cells(L.Row + 16, "F")).Left
        .Top = Range(Cells(L.Row + 2, "A"), Cells(L.Row + 16, "F")).Top
        .Width = Range(Cells(L.Row + 2, "A"), Cells(L.Row + 16, "F")).Width
        .Height = Range(Cells(L.Row + 2, "A"), Cells(L.Row + 16, "F")).Height
    End With
End Sub


Cdlt

Frenchie83 · Answer

Bonjour,

Ca marche, mais j'ai oublié de modifier le numéro de colonne après avoir fait les tests, 
(j'avais untilisé la colonne 9).  
Remplacez:
Set L = Columns(9).Find("Total général", LookIn:=xlValues)

 par (si "Total général" se situe dans la colonne A)
Set L = Columns(1).Find("Total général", LookIn:=xlValues)

Cdlt

Position graphique sous tableau croisé dynamique

3 réponses

Discussions similaires

Newsletters