Autres Insérer plusieurs images en fonction de différents codes avec VBA

aurelieevb · 13 Juillet 2021

Bonjour,

Je souhaite réaliser un support contenant des informations produits (codes, nom, ...) et surtout son image correspondante qui se trouve dans un fichier photos sur disque dur.

je n'y arrive pas ...

quelqu'un pourrait il m'aider

je joins u exemple de ce que je souhaiterais obtenir.

merci beaucoup

Dudu2 · 13 Juillet 2021

Bonjour,

Voilà un fichier.

Des constantes définissent pas mal de paramètres à adapter si nécessaire.
Et c'est nécessaire au moins pour le répertoire des images.

VB:

'---------------------------------------------------
Public Const RépertoireImages = "H:\Téléchargements"
'---------------------------------------------------
'
Public Const ExtensionImages = ".jpg"
'
Public Const NomFeuilleSélection = "SELECTION"
Public Const NomFeuilleModèle = "Modèle"
Public Const NomFeuilleFlyer = "Flyer"
'
Public Const FeuilleSélection_PremièreLigne = 4
Public Const FeuilleSélection_NoColonneCodeProduit = 2
Public Const FeuilleSélection_NoColonneNomProduit = 3

Public Const FeuilleModèle_CelluleImage1 = "B9"
Public Const FeuilleModèle_CelluleImage2 =...

Dudu2 · 13 Juillet 2021

Bonjour,

Voilà un fichier.

Des constantes définissent pas mal de paramètres à adapter si nécessaire.
Et c'est nécessaire au moins pour le répertoire des images.

VB:

'---------------------------------------------------
Public Const RépertoireImages = "H:\Téléchargements"
'---------------------------------------------------
'
Public Const ExtensionImages = ".jpg"
'
Public Const NomFeuilleSélection = "SELECTION"
Public Const NomFeuilleModèle = "Modèle"
Public Const NomFeuilleFlyer = "Flyer"
'
Public Const FeuilleSélection_PremièreLigne = 4
Public Const FeuilleSélection_NoColonneCodeProduit = 2
Public Const FeuilleSélection_NoColonneNomProduit = 3

Public Const FeuilleModèle_CelluleImage1 = "B9"
Public Const FeuilleModèle_CelluleImage2 = "F9"
Public Const FeuilleModèle_CelluleImage3 = "C21"
Public Const FeuilleModèle_CelluleImage4 = "F28"
Public Const FeuilleModèle_CelluleImage5 = "B32"
Public Const FeuilleModèle_CellulesImages = FeuilleModèle_CelluleImage1 & "," & _
                                            FeuilleModèle_CelluleImage2 & "," & _
                                            FeuilleModèle_CelluleImage3 & "," & _
                                            FeuilleModèle_CelluleImage4 & "," & _
                                            FeuilleModèle_CelluleImage5

A noter que l'option d'insertion des images choisie consiste à remplir la cellule au maximum soit en hauteur soit en largeur SANS altérer le ratio de l'image.

S'il faut combler totalement la cellule en hauteur et en largeur avec l'image tout en acceptant une déformation de l'image, c'est possible. Un simple paramètre à ajouter dans l'appel de la fonction d'importation de l'image.

aurelieevb · 13 Juillet 2021

Merci beaucoup c'est parfait!!

Dudu2 · 14 Juillet 2021

Bonjour,
J'aurais dû y penser avant mais voici une version plus simple à gérer en plaçant dans le tableau de la feuille SELECTION les cellules cibles des images et leur répertoire. Plus de constantes à adapter dans le code.

aurelieevb · 15 Juillet 2021

Merci beaucoup

patricktoulon · 15 Juillet 2021

Bonjour @Dudu2 @aurelieevb
si vous permettez je fait plus simple
tout d'abords je supprime la colonne D qui n'est pas vraiment nécessaire dans le sens ou c'est toujours les même cadre dans la feuille Flyer
ensuite (juste pour un visuel ) quand je sélectionne une ligne celle ci et les 4 suivante deviennent vertes

ensuite je simplifie avec ma fonction de placement basé sur le même principe que @Dudu2

et j'ajoute aussi ma fonction imageminime pour réduire le poids des images qui dans cet exemple vont de moins de 10 kilo a plus de 100 kilo
et ça c'est juste au cas ou il y aurait projet de sauvegarder la feuille flyer dans un fichier
la réduction de poids peut se faire par la qualité ou la taille de l'image
j'ai choisi la taille qui est modifiée a au maximum du width de u cadre de reception
rigolez pas on obtiens une sérieuse réduction

j'ai dis tout a l'heure que j'avais supprimé la colonne "D"
en effet incrémente le placement avec un array des address
ce qui me permet de sélectionner n'importe quelle ligne et donc celle ci et les 4 suivantes iront dans le flyer a leur positions

voila on sélectionne une ligne en "B" et on appuie sur le bouton

Autres Insérer plusieurs images en fonction de différents codes avec VBA

aurelieevb

XLDnaute Nouveau

Pièces jointes

Dudu2

Dudu2

XLDnaute Barbatruc

Pièces jointes

aurelieevb

XLDnaute Nouveau

Dudu2

XLDnaute Barbatruc

Pièces jointes

aurelieevb

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Discussions similaires