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 -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
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.
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:
- Position graphique sous tableau croisé dynamique
- Tableau croisé dynamique - Guide
- Exemple tableau croisé dynamique télécharger - Télécharger - Tableur
- Tableau word - Guide
- Tableau ascii - Guide
- Changer carte graphique - Guide
3 réponses
Bonjour,
Quel est le contenu de la dernière cellule en bas à gauche du TCD?
Quel est le contenu de la dernière cellule en bas à gauche du TCD?
jym77
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
je joins 2 captures
Essayez ceci
Cdlt
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
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
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