Bonjour,
Je n'arrive pas à coller l'image dans la cellule AH de la feuille "Janvier".
Pouvez-vous me dire ce qui coince dans le code "Vent".

'Vent
   Set Source = .Range("O5:AA5"): Colonne = "AF"
   FeJanvier.Range(Colonne & 65535).End(xlUp).Offset(2, 0). _
   Resize(Source.Rows.Count, Source.Columns.Count).Value = Source.Value

Fichier joint
Merci de votre aide
Cordialement
Guy

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


où Image est une formule donnée par

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

Bonjour,
Merci de me répondre
Pour l'instant, je n'ai pas pu faire grand chose car, la macro "FouilleShape" S'arrête à "Stop" surligné en jaune.
Cordialement

PS : le code en page "Janvier" ne sert à rien , ilest à supprimer.

Bonjour Poppy,

Ne t'occupe pas du code ajouté. Ce n'est que broutille utilitaire. Est-ce que l'image en feuille Janvier est bien la bonne?

Guy

Oui l'image est la bonne suivant les nombres des case de la colonne P de la feuille "WS2300".
A chaque changement, l'mage suivant se place 2 lignes en dessous de la 1ère.