afficher un filigrane sous condition

[pascal21]

bonsoir
j'ai un filigrane nommé FlgrTxt1_1
crée par la macro complémentaire de TI
est-il possible qu'il soit visible seulement sous condition
exemple

if range("a1").value = "" then
FlgrTxt1_1.visible =false

mais ça, ça ne marche pas
avez-vous une solution
j'aimerais au final afficher tel filigrane en fonction du contenu d'une cellule
merci

 

[JCGL]

Re : afficher un filigrane sous condition

Bonjour à tous,

Et si tu déposais ton fichier pour les tests ?

A+ à tous

 

[pascal21]

Re : afficher un filigrane sous condition

bonsoir JCGL
voilà un fichier exemple

 

[job75]

Re : afficher un filigrane sous condition

Bonsoir Pascal, JC,

Par exemple cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("FlgrTxt1_1").Visible = Range("A1") <> ""
End Sub

A+