Tester la présence d'une TextBox pour la supprimer

[white-spirit]

Bonjour Le Forum,

dans une feuille ""lambda", il se peut qu'une TextBox ait déja été créée (par une macro)

Cette TextBox s'appelera systématiquement "TextBox1".

Lors du déroulement d'une macro dans la feuille "lambda", j'ai besoin de vérifier si cette TextBox est bien la, pour la supprimer ...

j'ai une partie du code qui fonctionne pour la suppression, mais je coince pour le test. Si je supprime sans qu'elle soit la, forcement, il y a erreur ...

donc il me faudrait :

if ....................................... then
ActiveSheet.Shapes("TextBox1").Delete
end if

Merci d'avance à ceux qui sauraient me proposer le code du test de présence.

Cordialement

WS

 

[Pierrot93]

Re : Tester la présence d'une TextBox pour la supprimer

Bonjour,

essaye peut être ainsi :

On Error Resume Next
ActiveSheet.Shapes("TextBox1").Delete
On Error GoTo 0

bonne journée
@+

 

[white-spirit]

Re : Tester la présence d'une TextBox pour la supprimer

Merci Pierrot ! Le bon sens en personne !

C'est vrai, on cherche des solutions compliquées, alors que c'est qqfois simple ...

Bonne journée à toi aussi !

Bien cordialement

WS