Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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 '-------------------------------------
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
'-------------------------------------
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 '-------------------------------------
