[Resolu]Calcul nbre de cellules colorées avec conditions

[Scoty]

Bonjour à tous,

Soit un planning de personnel avec plusieurs infos:
- Un code de pointage
- le budget d'heures et le réalisé
- une couleur de cellule différente en fonction d'une zone A ou B

Sans rentrer dans les détails, je souhaite en ligne 18 et 21, calculer le nombre de cellules du réel, qui est n'est pas colorié dc quelque soit la couleur, jaune ou bleu (comme un =nb()), même s'il y a un nombre.

Pour info, j'ai utilisé une petit macro qui créer une fonction couleur de manière matricielle.

Le problème: Dans l'évaluation de formule, je me suis rendu compte que cette formule comparait toute les données ensemble, alors qu'un somme prod comparait 2 données à chaque fois. J'ai remarqué cela en fonction de la ponctuation ("." et ";") entre les valeurs logiques "VRAI"/"FAUX".

Merci de votre aide

@+
Scoty

 

[Dugenou]

Re : Calcul nbre de cellules colorées avec conditions

Bonjour,
Peut-être avec =SOMMEPROD(($B$6:$B$13=$B18)*($C$6:$C$13=$C18);ESTNUM(D$6$13)*1)
Cordialement
PS sur mon PC (2010) je n'ai pas de différence de ponctuation

 

[Scoty]

Re : Calcul nbre de cellules colorées avec conditions

Bonjour Dugenou,

Milles excuses j'ai fais une erreur dans la bulle. Il s'agit des lignes 17 et 19 ou je souhaite calculer le nombre de cellules colorées quelque soit la valeur dedans en fonction:
- Code de pointage
- Réalisé

@+
Scoty

 

[Dugenou]

Re : Calcul nbre de cellules colorées avec conditions

Il me semblait aussi qu'il manquait un élément !
je pense que le problème est que la fonction spéciale n'est pas matricielle, mais ça dépasse mes compétences
Peut être Dranreb pourrait faire quelquechose

 

[Dranreb]

Re : Calcul nbre de cellules colorées avec conditions

Bonjour.

Là vous renvoyez toujours une ligne du nombre de colonnes égal au nombre de cellules de la plage.
Écrivez la fonction comme ça pour qu'elle renvoie une matrice compatible avec les autres dans la formule :

Function Couleur(Pcoul As Range) As Variant()
Dim Mat(), L&, C&
ReDim Mat(1 To Pcoul.Rows.Count, 1 To Pcoul.Columns.Count)
For L = 1 To UBound(Mat, 1): For C = 1 To UBound(Mat, 2)
   Mat(L, C) = Pcoul(L, C).Interior.ColorIndex
   Next C, L
Couleur = Mat
End Function

 

[Scoty]

Re : Calcul nbre de cellules colorées avec conditions

Bonjour Dugenu, Danreb, bonjour à tous,

Désolé de répondre tardivement, le we est passé par là .

Merci de vos réponses ou d'avoir fait passer le mot. La macro fonctionne à merveille.

Dernière petite question: J'ai souhaité changer de nom en mettant par ex: "couleur1" et la macro ne fonctionne pas, j'ai un "#VALEURS". Doit on obligatoirement mettre comme nom de fonction: "Couleur" ?

En vous remerciant. Bon début de semaine

@+
Scoty

 

[Dranreb]

Re : Calcul nbre de cellules colorées avec conditions

Bonjour.

Non, vous pouvez mettre le nom de fonction de votre choix. Il faut seulement que ce soit partout le même, y compris dans l'instruction d'affectation de la chose retournée.

 

[Scoty]

Re : Calcul nbre de cellules colorées avec conditions

Bonjour Danreb,

Oui ok effectivement, la'avant dernière ligne de votre macro doit avoir le même nom que la fonction crée, je viens de tester. Merci beaucoup.

Excellente journée.

@+Scoty