Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Redimensionner plusieurs images

devis

XLDnaute Nouveau
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
 

Pièces jointes

  • COURTHIEZY CNE_CRM-NRA-ET-01_2021.xls
    184 KB · Affichages: 18

Laliepomm

XLDnaute Junior
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
 

Pièces jointes

  • COURTHIEZY CNE_CRM-NRA-ET-01_2021.xlsm
    181.3 KB · Affichages: 4

logmin

XLDnaute Nouveau
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

XLDnaute Junior
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

XLDnaute Nouveau
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
 

Pièces jointes

  • CRM-NRA-ET-01_2021.xlsm
    328 KB · Affichages: 4

Laliepomm

XLDnaute Junior
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
 

Pièces jointes

  • test CRM-NRA-ET-01_2021.xlsm
    35.3 KB · Affichages: 4

devis

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour,
VB:
'Définit l'emplacement de l'image
 Set Emplacement = Range("C3:D9")
A qualifier correctement:
Code:
'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.
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…