impossible d'écire sur la feuille excel Fermé

Question

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

Polux31 · Answer

Bonjour,

Comment fermes-tu ton userform, stp ?

amigo · Answer

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

Impossible d'écire sur la feuille excel

2 réponses

Discussions similaires