faire la somme d'une colonne en axcluant les cellule dont la couleur de la polic

Question

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

Goth25 · Answer

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

Goth25 · Answer

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

cs_MPi · Answer

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

ticoco84 · Answer

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

Faire la somme d'une colonne en axcluant les cellule dont la couleur de la polic

4 réponses

Votre réponse

Discussions similaires