Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Graphique en VBA

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

StrikeBEH

XLDnaute Occasionnel
Bonsoir à tous,

J'ai essayé de créer un graphique via l'enregistreur de macros, mais il me rajoute plein de lignes sans trop savoir à quoi cela correspond...

Je vous explique ce que je souhaiterai.

Sur la feuille "récap" j'ai les données suivantes:

J4 à K4 contiennent respectivement les valeurs "Crédit", "Débit" et "Solde".

J6 à K6 contiennent respectivement les valeurs correspondantes pour J4 à J6.

Avec ces données je voudrai donc créer un graphique de base...

Merci pour votre aide
 
Trier par date Trier par votes
Re : Graphique en VBA

Bonsoir,
Bien, il te reste à :
  • mettre un classeur avec des données, histoire qu'on ait pas à le faire ;
  • nous dire ce qu'est pour toi un graphique "de base" ;
  • nous expliquer pourquoi tu veux passer par Vba.
Avec tout ça, on devrait pouvoir te faire des propositions...
 
Vote positif 0 Vote négatif
Re : Graphique en VBA

Bonjour,
En fait c'est un programme de gestion de compte bancaire.
Le premier de chaque mois, une nouvelle feuille est crée pour le mois en cours et je souhaiterai qu'un graphique soit généré automatiquement prenant en compte les données de J6 à L6. Voila pourquoi je veux passer par VBA.
J'entends par graphique de base, un graphique dans son plus simple élément... j'adapterai l'apparence à ma sauce par la suite.

Je joins un "aperçu" et pour le graph, je l'ai fait à la main pour "tester", sans aucun code VBA...
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Graphique en VBA

C'est bon, avec l'aide de l'enregistreur de macros et après de multiples essais, j'ai finalement réussi à faire ce que je voulais !!!
Le seul "détail" que je souhaite rajouter c'est "TOTAUX" comme "titre" pour le graphique...
Pourtant le nom apparaiît bien dans le code mais étrangemnt il ne s'affiche pas !
Mais je vais bien trouver !!! 😉

Le code:

Code: 
Option Explicit

Sub Graph1()
ActiveSheet.Shapes.AddChart.Select
ActiveSheet.ChartObjects(1).Name = "Graph1"
ActiveSheet.ChartObjects(1).Top = 126
ActiveSheet.ChartObjects(1).Left = 453
ActiveSheet.ChartObjects(1).Height = 250
ActiveSheet.ChartObjects(1).Width = 250
ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.ChartType = xlDoughnutExploded
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 26
ActiveChart.ClearToMatchStyle
ActiveChart.SetSourceData Source:=Range("J4:L6")
ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""TOTAUX"""
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("J4:L4,J6:L6")
ActiveChart.ChartArea.Select
With ActiveSheet.Shapes("Graph1").Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    .ForeColor.TintAndShade = 0.3399999738
    .ForeColor.Brightness = 0
    .BackColor.ObjectThemeColor = msoThemeColorAccent1
    .BackColor.TintAndShade = 0.7649999857
    .BackColor.Brightness = 0
    .TwoColorGradient msoGradientHorizontal, 1
End With
Selection.Format.Fill.Visible = msoTrue
End Sub
 
Vote positif 0 Vote négatif
Re : Graphique en VBA

J'ai trouvé...

Code modifié:

Code: 
Option Explicit

Sub Graph1()
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "TOTAUX"
End With
ActiveSheet.ChartObjects(1).Name = "Graph1"
ActiveSheet.ChartObjects(1).Top = 126
ActiveSheet.ChartObjects(1).Left = 453
ActiveSheet.ChartObjects(1).Height = 250
ActiveSheet.ChartObjects(1).Width = 250
ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.ChartType = xlDoughnutExploded
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 26
ActiveChart.ClearToMatchStyle
ActiveChart.SetSourceData Source:=Range("J4:L6")
ActiveSheet.ChartObjects("Graph1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range("J4:L4,J6:L6")
ActiveChart.ChartArea.Select
With ActiveSheet.Shapes("Graph1").Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    .ForeColor.TintAndShade = 0.3399999738
    .ForeColor.Brightness = 0
    .BackColor.ObjectThemeColor = msoThemeColorAccent1
    .BackColor.TintAndShade = 0.7649999857
    .BackColor.Brightness = 0
    .TwoColorGradient msoGradientHorizontal, 1
End With
Selection.Format.Fill.Visible = msoTrue
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Microsoft 365 Macro VBA - mise en forme export excel
Réponses
6
Affichages
662
gpera
G
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
N
  • Question Question
XL 2019 Mettre en gras éléments du graphique avec macro
Réponses
4
Affichages
896
Nasseuz
N
J
  • Question Question
XL 2019 Résolu - Graphique
Réponses
4
Affichages
1 K
julien1982
J
B
  • Question Question
Microsoft 365 Titre axe d'un graphique
Réponses
10
Affichages
1 K
Batourouciss
B
J
  • Résolu(e)
Microsoft 365 Lettrage
Réponses
9
Affichages
2 K
JCGIFT
J
C
  • Question Question
Autres VBA Excel 2007 : Insérer, modifier, supprimer Checkbox sur feuille excel et actualisation d'un graph en conséquence
Réponses
2
Affichages
597
CR16
C
A
  • Résolu(e)
Microsoft 365 Mise en forme graphique - Excel
Réponses
4
Affichages
1 K
Efgé
R
  • Résolu(e)
XL 2010 suppression de ligne si la valeur ne correspond pas au texte contenu dans un tableau VBA
Réponses
6
Affichages
1 K
Efgé
E
  • Résolu(e)
XL 2013 Graphique actualisable sans utiliser DECALER()
Réponses
4
Affichages
2 K
chris
B
  • Question Question
XL 2013 [VBA] Extraction de données basé sur 2 à 3 conditions
Réponses
2
Affichages
2 K
bastienb
B
N
  • Question Question
XL 2016 mise à jour automatique d'un graphique vba
Réponses
2
Affichages
2 K
Nsjt
N
L
  • Question Question
XL 2010 Code VBA à simplifier et/ou corriger
Réponses
7
Affichages
1 K
LAPIN-53
L
P
  • Question Question
XL 2016 Formattage graphique sur feuille en vba
Réponses
1
Affichages
892
Pacalou95
P
L
  • Résolu(e)
XL 2019 Transformer un score en note
Réponses
5
Affichages
3 K
soan
S
L
  • Question Question
XL 2010 VBA : supprimer doublons selon plusieurs conditions
Réponses
4
Affichages
2 K
JHA
J
M
  • Résolu(e)
XL 2016 Formulaire Excel VBA : Afficher dynamiquement des cases à cocher en fonction d'une liste déroulante
Réponses
13
Affichages
5 K
MyloX
M
J
  • Résolu(e)
XL 2013 Création de données statistiques en croisant 2 tableaux de données
Réponses
2
Affichages
790
jlh123
J
B
  • Question Question
XL 2013 [RESOLU]Copie Colle avec création onglet
Réponses
4
Affichages
898
BENAM69
B
V
  • Question Question
XL 2010 Projet VBA, comparer les elements d'une listbox avec des colonnes d'une feuille
Réponses
0
Affichages
1 K
VBAProject
V
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…