Affichage de photo et redimensionner

[Climaudo]

Bonsoir forum,

A nouveau je me tourne vers toi afin que tu me viennes en aide, moi pauvre novice.

Voilà ce qui m'amène :
j'établis actuellement un catalogue de produit avec visualisation de la photo du produit choisi
Certains produits ont plusieurs photos rattachées à leur nomenclature et je souhaiterai pouvoir toutes les afficher sur mon USF. Et par la suite, si on désire imprimer la fiche produit, que celle-ci comprenne la ou les photos redimensionnées pour rester sur une format papier A4.

Voilà, je me rends compte que je suis exigeant dans mes projets depuis que j'ai découvert (et seulement découvert, le VBA )

Ci joint le fichier si vous pouvez m'apporter votre aide.

D'avance un grand merci. [file name=Catalogue_HCCA_V2.zip size=20149]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Catalogue_HCCA_V2.zip[/file]

 

[Climaudo]

Re bonsoir forum

Pendant ce temps, je continue à chercher et approche de la solution pour afficher les photos

Mais j'ai un petit soucis avec ce code :

Option explicit
dim choix as variant
dim chemin as variant
...

Private sub photos()

Dim w as range
Dim y as integer, z as integer

...
'boucle sur les photos listé sur feuil1 pour connaitre le nb
y=0
For Each w In Sheets('Feuil1').Range('B1:B1000')
If w = choix Then
y = y + 1
End If
Next w

'boucle sur les controls image pour afficher photos
For z = 1 To y
With Me.Controls('Image' & z)
.Visible = True
.Picture = LoadPicture((chemin & choix & '_' & z & '.jpg'))
End With
Next z

End sub

Lorsque je remplace le y par 2 (donc en considérant qu'il ne peut y avoir plus de photos à afficher) cela fonctionne parfaitement.
Avec le y, aucune photos ne s'affiche !!!!

Et je ne comprends pas pourquoi.

Merci de me dépanner

Olivier

 

[pierrejean]

bonjour Olivier

en trifouillant un peu ton code pour l'adapter à mon environnement je suis bien arrivé à afficher 8 photos

si je regarde ce que tu ecris ci dessus je pense qu'il te faudrait plutot:

.Picture = LoadPicture((chemin & choix & '_0' & z & '.jpg'))
plutot que
.Picture = LoadPicture((chemin & choix & '_' & z & '.jpg'))

pour l'impression une astuce qui te permettras d'attendre un peu
numerote tes images de cette façon

1237
4568

ce n'est qu'a partir de la 7eme que le probleme se posera vraiment

Message édité par: pierrejean, à: 10/03/2006 11:05

 

[Climaudo]

Bonsoir forum, pierrejean

Finalement, j'ai réussi à aboutir à ce que je voulais (tant bien que mal ! ).

Le code fait appel à bcp de boucle mais c'est le résultat qui compte.

Pour dimensionner les photos suivant leur nombre sur la fiche, j'ai paramétrer tous les cas de figure.

Pour le nombre, je me suis rendu compte que certain articles dépassaient les 10 photos

Je joins mon code, on ne sait jamais ça peut éventuellement servir.

Merci à toi de t'être penché sur mon problème

Olivier [file name=Catalogue_HCCA_V3.zip size=50776]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Catalogue_HCCA_V3.zip[/file]