XL 2016 si image n'existe pas > else

Usine à gaz · 26 Avril 2019

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 · 26 Avril 2019

Bonjour lionel
Un essai

VB:

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 · 26 Avril 2019

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 · 26 Avril 2019

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,

XL 2016 si image n'existe pas > else

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires