Chiffre clignitant dans un userform

[Aladin]

Bonjour le Forum

J' ai un userform qui affiche des données qu' il récupere sur une feuille et j' aimerais savoir comment faire afin que les sommes négatifs soitent en couleur et clignotents clignotents

Aladin

 

[Eric C]

Bonjour le forum
Bonjour Aladin

Pour la 1ère demande, tu peux te servir d'un Select Case

Private Sub CommandButton1_Click()

TextBox1.Value = Range('A1')

Select Case Val(TextBox1)
Case Is < 0
TextBox1.ForeColor = RGB(255, 0, 0) ' police rouge
Case Is >= 0
TextBox1.ForeColor = RGB(0, 0, 0) 'police noire
End Select
End Sub

A voir pour le clignotement 😉

 

[Eric C]

Re le forum
Re bonjour Aladin

Bon avec un clignotement qui monopolise tout. En attendant mieux 😉

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte
TextBox1.Value = Range('A1')

Select Case Val(TextBox1)
Case Is < 0
TextBox1.ForeColor = RGB(255, 0, 0) ' police rouge

For i = 1 To 4
            Application.Wait Now + TimeValue('00:00:01')
            TextBox1.BackColor = RGB(0, 255, 0)
            Application.Wait Now + TimeValue('00:00:01')
            TextBox1.BackColor = RGB(0, 255, 255)
            
            Next i

Case Is >= 0
TextBox1.ForeColor = RGB(0, 0, 0) 'police noire
End Select
End Sub

 

[_Thierry]

=> DEMO UserForm ListBox en Couleur et CLignotante

Bonsoir les Zamis !!!


Tiens !
Pour fêter la Victoire de Monaco hier soir, voilà un 'Barbatruc' sur un UserForm avec une 'ListBox' toute Rouge et Blanche et Clignotante sur les Valeurs Négatives !!!

Vi vi !!! lol Sacré Barbatruc LOL !!!

Bon amusement
@+Thierry [file name=USF-Fake-ListBox-Flashing_20050321185045.zip size=12663]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USF-Fake-ListBox-Flashing_20050321185045.zip[/file]

 

[Eric C]

Re:=> DEMO UserForm ListBox en Couleur et CLignotante

Re le forum
Re bonjour Aladin, bonsoir Thierry




Tu as vu Aladin, j'ai frotté la lampe magique et Thierry Exauce ton souhait, tu aurais pu y penser....Trop fort ce génie....

 

[_Thierry]

Re:=> DEMO UserForm ListBox en Couleur et CLignotante

Bonsoir Eric, Aladin, le Forum

Merci à toi, surtout pour le Gif qui va bien avec le nom du demandeur !!! Mdr !!!

Merci à toi aussi pour ton dignostic 'UserFormMéningiteMonégasquum' LOL !!!

Enfin j'espère que tu ne seras pas le seul à être tombé sur cette démo, car sans trop de codes compliqués c'est un sacré 'Barbatruc' !

Bonne Soirée
@+Thierry