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

[Aloha]

Bonjour,

Dans l'exemple joint j'aimerais
* que la part des graphes située >100% soit coloriée en rouge
* qu'il y ait une ligne rouge horizontale à la hauteur des 100%

Est-ce possible? Sui oui, comment faire?
Faut-il choisir un autre type?

Merci d'avance pour votre aide
Aloha

 

[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

 

[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

 

[Efgé]

Bonjour

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

 

[Aloha]

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

 

[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

 

[Efgé]

Re

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

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

 

[Aloha]

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

 

[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

 

[Efgé]

Bonjour

Ca se complique.
Sur un code J.Boisgontier :

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

 

[Aloha]

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

 

[Aloha]

Bonsoir,

Sur l'ordinateur sur lequel tourne Excel 2013 avec le fichier en question, j'ai rencontré le problème que la copie des données ne se fait pas, alors que sur mon ordinateur avec Excel 2016 elle se fait bien. A quoi cela pourrait-il tenir?

Bonne nuit
Aloha

 

[Aloha]

Bonsoir,

Sur l'ordinateur sur lequel tourne Excel 2013 avec le fichier en question, j'ai rencontré le problème que la copie des données ne se fait pas, alors que sur mon ordinateur avec Excel 2016 elle se fait bien. A quoi cela pourrait-il tenir?
Ils sont tous les deux en français.

Bonne nuit
Aloha

 

[Efgé]

Bonjour Aloha

As tu bien mis le code dans le bouton présent sur la feuille source ?
Cordialement

 

[Aloha]

Bonjour,
Oui, et de toute façon, quoi qu'il en soit, c'est le même code qui tourne sur l'un mais pas sur l'autre.
J'avais préparé sur mon ordinateur à la maison les 3 fichiers identiques en ce qui concerne cette tâche et j'ai constaté que sur l'ordinateur professionnel sur lequel les fichiers sont utilisés le code fait ce qu'il faut sur deux des fichiers, mais pas sur le troisième.
Bonne journée
Aloha