Faire clignoter un label sous condition avec textbox
bonjour,
ci-joint le programme que j'ai entrepris
le but :
sous condition que
la cellule :Sheets("programmation").Range("D4") = 0 qui est rattaché a un textebox que je remplie
quand je remplie le texte box si la valeur en Sheets("programmation").Range("D3") >20 alors cela écrit 1 dans Sheets("programmation").Range("D4")=1
quand je remplie le texte box si la valeur en Sheets("programmation").Range("D3") <20 alors cela écrit 1 dans Sheets("programmation").Range("D4")=1
quand Sheets("programmation").Range("D4") = 0
cela lance le module clign
qui fais clignoter un label
Le soucis est que quand je remplie deux fois le textbox deux fois de suite avec une valeur inférieur a 20 cela ne marche plus
le label ne clignote plus
merci d'avance pour vos réponses.
Private Sub gasoil4heure1_AfterUpdate()'textbox a remplir
If Sheets("programation").Range("D4") = 0 Then module.Clign Else module.StopClign
End Sub
dans un module:
Public Sub Clign()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
With accueil.testalarme 'label que je fais clignoter
.Visible = IIf(.Visible, False, True)
End With
End Sub
Public Sub StopClign()
On Error Resume Next
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
With accueil.testalarme
.Visible = True
End With
End Sub
Bonsoir
Je t'ai répondu dans ton autre post mais tu n'as pas donné suite
Et dans celui-ci ton fichier n'est pas passé
Bonsoir,
On ne voit pas comment se fait l'affectation de valeurs dans les cellules, et vérifie ce que tu écris, il y a une erreur quelque part.
Et as-tu essayé de faire réparer ta voiture sans l'amener au garage !
Cordialement.
Bonsoir
Il faut fournir une copie du fichier réel
Dans celui-ci aucune macro, comment tester le problème que tu décris
Ton fichier ne correspond pas à ta description. Pas de macro, pas de Userform, pas de TextBox, et les cellules ne correspondent pas.
Difficile ainsi de voir comment ça fonctionne !
encore désolé je ne comprend pas .
En déclarant ta variable Temps (et au niveau module) ça évite de se battre...
Maintenant je vais essayer de comprendre comment ça fonctionne...
J'ai parlé trop vite, ça suffit pas ! A+
ok je prend note merci
Bonsoir
Un essai
Il n'y a que la TextBox1 qui enclenche ou arrête le clignotement
Il faut modifier la TextBox1 et sortir de la TextBox1
A tester
merci pour cette reponse eclaire
parcontre ca ne marche pas trop bien
car si je vais dans la textbox1 je rentre 10 par exemple l'alarme se met en route
mais si je remet disons 15 dans la textbox1 et valide l'alarme ne marche plus .
voici les defauts.
je vérifie et je valide et merci pour tout
Bon, premier bilan d'observation :
Ta variable Temps non déclarée niveau module faisait que le StopClign n'arrêtait rien.
Il y a autre chose aussi qui faisait que l'arrêt ne se faisait ou le clignotement redémarrait, en tout cas le Userform se masquait mais ne se déchargeait pas. En doublant l'exécution de StopClign avant unload, il semble qu'on règle ce problème.
J'ai vu que l'étiquette alerte se figeait parfois mais en restant au premier plan, je ne sais si c'est normal, et effectivement le clignotement s'arrête une fois sur deux... là pas encore vu pourquoi.
A+
Pas parti, je complète donc : sans doute un effet de l'appel de la procédure alors qu'elle continue de s'exécuter.
Je te remets le fichier. Pas vu si d'autres problèmes.
bonjour
pour moi c'est OK.
merci a tous .