Plantage boucle if (do loop while) else

Bonjours à tous,

Etant un novice en VBA je vous sollicite car j'ai un problème dont je ne trouve pas la réponse.
En effet, je réalise une boucle IF recoupé d'une boucle DO LOOP WHILE au click sur un bouton pour faire clignoter des images.
Celle-ci fonctionne à l'action du bouton.
Néanmoins on ne peux plus rien faire sur le userform, impossible de reclicker sur le bouton, le programme plante et je suis obligé d'ouvrir le gestionnaire de tâches pour le fermer.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub PN_Click() 'Présentation des feux rouge clignotant du PN à l'action du Bouton If PN.Value = True Then Do Me.Image8.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ") Me.Image9.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ") Application.Wait Now + TimeValue("0:00:01") Me.Image8.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") Me.Image9.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") Application.Wait Now + TimeValue("0:00:01") Loop While PN.Value = True 'Clignote tant que le bouton est enfoncé Else 'Sinon Feux eteins Me.Image8.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") Me.Image9.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") End If End Sub

---

Y a t-il un problème dans mon code ? Peut on le faire d'une autre manière ?

Merci de vos réponses.
Clem

Salut, une recherche ?

Bonjour,

il faudrait à minima définir un nombre de clignotements

voici pour 10 clignotements

Code:

---

1 2 3 4 5 6 7 8 9 10

i = 0 Do i = i + 1 Me.Image8.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ") Me.Image9.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ") Application.Wait Now + TimeValue("0:00:01") Me.Image8.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") Me.Image9.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") Application.Wait Now + TimeValue("0:00:01") Loop While i < 11

---

tu peux ensuite adapter l'idée :

- définir arbitrairement le nombre de clignotements
- laisser le choix à l'utilisateur (avec un choix par défaut)
- au bout d'un certain nombre de clignotements, on peut proposer à l'utilisateur de relancer la séquence
- etc..

Bonsoir,

Merci pour la rapidité des réponses.

--> kiki29 J'avais déjà trouvé ces discussions effectivement, mais étant un manche je n'ai pas réussi à les adapter à mon userform...

-->joe.levrai Merci il y a de l'idée, néanmoins je souhaite avoir un nombre de clignotement infini tant que mon bouton PN est appuyé et retour à la normale lorsqu'il revient en position repos...

Merci.
Clem.

Bonjour,

De cette façon peut être ? D'après nle code de Joe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Do   Me.Image8.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ") Me.Image9.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ") Application.Wait Now + TimeValue("0:00:01") DoEvents DoEvents Me.Image8.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") Me.Image9.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\blanc.jpg ") Application.Wait Now + TimeValue("0:00:01") DoEvents DoEvents   Loop While PN.Value = False

---

Hervé.

Bonjour,

Effectivement c'est cela et ça fonctionne !
Petite modification par rapport à votre code

Code:

---

Loop While PN.Value = True

---

;)

Merci beaucoup et bonne journée.
Clem