Calcul nombre de cellule sans couleur

[stoz]

Bonjour,
Je suis à la recherche d'une formule de calcul dans Excel qui me permettrait de compter le nombre de cellule sans couleur (confère document ci joint)
L'idée étant de faire apparaître ici un résultat en nombre de jour non concerné par les codes couleurs renseignés dans le planning.
Merci pour votre aid

 

[fhoest]

Re : Calcul nombre de cellule sans couleur

Bonjour ,
Voici ton fichier en retour,
regarde si cela te convient
A+

 

[stoz]

Re : Calcul nombre de cellule sans couleur

Bonjour ,
Voici ton fichier en retour,
regarde si cela te convient
A+

Parfait MERCI
Et en considérant vouloir obtenir le résultat sur une cellule? Merci pour votre aide

 

[JNP]

Re : Calcul nombre de cellule sans couleur

Bonjour le fil ,
Fhoest n'étant plus connecté, sa macro transformée en fonction .
Bonne soirée

 

[boullitt93]

Re : Calcul nombre de cellule sans couleur

Bonjour à tous,

Peut-on déterminer une couleur précise dans la macro ou dans une formule de calcul simple ?

A vous lire

Cdlt

 

[Hippolite]

Re : Calcul nombre de cellule sans couleur

Bonjour à tous,
Fonction qui compte dans Plage les couleurs identiques à celle de la cellule Reference

Function CompteCouleurs(Plage As Range, Reference As Range) As Long
    Dim c As Range
    Application.Volatile
    For Each c In Plage
      If c.Interior.Color = Reference.Interior.Color Then CompteCouleurs = CompteCouleurs + 1
    Next c
End Function

A+

 

[boullitt93]

Re : Calcul nombre de cellule sans couleur

Merci Hippolite par peux-tu m'aider sur la macro créee par fhoest pour Stoz ? j'essaie de l'utiliser en modifiant la plage ( une seule colonne de A4:A250) avec une couleur vbRed mais sans résultat !

A te lire

 

[Hippolite]

Re : Calcul nombre de cellule sans couleur

Bonsoir Boullitt93,
Si tu ne parviens pas à utiliser la fonction du post#5,
Crée un fil en joignant un fichier et en expliquant ce que tu veux.
A+

 

[fhoest]

Re : Calcul nombre de cellule sans couleur

Bonjour Hippolite,JNP,boullit93,stoz

@ JNP,merci pour cette fonction,il est vrai que je n'y avait pas pensé.
@ Boullit93 , que veux tu exactement ??

A+

 

[boullitt93]

Re : Calcul nombre de cellule sans couleur

Ok désolé de vous avoir interpellé ! c'est bon j'ai pu pomper et faire fonctionner la macro que tu avais installé sur le fichier de Stoz mais par contre comment comptabiliser les cellules vierges avec le seul fond de couleur déterminée ?

A+

 

[fhoest]

Re : Calcul nombre de cellule sans couleur

Re,
que veux tu dire par fond de couleur determinée ?
je ne comprend pas
pour cellule vierge dans le meme code:
Code :
Function CompteCouleurs(Plage As Range, Reference As Range) As Long
    Dim c As Range
    Application.Volatile
    For Each c In Plage
      If c.value=""  Then CompteCouleurs = CompteCouleurs + 1
    Next c
End Function
A+

 

[JNP]

Re : Calcul nombre de cellule sans couleur

Re ,

@ JNP,merci pour cette fonction,il est vrai que je n'y avait pas pensé.

De rien .
En plus, je viens de m'apercevoir que j'ai du avoir un Ctrl+z malheureux, j'avais pourtant bien modifié la plage en dur par Plage ...
Donc la fonction de départ aurait du être celle-ci

Function CompteBlanc(Plage As Range) As Integer
Dim c As Range
For Each c In Plage
If c.Interior.Color = vbWhite And c.Value <> "" Then CompteBlanc = CompteBlanc + 1
Next
End Function

et je pense que la modifiée serait celle-ci

Function CompteCouleur(Plage As Range, Référence As Range) As Integer
Dim c As Range
For Each c In Plage
If c.Interior.Color = Référence.Interior.Color And c.Value <> "" Then CompteCouleur = CompteCouleur + 1
Next
End Function

avec par exemple

=CompteCouleur(A54:AE59;AI47)

qui va donner le nombre de jours de congés ...
Bonne suite
Ajout : Bing Fhoest

 

[boullitt93]

Re : Calcul nombre de cellule sans couleur

Re,

Je me fais mal comprendre ce qui est normal quand on a à faire à des épées sur Excel et ce n'est pas péjoratif ! dans ta macro(fichier de Stoz), apparemment seules les cellules de fond blanc non vides sont comptabilisées ? Comment faire pour comptabiliser les cellules vides de fond blanc en utilisant ta macro , bien pratique d'ailleurs ?

Merci d'avance

 

[JNP]

Re : Calcul nombre de cellule sans couleur

Re ,
Des épées ?
Bon :
Fond blanc non vide

If c.Interior.Color = vbWhite And c.Value <> "" Then CompteBlanc = CompteBlanc + 1

Fond blanc vide

If c.Interior.Color = vbWhite And c.Value = "" Then CompteBlanc = CompteBlanc + 1

Fond non blanc non vide

If c.Interior.Color <> vbWhite And c.Value <> "" Then CompteBlanc = CompteBlanc + 1

Fond non blanc vide

If c.Interior.Color <> vbWhite And c.Value = "" Then CompteBlanc = CompteBlanc + 1

Etc.
Bonne soirée

 

[stoz]

Re : Calcul nombre de cellule sans couleur

Bonjour Hippolite,JNP,boullit93,stoz

@ JNP,merci pour cette fonction,il est vrai que je n'y avait pas pensé.
@ Boullit93 , que veux tu exactement ??

A+

fhoest Merci pour ton aide en tout cas!