Image conditionnelle

8 réponses

daille

03/07/2003 à 09:45

Bonjour,

Existe-t-il une solution pour afficher une image (jpg ou
autre) en fonction de la valeur d'une cellule
ex : si chiffre <0 afficher image 1
si chiffre >0 afficher image 2

Merci
daille

8 réponses

boblebob

03/07/2003 à 10:04

slt,

tu peux t'inspirer de ceci :

Select Case Range("a1").Value
Case Is > 0
Pictures.Insert("C:Documents and SettingsTotoMes documentsMes
imagesimage1.jpg").Select
Case Is <= 0
Pictures.Insert("C:Documents and SettingsTotoMes documentsMes
imagesimage2.jpg").Select
End Select

--
a+
bob

(enlever nospam00-)
"daille" a écrit dans le message de news:
06d601c34137$24172850$

Bonjour,

Existe-t-il une solution pour afficher une image (jpg ou
autre) en fonction de la valeur d'une cellule
ex : si chiffre <0 afficher image 1
si chiffre >0 afficher image 2

Merci
daille

03/07/2003 à 10:08

Pour des changements de valeurs de la cellule A1 de la feuille active
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
With ActiveSheet
If zz <= 0 Then
.DrawingObjects("Image1").Visible = True
.DrawingObjects("Image2").Visible = False
Else
.DrawingObjects("Image2").Visible = True
.DrawingObjects("Image1").Visible = False
End If
End With
End Sub

AV

"daille" a écrit dans le message news:
06d601c34137$24172850$

Bonjour,

Existe-t-il une solution pour afficher une image (jpg ou
autre) en fonction de la valeur d'une cellule
ex : si chiffre <0 afficher image 1
si chiffre >0 afficher image 2

Merci
daille

daille

03/07/2003 à 10:21

Merci mais ca ne fonctionne pas :
erreur d'execution '424'
objet requis

pourtant le .jpg exite bien à l'adresse indiquée ds le
script

03/07/2003 à 10:49

Et si tu faisais comme je t'ai dit, en insérant au préalable tes 2 images où tu
veux sur la feuille et évidemment en adaptant les noms des objets) ??

AV

03/07/2003 à 11:06

Ben ça dépend ce que tu veux tester pour faire afficher l'une ou l'autre des
images ...
Une cellule ? Une colonne ? Une plage ?

C'est sur cette ligne qu'il faut intervenir :
-----
If zz.Address <> "$A$1" Then Exit Sub
----

AV

daille

03/07/2003 à 11:18

Même encore plus loin càd
si je veux appliquer cette condition à plusieurs formules
faut-il dupliquer les images et le code VBA ?
ou y til une solution plus rapide ?
Merci

-----Message d'origine-----
oui merci
ton truc fonctionne bien

je souhaiterai aller plus loin
càd mon fichier évolue toutes les semaines (insertion de
colonnes) mais la référence ne suit pas

aurais-tu une astuce cher AV ?

encore thanks
.

03/07/2003 à 11:29

Si tu veux déclencher l'évènement à la saisie sur une plage (discontinue ou pas)
:
Nomme ta plage ex : "plg" puis modif :

Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [plg]) Is Nothing Then Exit Sub
----idem pour le reste-----

AV

"daille" a écrit dans le message news:
09db01c34144$1c517d70$
Même encore plus loin càd
si je veux appliquer cette condition à plusieurs formules
faut-il dupliquer les images et le code VBA ?
ou y til une solution plus rapide ?
Merci

-----Message d'origine-----
oui merci
ton truc fonctionne bien

je souhaiterai aller plus loin
càd mon fichier évolue toutes les semaines (insertion de
colonnes) mais la référence ne suit pas

aurais-tu une astuce cher AV ?

encore thanks
.

boblebob

03/07/2003 à 15:50

bizarre moi ça marche très bien (excel 2000, win 2000)

--
a+
bob

(enlever nospam00-)
"daille" a écrit dans le message de news:
071c01c3413c$269fb5b0$
Merci mais ca ne fonctionne pas :
erreur d'execution '424'
objet requis

pourtant le .jpg exite bien à l'adresse indiquée ds le
script

Image conditionnelle

8 réponses

Veuillez sélectionner un problème