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 DIVINA » 15 septembre 2017, 16:41 » dans Excel - VBA
    9 Réponses
    338 Vues
    Dernier message par DIVINA
    17 septembre 2017, 08:48
  • Diagramme
    par sobe3291 » 13 janvier 2020, 19:10 » dans Excel - VBA
    3 Réponses
    30 Vues
    Dernier message par njhub
    13 janvier 2020, 19:58
  • Diagramme
    par Shuss68 » 24 novembre 2014, 09:13 » dans Excel - VBA
    13 Réponses
    837 Vues
    Dernier message par teow
    24 novembre 2014, 17:38
  • Diagramme circulaire
    par sarah_7791 » 14 mars 2014, 22:50 » dans Excel - VBA
    2 Réponses
    931 Vues
    Dernier message par sarah_7791
    16 mars 2014, 20:16
  • Diagramme Tornade
    par lolo3030 » 25 septembre 2014, 17:18 » dans Excel - VBA
    2 Réponses
    283 Vues
    Dernier message par lolo3030
    29 septembre 2014, 15:52
  • Diagramme GANTT
    par Georgexcel » 6 janvier 2017, 22:12 » dans Excel - VBA
    1 Réponses
    572 Vues
    Dernier message par ddetp88
    7 janvier 2017, 10:58