Supprimer les etiquettes de données case à cocher VBA / erreur 424 Fermé

Question

Bonjour, 

Debutant, je souhaiterais que les etiquettes de données de mon graphique ne s'affiche plus quand je coche une case et quand je la decoche elles s'affichent. 

Je pensais utiliser le code suivant:

Sub CheckBox11_Click()

If CheckBox11.Value = True Then
Charts("Graphique1").SeriesCollection(f). _
 ApplyDataLabels Type:=xlDataLabelsShowNone
End If

End Sub


Cependant l'erreur 424 objet requis s'affiche sur la ligne "If CheckBox11.Value = True Then"

Comment puis-je faire?

Merci

Frenchie83 · Answer

Bonjour,

Essayez ceci
Private Sub CheckBox11_Click()
    If CheckBox11.Value = True Then Afficher Else Masquer
End Sub

Sub Afficher()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels
End Sub

Sub Masquer()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).DataLabels.Delete
End Sub

Cdlt

Frenchie83 · Answer

Pour le mode formulaire, à copier dans un module standard
Sub Case_a_cocher()
    ActiveSheet.Shapes("Case à cocher 11").Select
    If Selection.Value = 1 Then Afficher Else Masquer
End Sub

Sub Afficher()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).ApplyDataLabels
End Sub

Sub Masquer()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).DataLabels.Delete
End Sub

Supprimer les etiquettes de données case à cocher VBA / erreur 424

2 réponses

Discussions similaires