Insertion d'une image dans une cellule Excel

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Maude Este
Le #22728641
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
michdenis
Le #22729331
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" 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
Tatanka
Le #22729371
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"
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
Tatanka
Le #22729491
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
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"


> 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 -
Jean-Noel Robert
Le #22729881
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"
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
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"


> 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 -
Tatanka
Le #22729871
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"
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"
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


> 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"
> > 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 -
Tatanka
Le #22729951
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
Tatanka
Publicité
Poster une réponse
Anonyme