Comptabiliser le nombre de cellule colorer

[cora]

Bonjour à tous, peut-on additionner sur une plage de cellule, le nombre de cellule ayant une police verte par exemple

Merci pour votre aide

 

[Matheop]

Re : Comptabiliser le nombre de cellule colorer

Salut cora.

Oui c'est possible. Une simple macro dans ce style là devrait suffire.

Private Sub anotherTest()

Dim compteur As Integer

For x = 1 To ActiveSheet.UsedRange.Rows.Count
  'pour toutes les lignes non vides de ta colonne A on vérifie la condition suivante
  If Cells(x, 1).Font.ColorIndex = 4 Then compteur = compteur + 1
Next x

MsgBox "Il y a " & compteur & "cellules dont la police est verte."

'suffit de remplacer la valeur de ColorIndex par celle dont tu as besoin

End Sub

Cordialement,
Mat'

 

[cora]

Re : Comptabiliser le nombre de cellule colorer

Merci pour tous