Diagramme

Y compris Power BI, Power Query et toute autre question en lien avec Excel
G
Guillaume_2016
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 22 avril 2016
Version d'Excel : 2010

Message par Guillaume_2016 » 3 mai 2016, 11:19

Bonjour j'aimerais savoir si il était possible de réaliser ce type diagramme (image en lien) dans le but de les modifier depuis un macros.
Les pourcentages d'avancées sont déjà calculées et l'objectif est toujours de 100% .

Merci
diagramme.jpg
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 3 mai 2016, 11:53

Bonjour Guillaume_2016,

Cette barre de progression est destinée à être placée où?:
- dans un formulaire (userform)
- directement dans une feuille Excel

Ton pourcentage est déterminé par une formule VBA ou un calcul dans une cellule?
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
G
Guillaume_2016
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 22 avril 2016
Version d'Excel : 2010

Message par Guillaume_2016 » 3 mai 2016, 12:59

Cette barre de progression est destinée à être placée directement sur une feuille Excel, plus précisément sur une forme représentant une zone d'un bâtiment.
Le pourcentage est déterminé par un calcul dans une macro
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 3 mai 2016, 15:59

Après une petite recherche sur Internet,
http://megastuces.com/creer-barre-progression-excel/
Valable pour Excel 2010/2013
Je pense que cette solution pourrait te convenir!
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
G
Guillaume_2016
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 22 avril 2016
Version d'Excel : 2010

Message par Guillaume_2016 » 3 mai 2016, 16:47

Merci tu temps que tu me consacre ,mais cette solution ne peux pas convenir car mes valeurs de pourcentage sont trop proche pour voir la différence avec ce type de barre et ces diagramme devront être sur une forme (plutôt devant une forme) donc il ne faut pas que ces diagrammes soient dans une cellule .
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 3 mai 2016, 17:19

Ok ok !

Voilà une proposition alors:
Créer ton diagramme circulaire, le placer à l'endroit souhaité avec la représentation souhaitée. Y ajouter une ligne de données
(sélectionner données -> ajouter -> valeurs de la série :
={0;0}
Et maintenant dans ton code VBA
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Values = "={35;65}"'Par exemple pour afficher 35 et 65% sur le graphe
En supposant que ton graphique s'appelle "Graphique 1"
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
G
Guillaume_2016
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 22 avril 2016
Version d'Excel : 2010

Message par Guillaume_2016 » 4 mai 2016, 08:16

Merci . Ça fonctionne bien j'aimerai juste savoir comment fait on pour écrire un titre de graph et donner un nom au pourcentage du graph en vba .
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 4 mai 2016, 10:02

Pour le titre du graphe:
Sub test()
Dim monGraphe As ChartObject
Set monGraphe = ActiveSheet.ChartObjects("Graphique 1")
With monGraphe.Chart
    If .HasTitle = False Then
        .HasTitle = True
    End If
    .ChartTitle[surligner].Caption[/surligner] = "Le titre souhaité"
End With
End Sub
ou directement :
If ActiveSheet.ChartObjects("Graphique 1").Chart.HasTitle = False Then ActiveSheet.ChartObjects("Graphique 1").Chart.HasTitle = True
ActiveSheet.ChartObjects("Graphique 1").Chart.ChartTitle.[surligner]Caption[/surligner]= "Le titre souhaité"
Pour le nom du graphe je comprend pas!
Modifié en dernier par d3d9x le 4 mai 2016, 10:10, modifié 1 fois.
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
G
Guillaume_2016
Nouveau venu
Nouveau venu
Messages : 8
Inscrit le : 22 avril 2016
Version d'Excel : 2010

Message par Guillaume_2016 » 4 mai 2016, 10:05

Merci. Le nom des pourcentage c'est le nom des éléments de la série
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Diagramme
    par Shuss68 » 24 novembre 2014, 09:13 » dans Excel - VBA
    13 Réponses
    820 Vues
    Dernier message par teow
    24 novembre 2014, 17:38
  • diagramme
    par DIVINA » 15 septembre 2017, 16:41 » dans Excel - VBA
    9 Réponses
    329 Vues
    Dernier message par DIVINA
    17 septembre 2017, 08:48
  • diagramme VBA
    par MBee » 25 août 2014, 15:33 » dans Excel - VBA
    3 Réponses
    363 Vues
    Dernier message par jmd
    27 août 2014, 07:41
  • Diagramme Original
    par CorentinRault » 3 novembre 2017, 10:55 » dans Excel - VBA
    7 Réponses
    235 Vues
    Dernier message par James007
    5 novembre 2017, 13:14
  • Graphique et Diagramme
    par Davidyanga » 19 avril 2018, 14:03 » dans Excel - VBA
    2 Réponses
    75 Vues
    Dernier message par Davidyanga
    19 avril 2018, 14:21
  • Diagramme de PARETO
    par charlowkomes » 16 octobre 2019, 12:01 » dans Excel - VBA
    4 Réponses
    95 Vues
    Dernier message par Orizhial
    16 octobre 2019, 19:42