XL 2010 [Résolu] Filigrane sous conditions

[alias_2003]

Bonjour,
Est-il possible d'ajouter une image en filigrane et ce, sous conditions ?
Par ex., dans le fichier joint, si la cellule A1 contient le mot Fleur, mettre la photo en filigrane, sinon la masquer.
Merci mille fois de votre aide,
Amicalement

 

[sousou]

Bonsoir tu peux essayer ceci en utilisant l'arriere plan??
ActiveSheet.SetBackgroundPicture Filename:= chemin du fichier

 

[alias_2003]

Bonjour sousou, le Forum,
Merci pour ta réponse ! Ta proposition fonctionne parfaitement, mais j'aurais aimé que l'image soit dans le fichier lui même...
Merci encore,
Bonne journée

 

[job75]

Bonjour alias_2003, sousou, le forum,

Fichier joint avec cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If LCase([A1]) <> "fleur" Then Me.SetBackgroundPicture "": Exit Sub
Dim fichier As String
fichier = ThisWorkbook.Path & "\Image.jpg"
'---création du fichier JPEG---
With Feuil2.Pictures("Image 1") 'CodeName de la feuille
  .CopyPicture
  With .Parent.ChartObjects.Add(0, 0, .Width, .Height).Chart
    .Paste
    .Export fichier, "JPG"
    .Parent.Delete
  End With
End With
Me.SetBackgroundPicture fichier
Kill fichier
End Sub

Bonne journée.

 

[job75]

Re,

On peut aussi, pour l'impression, mettre l'image en en-tête, fichier joint.

A+

 

[alias_2003]

Bonjour job75, le Forum,
Merci beaucoup pour ces 2 réponses !
Je décortique tout ça et je reviens vers toi !
Merci beaucoup !!
Bonne soirée

 

[alias_2003]

Doublon

 

[alias_2003]

Bonsoir job75, sousou, le Forum,
C'est parfaitement réglé !! MERCI beaucoup,
Amicalement