Bonjour,

J'aurais besoin de votre aide parceque je suis bloqué depuis des heures.
j'arrive pas à passer à l'image suivante en cliquant sur le bouton suivant, j'ai une liste de liens des images sur une feuille excel.
j'aimerais quand je clique sur le bouton suivant d'afficher l'image de la ligne suivante sachant que les images sont numerotées de 1 à 10.

j'ai utilisé une boucle :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton_Clique ()
 
Dim cle As Variant
Dim mc As Range
 
Sheets("Sheet1").Range("A1").Select
Set mc = Selection
Do While Selection <> = ""
mc.Offset(1,0).Select
cle = Selection
Image1.Picture = LoadPicture(cle)
Loop
 
End Sub
Commentaire :
L'execution ne s'arrete que lorsque la cellule est vide.
ce que j'aimerais c'est qu'a à chaque clique sur le Suivant le UserForm Charge l'image suivante
(Voir l'exemple dans le fichier ci-joint)

Merci pour votre aide test 12 SS.xlsm