XL 2016 Représentation graphique de pourcentages avec césure à 100%

Ok,
pourtant, il sagit toujours de la même chose!
Je vais créer un nouveau thème avec le texte de mon dernier message.
Bonne soirée
Aloha

 

Bonjour
il me reste un dernier graphique que je n'arrive pas à établir correctement:
je veux suivre l'évolution de 3 paramètres dans un seul graphique et, comme dans les graphiques précédents, les valeurs au-delà de 100 doivent surplomber celles de 0-100 et se démarquer par une autre couleur.
Le type de graphique doit être un histogramme (à moins qu'il soit possible de faire apparaître les dépassements dans un graphique à courbes).
Le graphique que j'ai fabriqué empile toutes les valeurs d'un mois au lieu de juxtaposer les 3 types en distinguant 0-100 et >100.
Merci d'avance pour votre aide
Aloha

 

Bonjour

Je ne connais qu'une seule méthode.
Si quelqu'un vois mieux...
Cordialement

 

Bonsoir,

Merci beaucoup pour cette solution.
Le désavantage est qu'on n'arrive pas bien à voir l'évolution.
S'il n'est pas possible de mieux représenter l'évolution par histogramme il faut peut-être que je renonce à relever les dépassements et à choisir un graphique à courbes où chaque type a sa courbe.

Bonne soirée
Aloha

 

Une question encore: avec les diagrammes à courbes les cellules sans valeurs sont représentées par le 0; comment éviter cela. puisque aucune valeur n'est pas équivalent à 0.

 

Re
Dernière proposition...


Cordialement

 

Re,

Voilà qui n'est pas mal! Voilà qui est même bien!

Seule correction à apporter: cela ne sert à rien d'afficher les valeurs 100; il suffit et il est plus judicieux d'afficher la valeur totale au bout de la barre, si c'est possible.

Bonne soirée
Aloha

 

Re à tous, salut Job

Il est peut être temps d'analyser les propositions et de les adapter à ton besoin

Excel-Downloads est là pour aider pas pour faire....
Cordialement

 

J'en suis conscient et je ne veux surtout pas faire surgir le sentiment que je profite de votre générosité!.

Aide-moi à faire stp. Je n'arrive pas à corriger cela de moi-même.
Je ne trouve pas comment changer cela.
Bonne soirée
Aloha

 

Re,

J'ai trouvé la solution pour ma question du message #25: il suffit de modifier les formules de sorte à ce qu'elles affichent #N/A au lieu de "" lorsqu'il n'y a pas de valeur, pour que le graphique ignore ces cellules.

Bonne nuit
Aloha

 

Bonjour,
Comme je n'arrive pas à faire disparaître les valeurs 100 dans le graphique, j'étais obligé de recourir à un graphique à courbes.
Je vous remercie pour toute votre aide.
Bien à vous
Aloha

 

Bonjour,

"efgé", tu m'avais donné un petit bout de code dans ton message #17. J'ai réussi à l'appliquer à mon fichier réel.
Cependant, j'ai deux autres fichiers auxquels je dois l'appliquer. Je l'ai fait dans le premier des deux, mais lorsque je veux excécuter le code (par le clic sur un bouton) je reçois un message d'erreur. Entrevois-tu (ou quelqu'un d'autre) où pourrait résider le problème?
Merci d'avance
Bonne journée
Aloha

 

Bonjour

Sans un fichier exemple, je ne peux pas savoir d'où viens le problème.
Cordialement

 

Re,
Je m'en doutais.
J'ai pris l'original et je l'ai vidé de tout ce qui est supplémentaire, mais malheureusement j'ai cliqué sur la disquette et j'ai donc remplacé l'original par le fichier préparé, ce qui est très embêtant.
Y a-t-il moyen de récupérer la dernière version du fichier?.
A+
Aloha

 

Re,

Voici l'exemple, à l'architecture identique à celle de l'original.

Il s'agit donc de copier les données (en%) de la feuille "Tableau F3" de I17:I28, I30:I32, ainsi que la cellule I35 dans la feuille "Graphiques", dans la colonne correspondant au mois indiqué dans la cellule C12 de la feuille "Tableau F3".
D'ailleurs, lorsque j'appuye sur le bouton vert dans le fichier exemple, il n'y a plus le message d'erreur, mais rien ne se passe.

J'ai la suspicion que le problème provient du fait que je ne comprends pas ton code et que je n'arrive donc pas à y apporter des modifications probablement nécessaires.

A+
Aloha

 

Re

Comme ton bouton est sur la feuille "Tableau F3", il n'y a même pas besoin de With :

Code (Text):

Private Sub CommandButton1_Click()
    Range("I17:I28,I30:I32,I35").Copy Sheets("GRAPHIQUES").Range("A3").Offset(0, Range("C12")).Resize(16, 1)
End Sub
 

Cordialement

 

Re,
Merci beaucoup!
J'admire les gens comme toi qui maîtrisent le VBA à tel point.
Bonne après-midi.
Aloha

 

Bonjour,
Une petite question encore concernant le code: comment faudrait-il le modifier pour qu'il ne colle que les valeurs?
Bonne journée
Aloha

 

Bonjour

Ca se complique.
Sur un code J.Boisgontier :

Code (Text):

Private Sub CommandButton1_Click()
  Dim T As Variant
  Dim Rng As Range
  Set Rng = Range("I17:I35")
  T = Application.Index(Rng, [{1;2;3;4;5;6;7;8;9;10;11;12;14;15;16;19}], [{1}])
  Sheets("GRAPHIQUES").Range("A3").Offset(0, Range("C12")).Resize(16, 1) = T
 End Sub

 

Cordialement

 

Re,
En effet, cela se complique pas mal.
Merci beaucoup
Bonne journée
Aloha