Titre du sujet : Re: clignoter dans un TextBox par myDearFriend! le 12/04/2010 19:41:30
Bonsoir flamel et bienvenue sur XLpages.com
Bonsoir le Forum,
Tu trouveras en pièce jointe une tentative de réponse à ta question...
J'ai repris le code du classeur exemple en téléchargement Cellules et Alertes clignotantes, basé sur la méthode OnTime (voir l'article détaillé).
Le code VBA modifié est devenu le suivant pour cet exemple avec TextBox :
DANS LE MODULE DE CODE DU USERFORM
Option Explicit
' myDearFriend! - www.mdf-xlpages.com
Private Sub btnGo_Click()
If IsEmpty(Temps) Then
Clign
End If
End Sub
Private Sub btnStop_Click()
StopClign
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
StopClign
End Sub
DANS UN MODULE DE CODE STANDARD
Option Explicit
' myDearFriend! - www.mdf-xlpages.com
'En déclarant cette variable Temps en "public", elle devient accessible partout dans le projet
Public Temps As Variant
Sub AffichUsf()
UserForm1.Show
End Sub
Sub Clign()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
'Affiche l'alerte ou la fait disparaître (alternativement)
With UserForm1.LeTextBox
.BackStyle = IIf(.BackStyle = fmBackStyleOpaque, fmBackStyleTransparent, fmBackStyleOpaque)
End With
End Sub
Sub StopClign()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
'Cache l'alerte
UserForm1.LeTextBox.BackStyle = fmBackStyleOpaque
Temps = Empty
End Sub
Ne sachant pas exactement ce que tu comptes faire (merci au passage de présenter un exemple de ce que tu souhaites la prochaine fois), j'ai joué sur la propriété Backstyle du TextBox pour afficher ou masquer alernativement un message d'alerte en transparence.
En espérant t'avoir dépanné.
Cordialement,
|