Position graphique sous tableau croisé dynamique

jym77 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   - 6 avril 2019 à 06:41
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.
A voir également:

3 réponses

Réponse 1 / 3
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour,

Quel est le contenu de la dernière cellule en bas à gauche du TCD?
0
jym77 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
je s 2 captures


0
Réponse 2 / 3
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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
0
jym77 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
bonsoir,
Désolé, ça ne fonctionne pas.
pour la 1ere ligne j'ai essayer de mettre Sub Position_Graphique1() ainsi que Graphique1
vous mettez mettre le numéro de votre graphique, j'ai mis 'Graphique1
0
Réponse 3 / 3
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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
0

Discussions similaires

Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport
Utilisateur anonyme -
TomH. -

13 réponses
Nom de champs du tableau croisé dynamique non valide
Kazooie123 -
SajDri -

6 réponses
Erreur "Le nom du champ du tableau croisé dynamique n'est pas valide"
anastasiaS974 -
anastasiaS974 -

4 réponses
ERREUR nom du champ du tableau croisé dynamique non valide
AL07_1104 -
DjiDji59430 -

1 réponse
Tableau Croisé Dynamique
gexelpa -
Raymond PENTIER -

4 réponses