faire la somme d'une colonne en axcluant les cellule dont la couleur de la police est rouge

Bonjour,

Je suis avec excel et VBA.
J'ai un souci, je dois faire la somme des valeurs d'une colonne mais en excluant les valeurs de certaines celulles qui sont en rouge.

For z = 8 To 12 Step 1       'Colonnes 8 à 12
                For h = i To 12 Step -1      'i est la valeur de la derniere ligne écrite
                    If Sheets("Feuil1").Cells(h, z).Font.ColorIndex = 3 Then
                        h = h - 1
                    Else
                        Sheets("Feuil1").Cells(110, z).Formula = "=SUM(R" & h & "C" & z & " : R" & i - 1 & "C" & z & ")"
                    End If
                Next h
Next z

merci d'avance

Salut,

Je ne sais pas si tu veux réellement travailler sur la couleur de la police ou bien la couleur de la cellule. Si c'est la couleurs de la cellule tu devrais plutot procéder ainsi :

For z = 8 To 12 Step 1       'Colonnes 8 à 12
                For h = i To 12 Step -1      'i est la valeur de la derniere ligne écrite
                    If Sheets("Feuil1").Cells(h, z).Interior.ColorIndex = 3 Then
                        h = h - 1
                    Else
                        Sheets("Feuil1").Cells(110, z).Formula = "=SUM(R" & h & "C" & z & " : R" & i - 1 & "C" & z & ")"
                    End If
                Next h
Next z

Bonne chance


Jim

Je m'excuse je viens de voir dans ton titre que c'était vraiment la police

Mille excuse!

Jim

Et quel est le problème dans ton code, Ticoco ?

MPi²

en fait c bon g réussi à esquiver le truc. je fais la somme totale divisée par deux. cela se prete bien ds mon cas. merci à tous de mavoir aider