MFC étiquettes Graphique

Le
magic-dd
Bonsoir à tous

est il possible d'utiliser une MFC sur une etiquette de donnée d'un graph=
ique en fonction de sa valeur

ex: si la valeur est négative l'etiquette aura un fond rouge

si positive fond vert


merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25308702
Bonjour,

Au lieu d'utiliser une MFC directement sur l'étiquette,
utilise plutôt la plage de cellules sources du graphe.

Par exemple, la procédure événementielle de la
feuille de données sources (là où mettre la macro)
s'exécute à chaque fois que la valeur de la plage de
cellules de la série est modifiée.

'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Range("B2:B10"))

'B2:B10 représente par exemple les données
'de la série de ton graphe.

If Not Rg Is Nothing Then
For Each c In Rg
'Tu vérifies la valeur du point et
'tu adaptes la couleur de l'étiquette.
'L'enregistreur macro va te donner
'l'essentiel pour le formatage de l'étiquette
Next
End If
End Sub
'-------------------------------------


MichD
---------------------------------------------------------------
magic-dd
Le #25308772
Bonsoir MichD

bon, je ne vois pas ou tu veux en venir

j'ai essayé, voici le fichier

je ne comprends pas le systeme d'attribution de MFC à l'etiquette

merci de m'éclairer

http://cjoint.com/?CCCvsAVQZby


Le jeudi 28 mars 2013 20:09:15 UTC+1, MichD a écrit :
Bonjour,



Au lieu d'utiliser une MFC directement sur l'étiquette,

utilise plutôt la plage de cellules sources du graphe.



Par exemple, la procédure événementielle de la

feuille de données sources (là où mettre la macro)

s'exécute à chaque fois que la valeur de la plage de

cellules de la série est modifiée.



'-------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)



Dim Rg As Range

Set Rg = Intersect(Target, Range("B2:B10"))



'B2:B10 représente par exemple les données

'de la série de ton graphe.



If Not Rg Is Nothing Then

For Each c In Rg

'Tu vérifies la valeur du point et

'tu adaptes la couleur de l'étiquette.

'L'enregistreur macro va te donner

'l'essentiel pour le formatage de l'étiquette

Next

End If

End Sub

'-------------------------------------





MichD

---------------------------------------------------------------
MichD
Le #25309742
Bonjour,

Retour de ton fichier : http://cjoint.com/?CCDnu6SZCk4

Tu peux raffiner le code selon tes exigences...




MichD
---------------------------------------------------------------
magic-dd
Le #25310012
Merci MichD

en fait c'est le tube qui change de couleur

mais ça me va bien aussi

merci et bon week end

Le vendredi 29 mars 2013 13:21:57 UTC+1, MichD a écrit :
Bonjour,



Retour de ton fichier : http://cjoint.com/?CCDnu6SZCk4



Tu peux raffiner le code selon tes exigences...









MichD

---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme