faire coincider une image à une date ?

bigfoot

XLDnaute Occasionnel
Bonjour voilà mon problème,

depuis que je suis passé sur une autre version d'excel, je m'y perd !

tout est expliqué dans l'exemple " points" que j'ai joint, si un bon samaritain pouvait me donner la marche à suivre se serait sympa.
MERCI D'avance
 

Pièces jointes

  • points.xlsx
    30.5 KB · Affichages: 72
  • points.xlsx
    30.5 KB · Affichages: 64
  • points.xlsx
    30.5 KB · Affichages: 66

mapomme

XLDnaute Barbatruc
Supporter XLD
Re : faire coincider une image à une date ?

Bonjour bigfoot,

Un petit essai dans le fichier joint:
une formule en C2
un peu de code dans le module de la feuille "Feuil1":
VB:
Private Sub Worksheet_Calculate()
Dim Shp As Shape
  For Each Shp In Shapes
    If Shp.TopLeftCell.Address = Range("d3").Address Then Shp.Delete
  Next Shp
  Cells(2 + Range("B2"), "j").Copy Range("d3")
End Sub
 

Pièces jointes

  • points v1.xlsm
    615.3 KB · Affichages: 79

bigfoot

XLDnaute Occasionnel
Re : faire coincider une image à une date ?

Bonjour bigfoot,

Un petit essai dans le fichier joint:
une formule en C2
un peu de code dans le module de la feuille "Feuil1":
VB:
Private Sub Worksheet_Calculate()
Dim Shp As Shape
  For Each Shp In Shapes
    If Shp.TopLeftCell.Address = Range("d3").Address Then Shp.Delete
  Next Shp
  Cells(2 + Range("B2"), "j").Copy Range("d3")
End Sub

un grand merci, c'est le top, un bon week end a+
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 361
Messages
2 087 626
Membres
103 609
dernier inscrit
AmineAB33