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

Usine à gaz · 23 Juillet 2017

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 :

Code:

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 · 23 Juillet 2017

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 · 23 Juillet 2017

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 · 23 Juillet 2017

Bonjour à toutes et à tous,

Comme ceci ?

Code:

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

A bientôt

Si... · 23 Juillet 2017

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).

VB:

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 · 24 Juillet 2017

Bonjour Double Zero,

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

Usine à gaz · 24 Juillet 2017

Bonjour Si,

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

eriiic

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires