Image dans excel

[skaal]

Bonjour,

Bizarrerie....

Voilà, j'aimerai faire apparaître une image en fonction de la valeur d'une cellule. Je suis sous Excel 2007.

Voici mon code VBA : rien de compliqué

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A46").Value = "NON" Then
Image1.Visible = True
Else
Image1.Visible = False
End If
End Sub


En A46 contient : =INDEX(EX_Q1;A1)
Et retourne la valeur OUI ou NON en fonction de la plage de l'index.

Ben çà fonctionne pas, sauf si je remplace A46 manuellement par la valeur NON.

Une solution ?

 

[jp14]

Re : Image dans excel

Bonjour

Une piste
Avec excel le contenu de la cellule ne correspond pas toujours à ce que l'on voit, c'est comme pour la magie.
Dans la cellule on doit avoir "false" ou "true", il faudrait donc considérer le contenu de la cellule comme une valeur booléenne.
If Range("A46").Value = false Then

JP

 

[nolich]

Re : Image dans excel

Bonjour skaal et jp14, bonjour à toutes et à tous,

De plus, si XL2007 ne déroge pas à la règle, un recalcul de formule dans une cellule ne déclenche pas d'évènement. Cela explique pourquoi ton code ne fonctionne que lorsque tu modifies la valeur manuellement.

 

[BOISGONTIER]

Re : Image dans excel

Bonjour,


http://boisgontierjacques.free.fr/fichiers/Images/FonctionAfficheCacheShape.xls

JB