valeur d'un point d'un histogramme

Bonjour !

Débutant en VBA, je m'entraîne à programmer de petites applications.

J'ai un histogramme qui représente différentes notes. Je voudrais que la barre correspondant à la matière soit rouge pour les notes en dessous de 5, orange entre 5 et 10, jaune entre 10 et 15 et verte au dessus de 15. Mon problème est que la mééthode pour savoir quelle note sera prise en compte dans l'histogramme est assez complexe (elles ne se suivent pas) et après la création de l'histogramme, il n'y a plus de lien direct entre l'histogramme et les données. J'aimerais donc connaître la valeur d'un point de l'histogramme sans passer par la feuille de calcul (changer la couleur d'une barre ne pose pas de problème).

Code:

---

1 2 3

If ActiveChart.SeriesCollection(1).Points(1).??????????? < 5 Then ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = 3 End If

---

Je voudrais savoir par quoi remplacer ???????... J'ai cherché sur Internet mais je n'ai pas trouvé...

Merci d'avance pour votre aide !

A bientôt !

Pierre P.

Code:

---

1 2 3

If ActiveChart.SeriesCollection(1).Points(1).Value < 5 Then ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = 3 End If

---

Essaie cela à mon avis... "Value"

Merci de ta réponse, c'est aussi ce que je me disais mais il m'affiche :

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet

Au pire je mettrai les valeurs de l'histogramme dans un tableau en le créant, mais j'aimerais quand même savoir par curiosité s'il n'y a pas de possibilité de conna^tre la valeur de mes points...

A mon avis le probleme est que ton point n'est pas défini par 1 valeur mais par des coordonnées... Il fautdrait donc plutôt que "Value" un truc genre "Abscisse" ou "Ordonnée" (enfin, ca c'est en FR, pas en VBA...)

Bonsoir
Pourquoi ne construit tu pas un tableau secondaire avec toutes tes conditions et prendre ce tableau pour la réalisation du graphique

Bonsoir,

Je vais suivre ton idée cb_60 et faire un tableau dans lequel je puiserai les renseignements recherchés...

Toutefois, si l'un de vous trouve une solution plus "graphique", cela m'intéresse !

ArthurO0O : c'est vrai que je n'avais pas pensé à ça, tu as surement raison ! Mais j'ai 2 problèmes :
- Les données étant présentées sous forme d'histogramme, le premier "baton" aurait une abscisse de 1, le 2deuxième de 2, etc ?
- Je n'ai pas réussi à trouver sur internet la fonction pour trouver l'ordonnée d'un point dont on a l'abscisse... Si quelqu'un la connait...

re
Je te'ai fais un exemple avec sommeprod

bonsoir

pour récupérer la valeur d'un point dans le graphique, tu peux utiliser:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim ValPoint As String   With ActiveChart.SeriesCollection(1).Points(1) 'Affiche les étiquettes .HasDataLabel = True DoEvents 'Extrait la valeur du point ValPoint = .DataLabel.Characters.Text 'Masque les étiquettes .HasDataLabel = False End With   MsgBox ValPoint

---

quand ça va un peut vite, il faut parfois ajouter une tempo
après :
.HasDataLabel = True

Sinon la variable n'a pas le temps de récupérer la donnée qui s'affiche dans l'étiquette.


bonne soirée
michel

Merci beaucoup Michel pour ton morceau de code qui a l'air de faire exactement ce que je vudrais, mais j'ai un problème : Quand je l'éxécute, il me renvoie une Msgbox vide (ValPoint = "")... En mode pas à pas, il affiche bien l'étiquette sur la barre de mon histogramme, mais le programme plante entre les lignes Application.Wait Tempo et DoEvents. Par contre, en mode pas à pas en mettant la tempo en commentaire, il marche parfaitement, mais pas en mode normal...

Aurais-je oublié une ligne ?

Si tu as quelques minutes pour regarder...

Mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim tempo as string, ValPoint as string   'Affiche les étiquettes ActiveChart.SeriesCollection(1).Points(1).HasDataLabel = True   'Temporisation Tempo = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1) Application.Wait Tempo DoEvents   'Extrait la valeur du point ValPoint = ActiveChart.SeriesCollection(1).Points(1).DataLabel.Characters.Text   'Masque les étiquettes ActiveChart.SeriesCollection(1).Points(1).HasDataLabel = False MsgBox (ValPoint)

---

PS : Merci cb_60, j'ai déjà fait un tableau qui ressemble au tien mais en VBA uniquement (sans sommeprod)

Je retire le message du dessus ça bloque aussi

Bonjour !

Histoire de faire remonter un peu ce topic, je vous fait part de mon avancement.

Comme cela marche en mode pas à pas (à part la tempo), je pense que le problème vient de la temporisation (et plus précisément du code que j'ai utilisé pour la faire).

J'ai donc trouvé un autre code pour la faire :

Code:

---

1 2 3 4 5

Dim T As Date T = Timer + 2 Do Until Timer > T DoEvents Loop

---

Sans plus de résultat. Le programme ne buggue pas, marche en mode sans échec, mais me renvoie toujours une chaîne vide dans ma MsgBox...

Si quelqu'un voit l'erreur... En attendant je vais essayer de trouver une troisième méthode pour ma tempo...

Ajoute un doevents, ça ne coûte rien et comme tu effaces ton label il est possible que ça puisse suffire

Code:

---

1 2 3 4 5 6 7

DoEvents 'Extrait la valeur du point ValPoint = .DataLabel.Characters.Text   DoEvents 'Masque les étiquettes .HasDataLabel = False

---

Si tu supprimes la dernière ligne et que ton code fonctionne, c'est que c'est ça... il te restera à régler le temps d'attente
A tout hasard (qui parfois fait bien les choses ;) )

Pour le tempo, essaye avec ça, c'est ce que j'utilise et ça marche impec :

Code:

---

Application.Wait (Now + TimeValue("0:00:01"))

---

Merci asxasx pour ta tempo, elle marche et c'est plus simple que ce que j'avais avant ! Mais mon programme ne marche toujors pas, je commence à désespérer :( J'ai rajouté un DoEvents mais le résultat est toujours le même : pas de problème en mode pas à pas, et chaîne vide en mode normal...

Je remets à tout hasard le code tel qu'il est actuellement...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'Affiche les étiquettes ActiveChart.SeriesCollection(1).Points(1).HasDataLabel = True   'METTRE TEMPO Application.Wait (Now + TimeValue("0:00:01"))   DoEvents   'Extrait la valeur du point ValPoint = ActiveChart.SeriesCollection(1).Points(1).DataLabel.Characters.Text   DoEvents   'METTRE TEMPO ?? Application.Wait (Now + TimeValue("0:00:01"))   'Masque les étiquettes ActiveChart.SeriesCollection(1).Points(1).HasDataLabel = False   'Affiche la valeur de la barre MsgBox (ValPoint)

---

Si le point est affiché à l'origine, ça marche sans problème, en mode pas à pas et en mode normal. Par contre, si le point n'est pas affiché à l'origine, il marche en pas à pas mais pas en normal. Il doit donc avoir un problème pour lire la valeur qui s'affiche trop rapidement pour lui, mais la temporisation devrait annuler cet effet...

as tu essayé pour voir si avec une tempo de 10s ça changeait quelque chose, peut être lui faut-il vraiment longtemps ?

N'as-tu pas une ligne

Citation:

---

Application.ScreenUpdating = False

---

en début de code ? Auquel cas ceci expliquerait cela...
A tout hasard

ah oui... :) :)

Je n'y pensais plus... J'ai réactivé la mise à jour de l'écran juste avant la partie de code qui posait problème et maintenant tout marche, avec une tempo de 1 seconde. Maintenant je vais cherche une autre méthode pour réduire la tempo (je pense que Application.Wait (Now + TimeValue("0:00:01")) ne marche que pour les tempos multiplicatrices d'une seconde).

Merci à tous pour la résolution de ce problème :) , et désolé de n'avoir pas pensé à quelque chose d'aussi évident (je viens de commencer le VBA, je n'ai pas encore tous les réflexes de base :roll:) !

Evident ! Evident ! Pas si évident que ça ! Non mais ! :evil: Fallait déjà y penser ! :mouarf:
Bon pour ton pb, essaie avec DoEvents, ça devrait suffire ;)