Discussion :

[Nonno 94]

Bonjour le Forum,

j'ai besoin de votre aide pour résoudre le problème suivant :

dans le fichier exemple joint, je souhaite faire clignoter 2 cellules sous 2 conditions différentes.
Comment modifier les codes des Macros "Activate" et "SelectionChange(ByVal Target As Range)" pour y parvenir ?
Si cela est possible, je souhaite étendre la formule à un tableau de 30 valeurs.

Je vous remercie par avance pour vos réponses et vous souhaite une très bonne journée.
Cordialement.

Nonno 94.

[Daniel.C]

Bonjour,

Quelles cellules et quelles conditions ?

[Nonno 94]

Bonjour Daniel. C et merci de me répondre,

les cellules concernées sont :
- [D9] avec la condition Valeur >= 100
- [D11] avec la condition Valeur >= 40
Elles se trouvent dans la feuille "A1 (2)" du fichier joint.

Dans l'attente.
Nonno 94.

[Daniel.C]

C'est hyper-pénible; j'ai les yeux tout rouges. Remplace tes macros par :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub Worksheet_Activate()
Dim n As Byte
Dim Start As Variant
Dim i As Integer
Const Texte As String = ""
For i = 1 To 10            'Nombre de flashes 10
    If [D9] >= 100 Then
        Cells(9, 4).Font.ColorIndex = 6
        Cells(9, 4).Interior.ColorIndex = 3
    End If
    If [D11] >= 40 Then
        Cells(11, 4).Font.ColorIndex = 6
        Cells(11, 4).Interior.ColorIndex = 3
    End If
    For n = 1 To 40         'Intervalle des flashes
        Start = Timer
        Do While Timer < Start + 1 / 100
        Loop
        If n Mod 20 = 0 Then       'Durée des flashes
            Cells(9, 4).Interior.ColorIndex = xlNone
            Cells(9, 4).Font.ColorIndex = 1
            Cells(11, 4).Interior.ColorIndex = xlNone
            Cells(11, 4).Font.ColorIndex = 1
        End If
    Next n
Next i
 
Exit Sub
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
Const Texte As String = ""
For i = 1 To 10            'Nombre de flashes 10
    If [D9] >= 100 Then
        Cells(9, 4).Font.ColorIndex = 6
        Cells(9, 4).Interior.ColorIndex = 3
    End If
    If [D11] >= 40 Then
        Cells(11, 4).Font.ColorIndex = 6
        Cells(11, 4).Interior.ColorIndex = 3
    End If
    For n = 1 To 40         'Intervalle des flashes
        Start = Timer
        Do While Timer < Start + 1 / 100
        Loop
        If n Mod 20 = 0 Then       'Durée des flashes
            Cells(9, 4).Interior.ColorIndex = xlNone
            Cells(9, 4).Font.ColorIndex = 1
            Cells(11, 4).Interior.ColorIndex = xlNone
            Cells(11, 4).Font.ColorIndex = 1
        End If
    Next n
Next i
 
Exit Sub
End Sub

[Nonno 94]

Votre réponse ayant résolu mon problème, je vais de ce pas modifier les couleurs afin de préserver votre vue dans l'éventualité d'une prochaine consultation.

Cordialement.

Nonno 94.