XL 2016 Redimensionner plusieurs images

L

Laliepomm

XLDnaute Junior

• 14 Mai 2021

• #2

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

 

Vote positif 0 Vote négatif

L

Laliepomm

XLDnaute Junior

• 14 Mai 2021

• #3

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

Vote positif 0 Vote négatif

L

logmin

XLDnaute Nouveau

• 17 Mai 2021

• #4

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

 

Vote positif 0 Vote négatif

L

Laliepomm

XLDnaute Junior

• 17 Mai 2021

• #5

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

 

Vote positif 0 Vote négatif

D

devis

XLDnaute Nouveau

• 17 Mai 2021

• #6

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

Vote positif 0 Vote négatif

D

devis

XLDnaute Nouveau

• 18 Mai 2021

• #7

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

 

Pièces jointes

• CNE_CRM-NRA-ET-01_2021.xlsm

  268.8 KB · Affichages: 8

Vote positif 0 Vote négatif

L

Laliepomm

XLDnaute Junior

• 19 Mai 2021

• #8

devis à dit:

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

Cliquez pour agrandir...

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

Vote positif 0 Vote négatif

D

devis

XLDnaute Nouveau

• 19 Mai 2021

• #9

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Mai 2021

• #10

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: 19 Mai 2021

Vote positif 0 Vote négatif