NB.SI(couleur) [Fermé]

Signaler
-
Messages postés
9848
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 juin 2021
-
Bonjour,


Je souhaite savoir si il est possible grâce à une formule, de calculer le nombre de case de couleur (jaune, rouge, bleu...)

Ex NB.SI (A:A;"contient de la couleur")

Merci

3 réponses

Messages postés
9848
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 juin 2021
2 128
bonjour

est ce que la couleur provient d'une mise en forme conditionnelle?

bonne suite
NON, elles ne sont pas sous conditions
Messages postés
9848
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
9 juin 2021
2 128
re

une macro VBA s'impose, voici une fonction proposée par Myta sur le forum ce matin
- à coller dans un module (Alt+F11 pour acceder a l'editeur puis coller ce code)
- à utiliser comme une nouvelle fonction

Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long    
'Compter le nombre de cellules d'une couleur donnée dans une plage donnée    
'Plage: plage de cellules à inspecter    
'Couleur: valeur de la couleur cherchée    

Application.Volatile    

Dim Cellule As Range    

For Each Cellule In Plage    
    If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then    
        NbreCellulesCouleur = NbreCellulesCouleur + 1    
    End If    
Next Cellule    

End Function


Mode d'utilisation de la formule
B9=NbreCellulesCouleur(B4:B8;3)

RQ. (excel 2003) pour les codes couleurs tu mets un bouton sur une feuille et tu colles le code

Private Sub CommandButton2_Click()   
dim i as long
  For i = 1 To 56   
    Range("A" & i).Value = i   
    Range("A" & i).Interior.ColorIndex = i   
  Next i   
End Sub   

bonne suite