Impossible d'écire sur la feuille excel
baguidi
-
baguidi -
baguidi -
Bonjour, le forum
Voila le problème que j'ai c'est que j'ai utilisé cet ensemble de code
Private Sub UserForm_Activate()
Dim temps As Single
temps = Timer
Do
Do Until temps + 0.5 <= Timer
DoEvents
Loop
' Si la couleur de fond du Label11 est rouge alors le fond du Label11 est noir
' sinon le fond du Label1 est rouge
If Label11.BackColor = RGB(255, 0, 0) Then
Label11.BackColor = RGB(0, 0, 0) ' Mettre la couleur que tu veux
Else
Label11.BackColor = RGB(255, 0, 0)
End If
temps = Timer
Loop
End Sub
Il permet de faire scintiller le label11.
mais je contacte que lorsque je ferme le userform, je n'est pas la main pour travailler dans la feuille excel alors je me demande quoi faire. Cé comme si mme apres la fermeture du user par un bouton Fermer bien sur la macro continue de travailler sinon pourquoi je né pas la main pour travailler sur la feuille.
aidez moi
Voila le problème que j'ai c'est que j'ai utilisé cet ensemble de code
Private Sub UserForm_Activate()
Dim temps As Single
temps = Timer
Do
Do Until temps + 0.5 <= Timer
DoEvents
Loop
' Si la couleur de fond du Label11 est rouge alors le fond du Label11 est noir
' sinon le fond du Label1 est rouge
If Label11.BackColor = RGB(255, 0, 0) Then
Label11.BackColor = RGB(0, 0, 0) ' Mettre la couleur que tu veux
Else
Label11.BackColor = RGB(255, 0, 0)
End If
temps = Timer
Loop
End Sub
Il permet de faire scintiller le label11.
mais je contacte que lorsque je ferme le userform, je n'est pas la main pour travailler dans la feuille excel alors je me demande quoi faire. Cé comme si mme apres la fermeture du user par un bouton Fermer bien sur la macro continue de travailler sinon pourquoi je né pas la main pour travailler sur la feuille.
aidez moi
Configuration: Windows XP Firefox 2.0.0.14
2 réponses
-
-
Bonjour,
Essaie en ajoutant ces lignes:
Option Explicit Dim TimerOn As Boolean Private Sub UserForm_Activate() Dim temps As Single TimerOn = True temps = Timer Do Do Until temps + 0.5 <= Timer If Not TimerOn Then Exit Sub DoEvents Loop ' Si la couleur de fond du Label11 est rouge alors le fond du Label11 est noir ' sinon le fond du Label1 est rouge If Label11.BackColor = RGB(255, 0, 0) Then Label11.BackColor = RGB(0, 0, 0) ' Mettre la couleur que tu veux Else Label11.BackColor = RGB(255, 0, 0) End If temps = Timer Loop End Sub Private Sub UserForm_Terminate() TimerOn = False End Sub
A+.
