Position graphique sous tableau croisé dynamique
Fermé
jym77
Messages postés
7
Date d'inscription
jeudi 4 avril 2019
Statut
Membre
Dernière intervention
5 avril 2019
-
4 avril 2019 à 21:45
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 6 avril 2019 à 06:41
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 6 avril 2019 à 06:41
A voir également:
- Position graphique sous tableau croisé dynamique
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide - Forum Excel
- Changer carte graphique - Guide
3 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
5 avril 2019 à 12:08
5 avril 2019 à 12:08
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?
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
Modifié le 5 avril 2019 à 12:57
Modifié le 5 avril 2019 à 12:57
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
jym77
Messages postés
7
Date d'inscription
jeudi 4 avril 2019
Statut
Membre
Dernière intervention
5 avril 2019
5 avril 2019 à 18:14
5 avril 2019 à 18:14
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
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
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
6 avril 2019 à 06:41
6 avril 2019 à 06:41
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
5 avril 2019 à 12:44