Microsoft 365 VBA Compter Colorindex [Résolu]

[xvella]

Bonjour à tous,

Je cherche à établir des statistiques via VBA. En regardant si il y a des polices de couleur rouge dans un tableau.

J'ai fait un petit exemple.

Merci d'avance pour vos réponses.

A+

 

[patty58]

Bonjour xvella
Vois si cette macro te va :

Option Explicit
'
Sub Etude()
Dim cell As Range
Dim Compteur As Variant, Red As Variant
'
Compteur = 0
For Each cell In Sheets("Page1").Range("B3:B20").Cells
    If cell <> "" Then Compteur = Compteur + 1
Next
'
Red = 0
'
For Each cell In Sheets("Page1").Range("C3:C" & Compteur + 2).Cells
        If cell.Font.ColorIndex = 3 Or cell.Offset(0, 1).Font.ColorIndex = 3 Or cell.Offset(0, 2).Font.ColorIndex = 3 Then
        Red = Red + 1
        End If
Next
Sheets("Page1").Range("G5").Value = Compteur
Sheets("Page1").Range("G8").Value = Red
'
End Sub

Bonne prog

 

[xvella]

Merci patty58. Parfait.

J'avais moi trouver cela:

Sub Etude()
Dim cell As Range
Dim Compteur As Variant, Red As Variant
'
Compteur = 0
For Each cell In Sheets("Page1").Range("B3:B20").Cells
If cell <> "" Then Compteur = Compteur + 1
Next
'
Red = 0
'
For Each cell In Sheets("Page1").Range("C3:C20").Cells
If cell <> "" Or cell.Offset(0, 1) <> "" Or cell.Offset(0, 2) Then
If cell.Font.Color = RGB(255, 0, 0) Or cell.Offset(0, 1).Font.Color = RGB(255, 0, 0) Or cell.Offset(0, 2).Font.Color = RGB(255, 0, 0) Then
Red = Red + 1
End If
End If
Next
'
Sheets("Page1").Range("G5").Value = Compteur
Sheets("Page1").Range("G8").Value = Red
'
End Sub


Encore merci.

A+