XL 2013 Résolu pas DbleZero : afficher ou masquer une image qd cellule change au recalcul

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai un code que je n'arrive pas à trouver et pourtant , les exemples ne manques pas.
Mais je ne sais pas pourquoi, je n'y arrive pas.

Je souhaite qu'une image soit affichée ou masquée en fonction du changement du résultat d'une cellule qui contient une formule.

Voici le code sur lequel je travaille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b1")) Is Nothing Then
If [b1] <> 0 Then
ActiveSheet.Shapes("Image 1").Visible = False
Else
ActiveSheet.Shapes("Image 1").Visible = True
End If
End If
End Sub

Je joins un fichier test.
Un grand merci à toutes et à tous.
Bonne fin de dimanche,
Amicalement,
Lionel,

 

[eriiic]

Bonjour,

Worksheet_Change se déclenche sur une saisie, pas une formule qui évolue.
Ce sont donc les antécédents de B1 qui sont saisis qu'il faut superviser. En l'occurence D8 pour toi, où tu iras contrôler B1.
eric

 

[Usine à gaz]

Merci eriiic pour ta réponse.
J'ai pas compris

J'ai besoin que le code s'exécute quand je change la valeur de D8 qui modifie le résultat de B1

 

[DoubleZero]

Bonjour à toutes et à tous,

Comme ceci ?

Option Explicit
Private Sub Worksheet_Calculate()
ActiveSheet.Shapes("Image 1").Visible = [b1] = 0
End Sub

A bientôt

 

[Si...]

Bonsoir

Serait-ce une formule alambiquée ?

Il vaut mieux s’attaquer à la racine du mal provoqué par la formule (quelle qu’elle soit, même avec =SI(D8="SI...";"oups";""), ou, =D8+ "si" qui provoque une erreur).

Private Sub Worksheet_Change(ByVal Oust As Range)
    ActiveSheet.Shapes("Image 1").Visible = [D8] <> ""
End Sub

Si elle du genre simplissime, comme celle donnée, la proposition de ÔÔ est plus directe .

 

[Usine à gaz]

Bonjour Double Zero,

Toujours à mon secours LOL
Un grand merci. C'est tout bon.
Génial
Amicalement,
Lionel,

 

[Usine à gaz]

Bonjour Si,

Merci aussi pour cette réponse.
Je ne savais pas que les "Si" provoquaient des erreurs.
Bonne journée