Bonjour à tous,
Johnathan, encore mieux pour éviter d'avoir une chaine de caractères :
=NB.SI.ENS(A1:A10;">=0";A1:A10;"<3")/NB.SI(A1:A9;"<10e9") avec format cellules Fraction. Ca donne 3/7.
Avec cette macro on compte les couleurs appliquées aussi bien par MFC que manuellement :
VB:
Sub Go()
Dim c As Range, n&, p&
For Each c In [B1:B9] 'à adapter
If c <> "" Then
n = n + 1 '1er comptage
If c.DisplayFormat.Font.ColorIndex = 3 Then p = p + 1 '2ème comptage si rouge
End If
Next
'---restitution---
With [C10] 'à adapter
.NumberFormat = "@" 'format Texte
.Value = p & " / " & n
End With
End Sub
Avec cette macro on compte les couleurs appliquées aussi bien par MFC que manuellement :
VB:
Sub Go()
Dim c As Range, n&, p&
For Each c In [B1:B9] 'à adapter
If c <> "" Then
n = n + 1 '1er comptage
If c.DisplayFormat.Font.ColorIndex = 3 Then p = p + 1 '2ème comptage si rouge
End If
Next
'---restitution---
With [C10] 'à adapter
.NumberFormat = "@" 'format Texte
.Value = p & " / " & n
End With
End Sub
Bonjour à tous,
Johnathan, encore mieux pour éviter d'avoir une chaine de caractères :
=NB.SI.ENS(A1:A10;">=0";A1:A10;"<3")/NB.SI(A1:A9;"<10e9") avec format cellules Fraction. Ca donne 3/7.