Effacer l'image d'une cellule

Bonjour,

Voila,

Je vais mettre un fichier trouvé sur ce site et que j'ai réussi à faire sur mon fichier,

Je voudrais lorsque:

J'efface toutes les cellules avec un bouton RAZ.

La cellule contenant L'image efface aussi.

J'ai regardé beaucoup de vidéos et lu beaucoup de sujets sur différents forums, pas trouver la solution!!!!

Auriez-vous une idée du comment réaliser cette exploit à mes yeux

Merci d'avance

Bonjour Pelerin65,

Es-tu sûr que tu as fourni le bon fichier ? Je ne vois aucun code ... ni bouton "Raz" ...

ric

Bonsoir Pelerin65,

La quatrième image où est inscris Vide dans la feuille Images sert maintenant à effacer l'image.

S'il y a plus d'images adapte le code VBA (voir code de la 1ière feuille) à la cellule qui ne contient pas d'image en feuille Images.

J'ai laissé le fichier en modèle 1997-2003 bien que tu sois sur Office 365.

Bonjour,

Personne à une idée et un début de piste

Dommage, j'aurais bien aimé associer une image et les choix du menu déroulant dans mon classeur

mais menu vide, pas d'image.

merci

Bonjour Pelerin65,

Il suffit de télécharger le fichier proposé Vendredi 9.

Bonjour Pelerin65, le fil, le forum,

Une ébauche ... c'est la gestion des demandes ...

- Un sous-dossier "LesDemandes" sera créé au besoin ...

- La feuille est créée ... et une copie du fichier est stockée dans le sous-dossier ...

- Si la feuille ou le fichier existe déjà ... il y a un message ...

- L'image s'affiche à l'aide du fichier de "X Cellus" (merci) ...

- Je ne sais pas comment faire si G10 est vide pour enlever l'image ...

- La fichier n'a pas été testé à fond ...

À+

ric

bonjour, Xcellus, et le forum

Dans ton code,

cette commande ("france") c est le nom d'une feuille ou pas ?

j'essaie ton code sur mon fichier définitif ca fonctionne pas c'est cause de ("france ")ou pas ? ???

c'est exactement ça comme code et résultat souhaité.

ActiveSheet.Shapes("France").Visible

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Range("$B$2") = "Image 4" Then
ActiveSheet.Shapes("France").Visible = False: Range("B5:B10").Interior.Color = xlNone
Else: ActiveSheet.Shapes("France").Visible = True: Range("B5:B10").Interior.Color = vbWhite
End If
End Sub

cordialement

Bonsoir Pelerin65,

En retour avec plus d'explications dans le fichier en version 365.

FRANCE est le nom d'un Shape permettant de dévoiler l'image ciblée par la valeur en $B$2.