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

Microsoft 365 Compter le nombre de cellule mise en couleur avec MFC

Yann71

XLDnaute Occasionnel
Bonjour la COM.

J'ai un tableau dont les lignes prennent une couleur différente suivant le contenu d'une cellule,
Exemple: Si dans la colonne A j'inscrit F1 les lignes B à L prenne la couleur rouge
Si dans la colonne A j'inscrit F2 les cellules B à L prenne la couleur verte
A noter que les couleurs sont établie avec une MFC

Je vous remercie pour votre aide
 

Pièces jointes

  • Classeur1.xlsx
    9.5 KB · Affichages: 6

Jeannette

XLDnaute Junior
Bonsoir,
Par curiosité, j'ai testé le fichier de Job75 (du post #8), et ai mis la valeur "F2" dans la cellule B9 (correspondant donc au Lundi, avec des horaires de 11H30 à 18H30)
Hélas...
Est-ce qu'un code VBA peut remplacer une simple formule, comme le propose @djidji59430 ?
Bonne soirée
 

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Pourquoi trouvez-vous cela farfelu
Parce que tu n'as qu'un seul libellé par ligne, et qu'à chaque libellé correspond sa propre durée fixe, donc il suffit de rechercher le libellé dans un tableau pour obtenir sa durée correspondante.

C'est beaucoup plus simple (et aussi plus dans l'esprit d'Excel, je pense) que d'utiliser une macro qui va tester, une par une, chacune de toutes les cellules du tableau pour savoir si elle est coloriée par une MFC.
C'est un peu comme sortir le marteau pour écraser une mouche.

En revanche, l'avantage c'est que la durée obtenue correspond obligatoirement aux cellules coloriées.
 

job75

XLDnaute Barbatruc
Bonjour à tous,

Oui pour être cohérent il faut construire les MFC en s'appuyant sur le tableau H21:U25.

Voyez le fichier joint, j'ai mis les heures en ligne 8 avec des formules.

Pour "01", formule de la MFC en D9 :
Code:
=ET($B9="01";OU(ET(D$8>=$J$21;D$8<$M$21);ET(D$8>=$P$21;D$8<$S$21);))
Pour "02" et suivantes il suffit de remplacer 21 par 22 puis 23 etc...

Formule en BA9 :
Code:
=SIERREUR(RECHERCHEV(B9;H$21:U$25;6;0)-RECHERCHEV(B9;H$21:U$25;3;0)+RECHERCHEV(B9;H$21:U$25;12;0)-RECHERCHEV(B9;H$21:U$25;9;0);"")
A+
 

Pièces jointes

  • Classeur1.xlsx
    14 KB · Affichages: 2

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…