XL 2016 si image n'existe pas > else

[Usine à gaz]

Bonjour à toutes et à tous,

Nouveau petit souci et .... naturellement LOL, je me tourne vers nos ténors aux doigts de fée

Pour le fichier test joint :
J'ai besoin d'un code qui vérifie si la photo "votre photo" existe dans la feuille
Si elle n'existe pas > "else"
le code écrit en "G22" : "merci importer votre photo"

J'ai fait des recherches mais je n'ai pas trouvé ce qui pourrait fonctionner pour moi.
Mes tentatives de modifs de codes n'ont pas abouti et je ne sais pas comment faire.

Pourriez-vous m'aider.
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,

 

[pierrejean]

Bonjour lionel
Un essai

Sub existe()
On Error Resume Next
ActiveSheet.Shapes.Range(Array("votre photo")).Select
If Err.Number <> 0 Then MsgBox ("Importer votre photo")
On Error GoTo 0
End Sub

 

[Usine à gaz]

Bonjour Pierrejean,

Un grand merci pour m'avoir répondu et ça fonctionne
Mais ce n'est pas un msgbox dont j'ai besoin

le code écrit en cellule "G22" : "merci d'importer votre photo"

si c'est possible ... ça me comblerait LOL
Amicalement,
lionel,

 

[Usine à gaz]

Re Pierrejean,

J'suis trop bête
Il m'a suffit de modifier un peu ton code et c'est super.
Un grand merci à toi.
Amicalement,
lionel,