Sujet Précédent Sujet Suivant

Impossible d'écire sur la feuille excel

Fermé
baguidi - 19 mai 2008 à 10:36
 baguidi - 20 mai 2008 à 15:26
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
A voir également:

2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 mai 2008 à 10:44
Bonjour,

Comment fermes-tu ton userform, stp ?
0
baguidi
20 mai 2008 à 15:26
S'il te plait je viens de recevoir une réponse de "Amigo" qui cadre bien avec ma requête .
Merci bocou pour ta sollicitude
0
Réponse 2 / 2
amigo
19 mai 2008 à 11:17
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+.
0
baguidi
20 mai 2008 à 15:23
Trés cher ami,
ton code marche parfaitement. Je te remercie beaucoup et te souhaite bonne journée
0