Intégrer un fonction concernant le format de cellule

[Mag380]

Voici mon problème

Je gère des formations. Pour cela, je rentre les dates prévues de formation. Par exemple 10.
Lorsque le formation est effectuée, j'applique à la date le format Date+Couleur Rouge.

Y-a-t-il un moyen dans une dernière colonne de mettre une formule disant :

Si la couleur de la date est Rouge alors donner le nombre de dates en Rouges ?

Au secours, s'il vous plaît

Merci d'avance !

 

[Marc]

Bonjour,

Il y a peut-être plus simple mais une macro avec une boucle sur la colonne peut faire l'affaire

Sub essai()
'
j = 0
For i = 1 To 10
Cells(i, 1).Select

If Selection.Interior.ColorIndex = 3 Then j = j + 1
Next i
Cells(1, 4) = j

End Sub

Attention au code Couleur (dans l'aide intuitive de visual basic: une recherche sur "pattern color index" donne tous les codes des couleurs

Bon courage

 

[Zon]

Bonjour à tous,

Mag380 si tu veux une fonction type excel, colles cela dans un module:

Public Function NbC(Plage As Range, Couleur As Byte) As Long
On Error GoTo Errr
Dim C As Range
For Each C In Plage
If C.Interior.ColorIndex = Couleur Then NbC = NbC + 1
Next C
Errr:
If Err <> 0 Then NbC = -1
End Function


Dans ta feuille de calcul, dans les cellules où tu veux le résultat par exemple en B2 pour compter les les cellules qui ont le motif rouge en A1:A10
=nbc(A1:A10;3)

Pour les autres couleurs suis les conseils de Marc.

A+++

 

[Magali]

Merci à tous les deux !

J'ai essayé les deux solutions, et ça me renvoie désespérement 0 !

Je crois avoir compris le principe, mais ne vois pas d'où vient l'erreur !


Merci encore pour vos réponses

Mag

 

[Marc]

Re,

Si tu as écrit la macro comme je l'ai indiqué, ça doit marcher.

Utilise-tu le bon code pour la couleur ?

Salut