code: Private Sub Form_Timer avec condition

Bonjour à tous, voila j'ai ce code dans mon formulaire:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Timer() If Texte217 <> "" Then With Texte217 If .ForeColor = 0 Then .BackColor = 16777215 .ForeColor = 255 Else .BackColor = 255 .ForeColor = 0 End If End With End If End Sub
Il me permet de faire clignoter la zone de texte217 quand j'ai un texte dedant.
Mais je voudrais y rajouter une condition.
Je voudrais que quand la zone de texte217 est vide, le message "pas d'info aujourd'hui" apparaisse et que la zone de texte ne clignotte plus .
Merci d'avance pour votre participation

bonsoir,
Texte217.Text = "pas d'info aujourd'hui" pour ton remplissage et tu modifies ton test en ajoutant - and Texte217<>"pas d'info aujourd'hui" -

Bonsoir,

Citation:

Texte217.Text = "pas d'info aujourd'hui" pour ton remplissage et tu modifies ton test en ajoutant - and Texte217<>"pas d'info aujourd'hui" -

Pas testé, mais suis pas très sûr...

Un test avec une MsgBox toutes les itérations du timer ?

A voir tu travailles certainement avec un formulaire caché. Je définirais donc la propriété IntervalTimer à zéro.

Et je ferais le test là.

Si.... On affiche la MsgBox... Sinon, on modifie la propriété IntervalTimer, par exemple à 1000.

Si ça ne fonctionne pas, il faudra s'intéresser aux timers vba d'Arkham...

Domi2

Merci pour votre aide, mais je n'arrive pas a applliquer tes codes au mien.
Pourriez vous , SVP, l'integrer dans le code ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Timer()
 
 If Texte217 <> "" Then
 
        With Texte217
            If .ForeColor = 0 Then
                .BackColor = 16777215
                .ForeColor = 255
            Else
                .BackColor = 255
                .ForeColor = 0
 
            End If
            End With
            End If
End Sub

Merci d'avance