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
    762 Vues
    Dernier message par teow
    24 novembre 2014, 17:38
  • diagramme
    par DIVINA » 15 septembre 2017, 16:41 » dans Excel - VBA
    9 Réponses
    291 Vues
    Dernier message par DIVINA
    17 septembre 2017, 08:48
  • Diagramme statistique
    par cloud14 » 30 juin 2014, 17:57 » dans Excel - VBA
    3 Réponses
    240 Vues
    Dernier message par psdi
    6 juillet 2014, 18:43
  • Diagramme GANTT
    par Quentin Demillière » 30 janvier 2019, 09:01 » dans Excel - VBA
    2 Réponses
    128 Vues
    Dernier message par Quentin Demillière
    30 janvier 2019, 13:32
  • Diagramme non hiérarchique
    par Emilo25 » 15 janvier 2019, 14:27 » dans Excel - VBA
    11 Réponses
    231 Vues
    Dernier message par Emilo25
    21 janvier 2019, 08:25
  • Diagramme de Gantt
    par AltaRocca » 27 novembre 2017, 09:04 » dans Excel - VBA
    1 Réponses
    310 Vues
    Dernier message par LouReeD
    27 novembre 2017, 14:33