Supprimer un WordArt [Résolu]

[micmic1320]

Bonjour à tous,

Débutant en VBA, j'ai écrit une petite macro qui selon les conditions crée un WordArt en plein milieu d'une feuille de calcul excel.
Mon problème est que je ne sais pas comment supprimer ce WordArt quand on modifie une valeur dans une cellule.

Si quelqu'un peut m'aider ???

Merci.

[Theocourant]

Bonjour,

Alors c'est au niveau des objets Shape de la feuille qu'il faut travailler.

Avec l'enregistrement de macro, j'ai obtenu le code suivant:

Code :

1
2
3
4
5
6
Sub Macro2()
 
'
    ActiveSheet.Shapes("WordArt 1").Select
    Selection.Delete
End Sub

+

Théo

[micmic1320]

Ca parait simple mais là ou ça se complique c'est qu'à chaque effacement d'un WordArt, il génère un nouveau n°, ("WordArt 1 "), ("WordArt 2"), etc...

N' y aurait-il pas un moyen d'effacer tout WordArt de la feuille ?

[Theocourant]

Re,

Voilà ce que je te propose :

Code :

1
2
3
4
5
6
7
8
9
Sub EffaceWordArt()
 
    For Each sh In ActiveSheet.Shapes
        If sh.Type = msoTextEffect Then
            sh.Delete
        End If
    Next
 
End Sub

Ce que je fais ici, c'est un bouclage sur tous les shapes de la feuille et je les supprime si c'est un WordArt

+

Théo

[micmic1320]

Impeccable, c'est juste ce qu'il me fallait.

Merci.

[Theocourant]

De rien