On peut essayer le code qui suit dans le module de la feuille "Facturier":
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If IsNumeric([k3]) Then .Shapes("mon shape").Visible = ([k3] > 0) _
Else .Shapes("mon shape").Visible = False
End With
End Sub
Avantages d'une fonction:
-La cellule K3 peut contenir une formule (on teste la valeur du résultat de la formule ou d'une valeur saisie)
-La fonction peut être utilisée pour plusieurs images.
-Le code n'a pas besoin d'être modifié si K3 est déplacé.
En M3 par ex : =affichecache(K3;0;"mon shape")
Code:
Function AfficheCache(nb, seuil, image)
ActiveSheet.Shapes(image).Visible = (nb > seuil)
AfficheCache = 0
End Function
Exemple : Affichage en fonction du résultat d'une formule