Macro pour insérer plusieurs images dans une fiche de synthèse
Je débute avec le VBA et je suis embêter avec un fichier Excel.
j'utilise un tableau de saisi pour récolter les données et lors d'un double clic dans une cases précise, je souhaite crée une fiche de synthèse.
En ce qui concerne le double clic et les données écrite, pas de soucis! mais je cherche à insérer dans cette fiche de synthèse plusieurs image c'est a ce moment que cela ce gâte!!!
Pour une pas de problème! mais je n'arrive pas à en insérer plusieurs!!!
En effet dans mon tableau de saisi j'ai des cases rempli par du texte et dans les colonnes F, G, H et bien d’autres, je souhaite mettre le nom d’une image ((xxx.jpg) qui bien sûr ne serait peut-être pas les mêmes sur chaque lignes) que j’aurais au préalable stocké dans un dossier « Photos ».
Lors du double clic le texte et les images iront ce mettre dans d’autre cases correspondant à leur emplacement dans la fiche de synthèse.
Ma macro fonctionne très bien pour le texte et 1 image mais je n’arrive pas à la modifié pour plusieurs images.
Est ce qu'une âme charitable pourrais me données des pistes pour que je puisse le faire ou modifié le code déjà existant.
je joint le fichier source.
par avance merci de votre aide.
bonne fête de fin d'années à tous
Bonjour
Une proposition. J'ai changé le nom des photos pour faire avec ce que j'avais.
Corddialement
Bonjour yal_excel,
Merci pour votre travaille et votre aide sur mon fichier.
j'ai testé votre fichier il fonctionne parfaitement sur les colonnes F, G et H mais voila j'ai des images potentiels dans les colonnes :
K,L,M, qui devrait ce positionné sur la fiche en J15, P15,V15
P,Q,R, qui devrait ce positionné sur la fiche en J16, P16,V16
U,V,W, qui devrait ce positionné sur la fiche en J17, P17,V17
Z,AA,AB, qui devrait ce positionné sur la fiche en J18, P18,V18
AE,AF,AG, qui devrait ce positionné sur la fiche en J18, P18,V18
J'ai essayé de modifié la macro mais je n'y arrive pas pourriez vous me donné une piste
par avance merci de votre aide
cordialement.
Bonjour
Je ne comprends pas Chez moi cela fonctionne parfaitement. Dites moi ce qui ne va pas. Je vous renvoies le fichier que je viens de tester. Envoyer moi le fichier avec vos modifications.
Re yal_excel,
la macro de la V3 et différente de la V2 et cela marche a peu prêt, je m'explique :
- Quand je ne saisi rien dans la cellule de la colonne F , aucune autre image ne s'affiche dans l'ensemble de la fiche.
- Quand il y a une image dans la cellule de la colonne F mais pas d'autre image à affiché il y a un message d'alerte qui s'affiche à la place.
- les images ne sont pas centré dans les cellules.
cordialement.
En effet j'avais oublié de t'envoyer la dernière version, désolé.
Pour le message d'alerte voici la version corrigée juste un "i" transformé en 1.
Pour le centrage de l'image il y a plusieurs solutions. Deux simples et une compliquée
.Shapes.AddPicture ph, True, False, .Cells(cy, cx).Left, .Cells(cy, cx).Top, 80, 80
C'est cette ligne (attention elle y est deux fois) qui règle la taille et la position de l'image. L'image est positionnée à partir du coin supérieur gauche de la cellule (pamètres Left et Top) donc soit tu ajuste la taille de la cellule pour qu'elle colle à l'image (80,80) pour ce cas; soit tu décale l'image en ajoutant une valeur à Left et à Top
.Shapes.AddPicture ph, True, False, .Cells(cy, cx).Left + 5, .Cells(cy, cx).Top + 5, 80, 80 par exemple
La troisième solution consisterait à récupérer les coordonnées de la cellule de destination puis celles de la cellule d'à coté, de calculer l'écart, d'y soustraire les dimensions de l'image, de diviser tout cela par deux et d'jouter le résultat aux paramètres Left et Top. Amuses toi bien, moi je passe mon tour.
mille merci a toi Yal_excel
Pour tous l'aide que tu ma apporté sur ce sujet, tu as résolu mon soucis je te remercie grandement.
Bonne fête de fin d'année à toi.