Rapport de message :*
 

Re: Coller des valeurs plus une image avec VBA

Titre du sujet : Re: Coller des valeurs plus une image avec VBA
par Guy le 26/01/2011 02:38:07

Bonsoir Poppy,

De prime abord le code embarqué dans ce classeur me semble victime d'un trait commun à bien des débutant. Il s'agit, à moins que je ne me trompe lourdement, de copier/coller tout aussi enthousiaste qu'intempestif. À ce propos méditer l'adage : «From a programmer point of view, copy/paste is just a nightmare waiting to happen» Traduction libre «Du point de vue d'un programmeur le copier/coller n'est qu'un foutoir à l'horizon».

Voilà pour le côté obscur cependant ton classeur est intrigant à plus d'un titre et assez intéressant. Passons du côté ensoleillé.

Je n’ai pas fait l’exégèse du code mais me suis plutôt penché sur les objets Shape de type msoPicture utilisés et surtout de la propriété Formula de ces objets (Ouais, compliqué mais pas pour rien je crois.)

J’ai donc cloné l’image Image 19 de la feuille WS2300 en feuille Janvier au dessus de la cellule AH11 de cette même feuille. J’ai renommé ce clone imgClone et j’ai posé sa formule à l’identique de l’original soit dans le détail

Feuil25.Shapes("imgClone").OleFormat.Object.Formula = Image

où Image est une formule donnée par
=INDIRECT(WS2300!$R$29)

et ainsi l’image imgClone de la feuille Janvier porte la même image que  Image 19 de la feuille WS2300. Plus besoin de transbahuter quoi que ce soit dans la cellule Janvier!AH11. Le clone est lié par la même formule que son jumeau et suit donc les variations d’icelui identiquement.

Tout ceci n’est qu’un brouillon à creuser alors zieute le petit classeur et nous pourrons passer au nettoyage du code et de quelques autres trucs ultérieurement si le temps me laisse un peu souffler. C'est que je turbine ailleurs entre-temps alors si quelqu'un d'autre veut s'y mettre y'a pas d'prob.

Cordialement,

Guy