Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compter cellule couleur + cellule non vide Excel 2019

M

MarineM*

XLDnaute Nouveau
Bonjour à tous et à toutes,

Après de nombreuse recherches sur internet : j'ai pu apprendre beaucoup de choses sur Excel mais malheureusement cette question n'a pas encore de réponse.

Ci-joint un fichier Excel

J'ai besoin de savoir combien de chantier sont en cours par colonne.
Colonne B que les cases blanches qui ne sont pas vides (résultat voulu : 10)
Colonne C idem (résultat voulu : 3)

J'ai essayé les VBA CompterCouleur mais je ne peux pas l'associer à NB >0

J'ai essayé les fonctions NB.SI, NB.SI.ENS mais cela ne fonctionne pas.

Je vous remercie d'avance pour votre aide

Bonne journée
 

Pièces jointes

  • Demande.xlsx
    9.9 KB · Affichages: 7
Solution
Salut,
La fonction ci-dessous devrait répondre à votre demande ( à mettre dans un module )
VB: 
Function NbColor(Plage_A_Scanner As Range, Cellule_Couleur_Ref As Range)
'Application.Volatile
    Dim Cell As Range
    For Each Cell In Plage_A_Scanner
        If Cell.Interior.ColorIndex = Cellule_Couleur_Ref.Interior.ColorIndex _
        And Not IsEmpty(Cell) Then NbColor = NbColor + 1
    Next
End Function
Vous mettez la formule ci-dessous dans la cellule désirée :
=NbColor($B$2:$B$30;$F2)
Cliquez pour agrandir...
$B$2:$B$30 étant la plage à scanner,
$F2 étant la cellule dont la couleur est prise en compte .

Pour la plage en colonne C, même cheminement, à vous de jouer ...
Trier par date Trier par votes

fanch55

XLDnaute Barbatruc
Salut,
La fonction ci-dessous devrait répondre à votre demande ( à mettre dans un module )
VB: 
Function NbColor(Plage_A_Scanner As Range, Cellule_Couleur_Ref As Range)
'Application.Volatile
    Dim Cell As Range
    For Each Cell In Plage_A_Scanner
        If Cell.Interior.ColorIndex = Cellule_Couleur_Ref.Interior.ColorIndex _
        And Not IsEmpty(Cell) Then NbColor = NbColor + 1
    Next
End Function
Vous mettez la formule ci-dessous dans la cellule désirée :
=NbColor($B$2:$B$30;$F2)
Cliquez pour agrandir...
$B$2:$B$30 étant la plage à scanner,
$F2 étant la cellule dont la couleur est prise en compte .

Pour la plage en colonne C, même cheminement, à vous de jouer ...
 
Vote positif 1 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Question
Microsoft 365 Compter les couleur avec MFC
2
Réponses
19
Affichages
752
TooFatBoy
S
  • Question
XL 2016 Caractère fantôme invisible dans cellule vide non vide.
Réponses
5
Affichages
301
SurfingJoe
S
M
  • Question
Microsoft 365 Problème de filtrage non résolu
Réponses
8
Affichages
235
job75
R
  • Résolu(e)
Microsoft 365 Aide formule somme si textes retrouvés dans cellules d'une colonne avec plusieurs conditions
Réponses
8
Affichages
189
richard31
R
  • Question
XL 2010 Nb occurences non juste
Réponses
5
Affichages
491
mapomme
F
  • Question
XL 2019 Compter le nbr de cellule non vide, mais sans les doublons
Réponses
8
Affichages
688
xUpsilon
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
205
job75
  • Question
XL 2010 mon problème c'est : qu'une cellule avec une fonction = cellule non vide
Réponses
3
Affichages
844
Lynattendu
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
222
Olihoes
O
L
  • Question
XL 2013 Mise à jour VBA
2
Réponses
24
Affichages
2 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…