Bonjour,
J'ai esayé de faire un label clignotant en vba
pour tester, j'ai un userform , sur lequel il y a un label et un bouton.
sur 'thisworkbook', j'ai la sub suivante qui montre juste l'Userform1 :
Sub appel()
UserForm1.Show
End Sub
ensuite j'ai une méthode qui est appelé sur clic du bouton :
Sub Cligno()
Dim iCompteur As Integer
Dim lColorBleu As Long
Dim lColorNoir As Long
iCompteur = 0
lColorBleu = RGB(0, 216, 255)
lColorNoir = RGB(0, 0, 0)
UserForm1.Lbl1 = "Noir sur bleu"
For iCompteur = 0 To 3
UserForm1.Lbl1.BackColor = lColorNoir
UserForm1.Lbl1.ForeColor = lColorBleu
Application.Wait (Now + TimeValue("00:00:01"))
UserForm1.Lbl1.BackColor = lColorBleu
UserForm1.Lbl1.ForeColor = lColorNoir
Application.Wait (Now + TimeValue("00:00:01"))
Next
MsgBox ("Ok")
End Sub
Jusque là, rien de compliqué, c'est ensuite que ca se complique.
En mode pas à pas , ca se passe bien.
En mode automatique, ca marche une fois sur deux.
de plus, j'avais essayé de mettre e code dans un fichier avec beaucoup plus de développement, mais ça ne marche jamais.
j'ai le premier changement de noir sur bleu vers bleu sur noir qui se passe bien, ensuite la procédure se continue en étant bloqué sur le bleu sur noir et ne continue pas de clignoter. ce qui me fait dire que la méthode est bonne, c'est que d'une part ça clignote une première fois et que en fin de cycle, j'ai bien le msgbox qui s'affiche.
Quelqu'un saurait il de quoi ça peut venir.
Je mets mon fichier test en pièce jointe mais je doute que ça puisse bien aider
merci d'avance de votre aide
J'ai esayé de faire un label clignotant en vba
pour tester, j'ai un userform , sur lequel il y a un label et un bouton.
sur 'thisworkbook', j'ai la sub suivante qui montre juste l'Userform1 :
Sub appel()
UserForm1.Show
End Sub
ensuite j'ai une méthode qui est appelé sur clic du bouton :
Sub Cligno()
Dim iCompteur As Integer
Dim lColorBleu As Long
Dim lColorNoir As Long
iCompteur = 0
lColorBleu = RGB(0, 216, 255)
lColorNoir = RGB(0, 0, 0)
UserForm1.Lbl1 = "Noir sur bleu"
For iCompteur = 0 To 3
UserForm1.Lbl1.BackColor = lColorNoir
UserForm1.Lbl1.ForeColor = lColorBleu
Application.Wait (Now + TimeValue("00:00:01"))
UserForm1.Lbl1.BackColor = lColorBleu
UserForm1.Lbl1.ForeColor = lColorNoir
Application.Wait (Now + TimeValue("00:00:01"))
Next
MsgBox ("Ok")
End Sub
Jusque là, rien de compliqué, c'est ensuite que ca se complique.
En mode pas à pas , ca se passe bien.
En mode automatique, ca marche une fois sur deux.
de plus, j'avais essayé de mettre e code dans un fichier avec beaucoup plus de développement, mais ça ne marche jamais.
j'ai le premier changement de noir sur bleu vers bleu sur noir qui se passe bien, ensuite la procédure se continue en étant bloqué sur le bleu sur noir et ne continue pas de clignoter. ce qui me fait dire que la méthode est bonne, c'est que d'une part ça clignote une première fois et que en fin de cycle, j'ai bien le msgbox qui s'affiche.
Quelqu'un saurait il de quoi ça peut venir.
Je mets mon fichier test en pièce jointe mais je doute que ça puisse bien aider
merci d'avance de votre aide
