ShapeCacheAffiche

[hakimenne]

Bonjour

Je voudrais bien que mon Shape se cache et s'affiche en fonction de la valeur d'une cellule

Merci pour votre aide

 

[mapomme]

Re : ShapeCacheAffiche

Bonjoir hakimenne,

On peut essayer le code qui suit dans le module de la feuille "Facturier":

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

 

[BOISGONTIER]

Re : ShapeCacheAffiche

Bonjour,

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

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

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

Cf Fonction affichage image interne

JB

 

[hakimenne]

Re : ShapeCacheAffiche

Bonjour

c'est impecable ;le code marche comme je voulais

Un Grand Merci a mapomme et a BOISGONTIER