XL 2016 Redimensionner plusieurs images

[devis]

Bonjour,

J'ai une macro qui fonctionne très bien et que j'ai un peut modifier

Mais le problème et que les tailles les photos ne sont pas les mêmes

J'ai beau modifié les lettres et les chiffres des cellules, mais cela ne change rien

j'aimerais avoir la possibilité de positionnés toutes les photos de la même taille dans les cases demandés

J'ai joint mon fichier comme exemple pour mieux comprendre le problème

Je vous remercie pour votre aide

 

[Laliepomm]

Bonjour,
le fichier joint est en format xls et non xlsm. Impossible de voir ta macro pour vérifier ce qui se passe.
Cordialement,
Lalie

 

[Laliepomm]

Bonjour,
Ne connaissant pas ta macro de départ, je t'insère ici ton fichier avec les macro de @Staple1600 du 27/03/2021.
J'ai rajouté un onglet "PHOTO Test" dans lequel j'ai modifié ton fichier pour mettre un nb de colonnes et de lignes plus alignés sur ton besoin de dimensionnement des photos.
Je te laisse tester les macros avec les 2 boutons.
J'espère que tu trouveras ton bonheur.
Bon week-end
Lalie

 

[logmin]

Bonjour

Merci beaucoup de m'avoir répondu
pour la taille des images, c'est très bien merci

J'ai regardé les modifications sur le fichier je trouve ton exemple vraiment bien
mais le souci je le trouve plus long a la mise en place des images

Garder la méthode de mon fichier me plait beaucoup
peut ton garder cette méthode et avoir le tien dans la même macro

Encore merci pour ton aide

 

[Laliepomm]

Bonjour,
je te conseille de tester l'ajout de cette macro dans ta macro actuelle.
Si tu n'y arrives, tu devrais joindre le fichier (attention! au format .xlsm et non xls, autrement on ne peut pas avoir accès aux macros).
Cordialement,
Lalie

 

[devis]

Re bonjour

J'ai effectué le teste, mais l'emplacement des images ne corresponde pas aux cellules demander
J'ai une parti ou il doit avoir des photos entre
Les cellules
CONSTATATION
TRAVAUX
j'ai joint le fichier avec la mise en place des photos une fois le rapport terminé
Merci encore

 

[devis]

Bonjour
j'ai trouvé la solution sur un autre forum
je joins mon fichier

 

[Laliepomm]

Bonjour
j'ai trouvé la solution sur un autre forum
je joins mon fichier

Bonjour,
Cool
Au cas où, je te joins ma version de ton tableau avec la mise en forme en fonction des cellules (avec une partie des données de la macro de @Staple1600.
J'ai simplifié le nb de cellules et nommer celles à utiliser dans les macros.
J'ai ajouté 2 boutons pour gérer les macros (qui n'apparaissent pas à l'impression).
Cordialement,
Lalie

 

[devis]

Bonjour

J'aime beaucoup comment tu as fait
Mais le problème et que le fichier appartient a orange France
Le fait de faire les modifications ne leur conviennes pas, c'est pour cela que j'ai supprimé les boutons

Moi j'aurais aimé avec un double clic a l'emplacement ou 'limage doit être inséré

Je te remercie vraiment de ton aide

 

[Dudu2]

Bonjour,

'Définit l'emplacement de l'image
 Set Emplacement = Range("C3:D9")

A qualifier correctement:

'Définit l'emplacement de l'image
Set Emplacement = ActiveSheet.Range("C3:D9")

Et l'image sera au bon endroit à la bonne taille.
(J'ai mis un moment avant de le voir celui-là !)

Pourquoi ?
Parce que le Sub Image() est une fonction de la feuille CRM NRA-ET-01 et que le feuille sur laquelle on travaille est PHOTO.
La Macro de la feuille prend comme référence non qualifiée la feuille à laquelle elle appartient et non pas la feuille active.
D'où l'utilité de TOUJOURS qualifier complètement les objets dans le code.