NB.SI(couleur)

Question

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

ccm81 · Answer

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

Fullreyny · Answer

NON, elles ne sont pas sous conditions

ccm81 · Answer

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

NB.SI(couleur)

3 réponses

Votre réponse

Discussions similaires