Cellule clignotante

Bonjour à tous,

Merci de m'accueillir sur le forum, j'aimerai dans le fichier que je joints, faire clignoter la cellule Urgence. Celle-ci permet dans l'urgence d'avoir accès aux priorités.

Merci pour votre aide,

Excel:2013

Bonjour ChrisM

Comment faire en VBA? Ce lien en langue anglaise : https://excelribbon.tips.net/T007223_Flashing_Cells

J'ai testé et ça marche

Bonjour Gérard,

Merci pour la réponse je vais regarder le tuto.

Cdlt

Chris

Bonjour toutes et tous,

coucou Gvailles

@ChrisM

Note: (j'ai vu que l'on pouvez effectuer un clignotement de cellule sans macro mais, avec une MFC Mise en Forme Conditionnelle)

** avec 1 macro ci-dessous qui ne dure que quelques secondes lorsqu'on a cliqué sur le bouton de commande et si, le mot Urgence est bel est bien dans la cellule H11 (attention toutefois, à tes cellules fusionnées qui, risquent à long terme faire bugguer)

• 1 bouton de commande
• un module1

Sub urgence()
Dim n 'As nbr
Dim debut As Variant
Dim i As Integer
With Sheets("Feuil1")

On Error GoTo plouf

If [h11] = "Urgence" Then
Const Texte As String = ""
For i = 1 To 10
Cells(11, 8).Font.ColorIndex = 8
Cells(11, 8).Interior.ColorIndex = 4
For n = 1 To 20
debut = Timer
Do While Timer < debut + 1 / 50
Loop
If n Mod 5 = 0 Then
Cells(11, 8).Interior.ColorIndex = xlNone
Cells(11, 8).Font.ColorIndex = 1
End If
Next n
Next i
End If
plouf:
Exit Sub

End With
End Sub

Bonjour Chris, le forum,

je pense que tu devrais lire toute cette conversation :

https://forum.excel-pratique.com/viewtopic.php?f=2&t=115981

(il y aura aussi plusieurs fichiers proposés)

dhany

Bonjour,

Une autre piste !

A mettre dans le module de la feuille :

Private Declare Function GetTickCount Lib "Kernel32" () As Long

Sub Minuterie(Milliseconde As Long)

    Dim Arret As Long

    Arret = GetTickCount() + Milliseconde

    Do While GetTickCount() < Arret
        DoEvents
    Loop

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim I As Integer

    If Target.Address(0, 0) = "E7" And Target.Value < 10 Then

        For I = 1 To 10

            Range("H11").Interior.ColorIndex = 3
            Minuterie 300
            Range("H11").Interior.ColorIndex = 0
            Minuterie 300

        Next I

        Range("H11").Interior.ColorIndex = 0

    End If

End Sub

Pour le test, une valeur inférieure à 10 entrée dans la cellule E7 fait clignoter la cellule H11

Bonjour à tous,

Merci à vous pour votre aide je vais mettre en forme mon fichier et tester vos solutions.

Cdlt