Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

white-spirit

XLDnaute Occasionnel
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

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

Bonjour,

essaye peut être ainsi :
Code:
On Error Resume Next
ActiveSheet.Shapes("TextBox1").Delete
On Error GoTo 0
bonne journée
@+
 

white-spirit

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…