Une Image si une cellule est non vide

[Nougatine95]

Bonsoir,

J'ai un petit... un GROS souci ! pour insertion d'une image lorsque qu'une cellule est non vide.

Fichier joint pour + de clarté.

Merci pour votre aide toujours aussi généreuse.

 

[Hulk]

Re : Une Image si une cellule est non vide

Hello,

Voici ce que j'ai compris.

Ai mis des explications dedans, j'espère que tu comprendras.

Tu peux aussi faire avec une macro, et perso je trouve plus simple, mais comme je ne savais pas si tu voulais avec ou sans macro...

 

[DoubleZero]

Re : Une Image si une cellule est non vide

Bonjour, Nougatine95, Hulk 🙂, le Forum,

Une autre suggestion, en pièce jointe, avec ce code :

Option Explicit
Sub Téléphone_image_insérer_si()
    Dim c As Range
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        If Not Intersect(sh.TopLeftCell, Range("a1:i6")) Is Nothing Then sh.Delete
    Next sh
    For Each c In Range("A1:A6,D1:D6,G1:G6")
        If c.Value <> "" Then Range("tph").Copy Destination:=c.Offset(, 1)
    Next
End Sub

A bientôt 🙂

 

[excfl]

Re : Une Image si une cellule est non vide

Bonjour le forum,

K1 : (

B2 : =SI(ESTVIDE(A2);"";$K$1)
Format de cellule : police : wingdings.

excfl

 

[Nougatine95]

Re : Une Image si une cellule est non vide

Bonjour Hulk, DoubleZero, excfl

J'ai testé chacune de vos propositions.
Tout fonctionne parfaitement.

Ma préférence pour Hulk et pour excfl.

Pour DoubleZero, le fait de cliquer pour déclencher l'apparition de l'icône téléphone ne convient pas pour ce fichier;
par contre, rien ne se perd, je vais pouvoir l'adapter à un autre fichier, chose qui me semblait bien périlleuse!

Un grand merci à vous 3.

Nougatine95.