Associer une image a une valeur fixe

Bonjour,

j'arrive à afficher uniquement les images que sur le premier jour du mois, j'aimerai pouvoir les afficher sur tous les jours

je mets le fichier en pièce jointe

A l'aide!!!!!

Merci d'avance.

Paky

Bonjour

Attention cette macro ne réagit que lors de la modification de la cellule mais pas avec une formule

Modifies le code du module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column Mod 23  = 2 And Target.Count = 1 Then
    '-- suppression
   For Each s In ActiveSheet.Shapes
       If s.Type = 13 Then
          If s.TopLeftCell.Address = Target.Offset(0, -1).Address Then
             s.Delete
          End If
       End If
     Next s
     '--
    If Target <> "" Then
        lig = [Reference].Find(Target, LookAt:=xlWhole).Row
        col = [Reference].Column - 1
        For Each s In Sheets("Base").Shapes
          If s.TopLeftCell.Address = Cells(lig, col).Address Then s.Copy
        Next s
        Target.Offset(0, -1).Select
        ActiveSheet.Paste
        Selection.ShapeRange.Left = ActiveCell.Left + 3
        Selection.ShapeRange.Top = ActiveCell.Top + 3
        Target.Select
      End If
    End If
End Sub

Merci BEAUCOUP!!!!!! Banzai

J'ai deux dernier petits problèmes si ce n'est pas trop abuser!!!

comme c'est une matrice que je veux adapter à différents produits quand je remplace l'image et je redémarre l'image ne se change pas!

Et j'aimerai recopier la formule "Reference" sur tous les jours, mais ca ne marche pas, pour afficher l'image je dois recopier cellule par cellule.

novice d’où mes questions de boulet!!!

Merci d'avance

Paky

Bonjour

J'avais précisé

Banzai64 a écrit :

Attention cette macro ne réagit que lors de la modification de la cellule mais pas avec une formule

On pourrait utiliser l'évènement Calculate mais en cas de très nombreuses photos, cela risque de ralentir sérieusement le programme

Alors utilisation d'un bouton

A voir (J'ai testé sur Excel 2003)

Merci c'est parfait, je te remercie cela fait 15jours que je suis dessus

mais il ya toujours un mais :

erreur d'exucution '13' :

incompatibilité de type

If .Cells(J, I) <> "" Then debogage sur cette ligne

j'ai office 2010 c'est peut etre pour ca entre 2003 et 2010

Merci

Paky

en mettant fin au débogage, l'image se change

Bonsoir

Je viens de tester et bien sur pas de problème

Il faudrait savoir les valeurs de J et de I quand la macro se plante

Et bien sur savoir ce qu'il y a dans cette cellule

MERCI C'EST NOËL!!!!!!!

Tout marche nickel en fait!!!!

je l'ai adapté a mon fichier sur six mois de l'année et avec plus de 200 phots tout marche nickel

MERCI ENCORE!!!!!!!

Paky