Comment faire clignoter une cellule en rouge dans Excel ?
En général, nous mettons en évidence des cellules avec différents arrière-plans pour les distinguer des autres. Cependant, dans cet article, je vais vous présenter un code VBA qui fait clignoter des cellules spécifiques avec un arrière-plan rouge pour qu'elles se démarquent dans Excel.
Faire clignoter une cellule en rouge avec VBA
Faire clignoter une cellule en rouge avec VBA
Pour faire clignoter des cellules et attirer l’attention des utilisateurs, voici un code VBA.
1. Activez la feuille où vous souhaitez faire clignoter les cellules, puis appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans le script du Module. Voir capture d'écran :
VBA : Faire clignoter une cellule en rouge
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. Appuyez sur F5 et une boîte de dialogue Kutools for Excel apparaît pour sélectionner les cellules que vous souhaitez faire clignoter, voir capture d'écran :
4. Cliquez sur OK. Maintenant, la cellule sélectionnée clignote avec un arrière-plan rouge.
Conseils :
(1) Dans le code VBA, vous pouvez modifier la couleur de fond (xColor = 3), la vitesse de clignotement (xSpeed = 0.6) et le nombre de clignotements (Do Until xCount = 20) selon vos besoins.
(2) Ce code VBA n’ajoutera pas de fond clignotant à une sélection vide.
(3) Ce fond clignotant sera automatiquement supprimé après la fin des cycles définis.
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !