Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Insertion d'une image dans une cellule Excel

Insertion d'une image dans une cellule Excel

8 réponses
Avatar
Jean-Noel Robert
Bonjour,
Je voudrais pouvoir insérer une image ou un logo genre feu rouge ou feu vert
suivant la valeur de la cellule.
Est-ce possible ? Je suis sur du 2003 et indiféremment sur 2007.
Merci par avance pour vos réponses.
Jean-Noël
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Maude Este
Bonsour®

jefraro a écrit
Je voudrais pouvoir insérer une image ou un logo genre feu rouge ou feu vert
suivant la valeur de la cellule.
Est-ce possible ? Je suis sur du 2003 et indiféremment sur 2007.
Merci par avance pour vos réponses.



Une formule ne peut renvoyer qu'une valeur et ne peut modifier un format
reste alors :
- un format personnalisé : [Bleu];[Rouge];[vert];[Noir]
avec les variantes possibles : < = >
(concerne les caractères affichés)

- une mise en forme conditionnelle
basée sur la valeur ou une formule
(concerne le remplissage, couleur police, bordure)

- un test via une cellule contigüe
= si(A1>B1;"J";"L") police Windings taille 20
ou encore afficher une image
http://polykromy.com/html/decaler.html
Avatar
michdenis
Bonjour,

Tu insères (superposes) tes 2 images dans la cellule de ton choix
et dans le module feuille de la feuille où se déroule l'action, tu peux
utiliser ce type de code :

Le nom des 2 images est "Img1" et "Img2"
J'ai supposé que la cellule dont la valeur varie est D1
Tu peux utiliser la condition que tu désires dans les "Case"
du "select case".

'----------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("D1").Address Then
Select Case Target.Value
Case Is < 25
Me.Shapes("Img1").Visible = msoFalse
Me.Shapes("Img2").Visible = msoTrue
Case Is < 50
Me.Shapes("Img1").Visible = msoTrue
Me.Shapes("Img2").Visible = soFalse
Case Else
Me.Shapes("Img1").Visible = soFalse
Me.Shapes("Img2").Visible = soFalse
End Select
End If
End Sub
'----------------------------------

--
MichD
--------------------------------------------


"Jean-Noel Robert" a écrit dans le message de groupe de discussion :
4cc94019$0$1261$
Bonjour,
Je voudrais pouvoir insérer une image ou un logo genre feu rouge ou feu vert
suivant la valeur de la cellule.
Est-ce possible ? Je suis sur du 2003 et indiféremment sur 2007.
Merci par avance pour vos réponses.
Jean-Noël
Avatar
Tatanka
Bonjour,

Deux façons de faire du genre Maude et michdenis :
http://www.cijoint.fr/cjlink.php?file=cj201010/cijL6AMbY3.xls

Ma macro de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E7").Address Then
If Target.Value < 25 Then
Me.Shapes("Vert").Visible = msoFalse
Me.Shapes("Rouge").Visible = msoTrue
Else
Me.Shapes("Vert").Visible = msoTrue
Me.Shapes("Rouge").Visible = msoFalse
End If
End If
End Sub

Serge

On 28 oct, 05:22, "Jean-Noel Robert" wrote:
Bonjour,
Je voudrais pouvoir insérer une image ou un logo genre feu rouge ou feu vert
suivant la valeur de la cellule.
Est-ce possible ? Je suis sur du 2003 et indiféremment sur 2007.
Merci par avance pour vos réponses.
Jean-Noël
Avatar
Tatanka
Ou plus simplement :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E7").Address Then
Me.Shapes("Vert").Visible = Target.Value >= 25
Me.Shapes("Rouge").Visible = Target.Value < 25
End If
End Sub

avec cette formule en E5 (Fonte Wingdings, taille 20) :
= SI(E7<25;"L";"J")

Serge
On 28 oct, 07:33, Tatanka wrote:
Bonjour,

Deux façons de faire du genre Maude et michdenis :http://www.cijoint.fr /cjlink.php?file=cj201010/cijL6AMbY3.xls

Ma macro de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E7").Address Then
    If Target.Value < 25 Then
            Me.Shapes("Vert").Visible = msoFalse
            Me.Shapes("Rouge").Visible = msoTrue
     Else
            Me.Shapes("Vert").Visible = msoTrue
            Me.Shapes("Rouge").Visible = msoFalse
    End If
End If
End Sub

Serge

On 28 oct, 05:22, "Jean-Noel Robert" wrote:



> Bonjour,
> Je voudrais pouvoir insérer une image ou un logo genre feu rouge ou f eu vert
> suivant la valeur de la cellule.
> Est-ce possible ? Je suis sur du 2003 et indiféremment sur 2007.
> Merci par avance pour vos réponses.
> Jean-Noël- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Avatar
Jean-Noel Robert
Tout d'abord merci pour votre réponse rapide. Je précise que mes essais ont
été fait sur de l'Excel 2003.
J'ai intégré votre code et je rencontre quelques problèmes :
- Soit j'appelle votre code par une fonction CALL ce qui remonte l'erreur
ARG non défini.
- Soit il ne reconnaît pas le terme Me.shapes

Question :
Faut-il déclarer une librairie particulière ?
Faut-il l'intégrer au code directement ou bien il faut l'appeller par une
fonction ?

Grand merci pour votre aide précieuse.

Jean-Noël



"Tatanka" a écrit dans le message de news:

Ou plus simplement :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E7").Address Then
Me.Shapes("Vert").Visible = Target.Value >= 25
Me.Shapes("Rouge").Visible = Target.Value < 25
End If
End Sub

avec cette formule en E5 (Fonte Wingdings, taille 20) :
= SI(E7<25;"L";"J")

Serge
On 28 oct, 07:33, Tatanka wrote:
Bonjour,

Deux façons de faire du genre Maude et michdenis
:http://www.cijoint.fr/cjlink.php?file=cj201010/cijL6AMbY3.xls

Ma macro de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E7").Address Then
If Target.Value < 25 Then
Me.Shapes("Vert").Visible = msoFalse
Me.Shapes("Rouge").Visible = msoTrue
Else
Me.Shapes("Vert").Visible = msoTrue
Me.Shapes("Rouge").Visible = msoFalse
End If
End If
End Sub

Serge

On 28 oct, 05:22, "Jean-Noel Robert" wrote:



> Bonjour,
> Je voudrais pouvoir insérer une image ou un logo genre feu rouge ou feu
> vert
> suivant la valeur de la cellule.
> Est-ce possible ? Je suis sur du 2003 et indiféremment sur 2007.
> Merci par avance pour vos réponses.
> Jean-Noël- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Avatar
Tatanka
Dans le document que j'ai envoyé, fais un clic droit sur l'onglet
Feuil1
et clique sur Visualiser le code. Tu verras la macro de feuille que tu
peux modifier tel qu'indiqué dans mon précédent message.
Quand tu reviens sur ta feuille de calcul, un simple changement
de valeur en E7 suffit à déclencher la macro.

Serge


On 28 oct, 09:39, "Jean-Noel Robert" wrote:
Tout d'abord merci pour votre réponse rapide. Je précise que mes essa is ont
été fait sur de l'Excel 2003.
J'ai intégré votre code et je rencontre quelques problèmes :
- Soit j'appelle votre code par une fonction CALL ce qui remonte l'erreur
ARG non défini.
- Soit il ne reconnaît pas le terme Me.shapes

Question :
Faut-il déclarer une librairie particulière ?
Faut-il l'intégrer au code directement ou bien il faut l'appeller par u ne
fonction ?

Grand merci pour votre aide précieuse.

Jean-Noël

"Tatanka" a écrit dans le message de news:

Ou plus simplement :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E7").Address Then
    Me.Shapes("Vert").Visible = Target.Value >= 25
    Me.Shapes("Rouge").Visible = Target.Value < 25
End If
End Sub

avec cette formule en E5 (Fonte Wingdings, taille 20) :
= SI(E7<25;"L";"J")

Serge
On 28 oct, 07:33, Tatanka wrote:



> Bonjour,

> Deux façons de faire du genre Maude et michdenis
> :http://www.cijoint.fr/cjlink.php?file=cj201010/cijL6AMbY3.xls

> Ma macro de feuille :
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Address = Range("E7").Address Then
> If Target.Value < 25 Then
> Me.Shapes("Vert").Visible = msoFalse
> Me.Shapes("Rouge").Visible = msoTrue
> Else
> Me.Shapes("Vert").Visible = msoTrue
> Me.Shapes("Rouge").Visible = msoFalse
> End If
> End If
> End Sub

> Serge

> On 28 oct, 05:22, "Jean-Noel Robert" wrote:

> > Bonjour,
> > Je voudrais pouvoir insérer une image ou un logo genre feu rouge ou feu
> > vert
> > suivant la valeur de la cellule.
> > Est-ce possible ? Je suis sur du 2003 et indiféremment sur 2007.
> > Merci par avance pour vos réponses.
> > Jean-Noël- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Avatar
Tatanka
Autre chose :
1) Tu insères deux images sur ta feuille de calcul et tu les nommes.
2) Tu sélectionnes une image et pour la nommer,
clique dans la zone « Nom », juste à gauche
de la barre de formule, écris le nom qui te convient
et tape sur OK. Dans mon exemple, l'une se nomme Vert
et l'autre Rouge.
...

Serge
Avatar
Tatanka
Si ça peut rendre service à Jean-Noël :
http://www.cijoint.fr/cjlink.php?file=cj201010/cijISWcXYI.xls

Serge