Aide pour fonction if

[fredannab]

J'ai créé un outil de consultation de tarifs.

L'utilisateur selectionne les parametres, qui permettent d'afficher le prix d'une reference.

Ensuite, il a la possibilité d'appuyer sur un bouton pour insérer une image de la reference selectionnée.

Enfin, j'ai un bouton avec macro qui permet d'effacer toutes les selections, image comprise.

Cette dernière macro fonctionne bien sauf que message d'erreur si la l'utilisateur n'a pas choisi d'inserer l'image (erreur à l'instruction d'effacer l'image qui n'existe pas !)

Je voudrais donc que la macro teste au préalable l'existance de l'image, dont le nom est "A effacer".


Quelqu'un pourrait-il m'aider pour la syntaxe, du style

If "A effacer" n'existe pas
Then passer à l'étape d'après
Else Do Activesheet.shapes("A effacer").delete

Je ne parle pas couramment le vba.... de l'aide svp ?

 

[Banzai64]

Re : Aide pour fonction if

Re

Testes

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