Supprimer les etiquettes de données case à cocher VBA / erreur 424
MarionD16
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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
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
A voir également:
- Supprimer les etiquettes de données case à cocher VBA / erreur 424
- Supprimer rond bleu whatsapp - Guide
- Supprimer les données de navigation - Guide
- Impossible de supprimer une page word - Guide
- Fichier impossible à supprimer - Guide
- Supprimer pub youtube - Accueil - Streaming
2 réponses
Bonjour,
Essayez ceci
Cdlt
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
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
Merci pour votre aide
Apparemment, si tu as "case à cocher", tu est en mode "contrôle de formulaire" dans le menu "développeur - insérer" . checkbox est dans "contrôle-active X"
Si tu as besoin d'une macro, il vaut mieux utiliser "contr^le-active X"