Discussion :

[Bricoltou]

Bonjour le forum

J'ai creer ce code pour sensibiliser la personne qui sélectionne l'onglet.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Activate()
Dim x As Integer
x = [a3].Interior.ColorIndex = 5
x = [b3].Interior.ColorIndex = 5
For x = 1 To 15
[a3].Interior.ColorIndex = x
[b3].Interior.ColorIndex = x
Application.Wait (Time + TimeValue("0:00:01"))
Next
End Sub

Celui ci fonctionne mais les cellules prennent toutes les couleurs les unes derriere les autres alors que je voudrai une seule couleur .

Pouvez vous m'aider
Merci d'avance

Bricoltou

[LeForestier]

Bonjour,
Tu colle le code ci-dessous dans le module de la feuille (tu supprime ce qu'il y a déja.

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
Option Explicit
Dim Bascule As Boolean
 
Sub Timer()
Dim S As Integer
Dim B As Boolean
    While Bascule = True
        If S <> Second(Now) Then
            If B Then
                Range("A3").Interior.ColorIndex = 3
                Range("B3").Interior.ColorIndex = 3
            Else
                Range("A3").Interior.ColorIndex = 5
                Range("B3").Interior.ColorIndex = 5
            End If
            B = Not B
            S = Second(Now)
        End If
        DoEvents
    Wend
End Sub
 
Private Sub Worksheet_Activate()
    Bascule = True
    Timer
End Sub
 
Private Sub Worksheet_Deactivate()
    Bascule = False
End Sub

Pour l'amorcer tu doit changer de feuille et y revenir
A+

[laetitia]

bonjour Bricoltou , mon ami Louis le forum un autre exemple basique

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Worksheet_Activate()
Dim s, p As Variant, x As Byte
For x = 1 To 15
[a3:b3].Interior.ColorIndex = 5
p = 0.05: s = Timer: Do While Timer < s + p: DoEvents: Loop
[a3:b3].Interior.ColorIndex = xlNone: Beep
p = 0.05: s = Timer: Do While Timer < s + p: DoEvents: Loop
Next
End Sub

par contre si cela demande beaucoup de precision mon ami Louis te donneras plus de precision. grand specialiste de la gestion des timers

[Bricoltou]

Bonsoir le Forum, laetitia,Leforestier

Merci pour vos réponses cela fonctionne encore mieux que je ne l'esperais .

Merci pour votre aide qui me fait progresser

@+

Bricoltou