Boucle pour insérer des images

Bonjour

Qui peut m'aider a créer une boucle en vba pour insérer des images. Il pourrait y avoir plusieurs dizaines d'images; Peut etre boucle avec FOR et NEXT

Voici mon code:

Private Sub Worksheet_Activate()
Image1.Picture = LoadPicture("C:\Users\thierry\Desktop\a sauvegarder\france\" & Range("A1").Value & ".jpg")
Image2.Picture = LoadPicture("C:\Users\thierry\Desktop\a sauvegarder\france\" & Range("A2").Value & ".jpg")
Image3.Picture = LoadPicture("C:\Users\thierry\Desktop\a sauvegarder\france\" & Range("A3").Value & ".jpg")
Image4.Picture = LoadPicture("C:\Users\thierry\Desktop\a sauvegarder\france\" & Range("A4").Value & ".jpg")
'etc

End Sub

Merci pour votre aide

Bonjour,

S'il y a autant de contrôles image que de lignes d'info, un code de ce genre pourrait convenir :

Private Sub Worksheet_Activate()
Dim Doss As String, lg As Integer, i As Integer

    Doss = "C:\Users\thierry\Desktop\a sauvegarder\france\"
    With ActiveSheet
        lg = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To lg
            .Controls("Image" & i).Picture = LoadPicture(Doss & .Range("A" & i).Value & ".jpg")
        Next i
    End With
End Sub

A tester

Pierre

Bonjour et merci mais cela ne fonctionne pas.

Bonjour

puisque nous sommes sur la feuille et non le formulaire, remplace la ligne erronée par celle-ci voir.

.OLEObjects("Image" & i).Object.Picture = ...

Rhôô, alors à tester =>

        For i = 1 To lg
            .OLEObjects("Image" & i).Object.Picture = LoadPicture(Doss & .Range("A" & i).Value & ".jpg")
        Next i

Edit Nathalie a été plus rapide!

j'ai les messages suivant:

Dans ta macro, déclenche l'insertion de l'activeX image1

puis boucles sur les images à insérer

une fois que tu à le nombre, tu inseres le nombre de formes Activex restant

puis tu peux dorénavant boucler sur les activeX.

Bonsoir,

la première erreur signalée venait du fait qu'il manque le "." avant "Controls" !

@ bientôt

LouReeD

Bonjour

Avec le point devant control, cela ne fonctionnait pas.

Merci à tous pour votre aide, cela fonctionne comme je le voulais.

Bonnes fêtes à tous.

Thierry

Bonsoir,

Merci pour vos remerciements !

@ bientôt

LouReeD

Bonjour le fil,

@thval

Bonsoir au forum !

Vous avez vu thval ? On est en période de Noël ! Vous en avez eu de la chance !

Une réponse voir plus qui ont réussi à résoudre votre problème alors même que votre code n'était pas en "balise" et qu'il n'y avait pas de fichier !C'est une bonne chose ces fêtes de fin d'année, non ?

@ bientôt

LouReeD

Bonjour

Euh oui, merci pour votre compréhension d'un pauvre débutant !!!! hahahahahaha

Joyeuses fetes