Bonjour,

J'aimerai utiliser une macro me permettant de parcourir tous les onglets. Lorsqu'une cellule (range A120) d'un onglet possède une police rouge >> Couleur de cet onglet en rouge.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 Sub Check_xls()
 
Dim Ws As Worksheet
 
 For Each Ws In ActiveWorkbook.Worksheets
      Dim CurCell As Object
      For Each CurCell In Range("A1:D20")
         If CurCell.Font.ColorIndex = 3 Then ActiveWorkbook.Sheets.Tab.ColorIndex = 3
  Next
  Next Ws
 
End Sub
Merci de votre aide précieuse...