Appareil de photo et VBA

Bonjour,

Je cherche à créer un code qui me permettrait de faire ceci, après que j’ai sélectionné une plage de cellules :

• Suppression de la dernière photo en place
• Création d’une nouvelle photo sur la base de la sélection effectuée
• Placement de cette nouvelle image à un endroit assez précis.

Dans le fichier exemple fourni, il faudrait que si je sélectionne la plage E25:F30 correspondant aux données de la semaine 5, la photo intitulée ‘’Image 5’’ correspondant aux données de la semaine 4 – image placée vers la cellule B18 – soit effacée et que la nouvelle image se retrouve grosso modo à hauteur de la date du 25 janvier, première date de la semaine 5.

Une des difficultés que je rencontre est que la numérotation des images (donc des photos) est à chaque fois incrémentée de 1. De plus, les autres Shapes en place ne doivent pas être effacées.

Avez-vous une idée de solution ?

Bonjour,

Pourquoi tu ne gardes pas la même ? Y'a plus qu'à la déplacer :

With ActiveSheet.Shapes("Picture 5")
    .Select
    Selection.Formula = "=$E$25:$F$30"
    .Top = Range("$E$25").Offset(, -3).Top
End With

eric

Salut Eric,

Ton idée est excellente et me permets d'avancer dans mon projet. Merci beaucoup pour ton aide.

Très bonne continuation.