1 pièce(s) jointe(s)
Probleme enchainnement images au clique (Excel-VBA)
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:
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 :)Pièce jointe 211855
