Discussion :

[WITER]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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" -

[Domi2]

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" -

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

[WITER]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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