Comment supprimer une photo à partir d'une condition en VBA?

Bonjour à tous,
j'aurais besoin d'une petite aide que je sais sera très facile pour vous :-)

mon souhait:
je désire supprimer ma photo "NA avec les 2 traits rouge de la page 2" présent sur la page 2, à la condition que ma case Y11 de la page 1 est coché en l'occurence avec un X majuscule.
Si case non cochée donc cellule Y11= vide, on ne fait rien.

Voir photo Pièce jointe 194257Pièce jointe 194258

En gros,

Code:

---

1 2 3 4 5 6

si Y11 = "X" then Sheets("page 2").Select ActiveSheet.Shapes.Range(Array("Picture 2")).Select Selection.Delete   et si Y11 = rien ... on fait rien

---

Désolé je sais que c'est un truc bateau mais je trouve pas, merci pour votre aide :-)

Bonjour,

Teste ceci :

Code:

---

1 2	If Sheets("page 1").Range("Y11").Value = "X" Then Sheets("page 2").Shapes("Picture 2").Delete

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If Sheets("page 1").Range("Y11").Value = "X" Then   Sheets("page 2").Select   ActiveSheet.Shapes.Range(Array("Picture 2")).Select   Selection.Delete   ActiveSheet.Shapes.Range(Array("Picture 2")).Select   Selection.Delete   End If

---

J'ai réussi comme ceci, j'ai effectué 2 fois la même commande "delete"... je ne sais pas pourquoi sinon cela ne fonctionne pas...Mais le principal est que cela fonctionne comme je voulais au final :-) Merci pour l'aide