Discussion :

[conrad1218]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut, une recherche ?

[joe.levrai]

Bonjour,

il faudrait à minima définir un nombre de clignotements

voici pour 10 clignotements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[conrad1218]

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.

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[conrad1218]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Loop While PN.Value = True

Merci beaucoup et bonne journée.
Clem