Discussion :

[jojo86]

Bonjour,
Sur mon userform, j'ai un ComboBox .
Sur le OnChange du ComboBox j'ai le code suivant :

Code :

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

1
2
 
TextBox1.Text = ComboBox.Text

Et sur le TextBox1.Change j'ai une macro qui fait clignoter le textbox en fonction de sa valeur.

Le soucis c'est que la macro reste sur le TextBox1_OnChange car le code contiens des boucles pour faire clignoter...

Comment faire pour que mon code continu son chemin (aller à la fin du ComboBox_OnChange) en même temps que le textbox clignote?

Merci de votre aide.

[tototiti2008]

Bonjour jojo86,

à priori c'est dépendant du code de clignotement
peux-tu nous poster le code qui fait clignoter ta textbox ?

[jojo86]

Salut,
Voici 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub TReparateur_Change()
If TReparateur.Text = "Mineure" Then
    Delais = 0.2
    LCligno.Caption = "1"
Commencer:
    If CInt(LCligno.Caption) = 0 Then GoTo Fin
    Depart = Timer
    Do While Timer < Depart + Delais
    DoEvents
    Loop
    '================================
    DoEvents
    Depart = Timer
    Do While Timer < Depart + Delais
    DoEvents
    TReparateur.BackColor = &HFF
    TReparateur.ForeColor = &H8000000E
    Loop
    '================================
    Depart = Timer
    Do While Timer < Depart + Delais
    DoEvents
    TReparateur.BackColor = &H8000000F
    TReparateur.ForeColor = &H8&
    Loop
    GoTo Commencer
End if
Fin:
End Sub

Voila !

[jojo86]

C'est bon, j'ai trouvé !

Dans le Activate du userform j'ai mis le code et je l'ai un peut modifié :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Delais = 0.2
Debut:
    Do While LCligno.Caption = 0 'On attend que la valeur passe à 1
        DoEvents
    Loop
Commencer:
    If CInt(LCligno.Caption) = 0 Then GoTo Debut
    Depart = Timer
    Do While Timer < Depart + Delais
    DoEvents
    Loop
    '================================
    DoEvents
    Depart = Timer
    Do While Timer < Depart + Delais
    DoEvents
    TReparateur.BackColor = &HFF
    TReparateur.ForeColor = &H8000000E
    Loop
    '================================
    Depart = Timer
    Do While Timer < Depart + Delais
    DoEvents
    TReparateur.BackColor = &H8000000F
    TReparateur.ForeColor = &H8&
    Loop
    GoTo Commencer
Fin:

Sur le OnChange du TextBox, je modifi la valeur du Label LCaption à 1 Et paff ça clignote !

Merci de votre aide en tout cas !