Bouton "effacer contenu" qui bug quand pas de contenu
Hello,
J'ai une macro qui me sert à effacer le contenu d'étiquettes de graphs. Seul problème, quand les graphs sont vides (il n'y a rien à effacer) et que je clique dessus, c'est le bug. Je dois ajouter quoi pour éviter le message d'erreur et que ca exécute malgré le contenu vide ?
Sub Erase_nameV3()
ActiveSheet.Unprotect "xxx"
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.Delete
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.Delete
ActiveSheet.Protect "xxx"
End Sub
Merci à vous !
Bonjour,
un simple "IF" ^^
if "c'est vide" then
exit sub
else
'votre code actuel
Je n'arrive pas à l'écrire, je l'ai enregistré à la base
Pouvez-vous m'indiquer l'écriture exacte ?
Sub Erase_nameV3()
ActiveSheet.Unprotect "xxx"
On Error Resume Next
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.Delete
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.Delete
On Error Goto 0
ActiveSheet.Protect "xxx"
End Sub
Merci pour la proposition mais ca me fait disparaître mes graphiques !
Bonjour,
voila la syntaxe pour ma solution :
à tester
Sub Erase_nameV3()
ActiveSheet.Unprotect "xxx"
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
If IsEmpty(Selection) = False Then
Selection.Delete
End If
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
If IsEmpty(Selection) = False Then
Selection.Delete
End If
ActiveSheet.Protect "xxx"
End SubMerci une nouvelle fois mais l'erreur continue d'apparaître :
Problème avec la propriété count de la classe datalabels.
?
