Afficher plusieures images dans une feuille

[Lone-wolf]

Bonjour à tous,

dans la feuille 1, j'aimerais faire apparaître en colonne plusieures images.
Dans le code j'en ai mis 4, mais seul 1 image apparaît.

Et, est-il possible de mettre le chemin des images du stile:

Répertoire = ThisWorkbook.Path
If Dir(Répertoire & "\" & ".jpg") <> "" Then
Me.Image1.Picture = LoadPicture(Répertoire & "\" & ".jpg")
Else
Me.Image1.Picture = LoadPicture

 

[Guest]

Re : Afficher plusieures images dans une feuille

Bonjour,

Pas besoin des Api windows pour cela. Fais une recherche sur le forum, par exemple en bas de cette page dans la section "discussions similaires", tu trouveras une base de départ.

A+

 

[Lone-wolf]

Re : Afficher plusieures images dans une feuille

Bonjour Hasco,

je vais regarder, merci d'avoir répondu.

 

[Lone-wolf]

Re : Afficher plusieures images dans une feuille

Bonsoir à tous,

suite aux recherches sur le forum, je n'ai trouvé que ceci>(Code/PJ-Images).
Code de camarchepas.

fichier joint

La première image s'affiche, ensuite plus rien. D'autre part, j'aimerais affecter le code à un bouton. Cet à dire, afficher les images suite aux réponses.

J'aimerais savoir aussi à quoi correspondent ces lignes:

For Colonne = 66 To 71 Step 5
For Ligne = 3 To 57 Step 7

Merci de votre aide.

 

[Lone-wolf]

Re : Afficher plusieures images dans une feuille

Voilà, j'ai adapté le code de Hulk.

PJ: images.V2

J'aimerais affecter le code à un bouton. Cet à dire, afficher toutes les images aprés avoir répondu aux questions (pas mises pour l'instant).