Calcul du nombre de cellules avec couleur spécifique (forme conditionnelle)

Question

Bonjour à tous. Je suis devant un défi (pour moi) qui devrait être un jeu pour tous les chevronnés de ce site. Et je ne doute pas que la solution pourra m'être proposée par certains d'entre vous. Contexte. J'ai un classeur avec 1 feuille. Cette dernière contient plus de 1800 lignes, chacune ayant un article précis. Pour chaque article en ligne, il y a au moins 50 colonnes comportant différents critères (labels) et toutes les cellules contiennent divers nombres. Chaque colonne possède uniquement 2 mises en formes conditionnelles qui ne retournent que des cellules colorées en vert ou en rouge, selon les critères spécifiques à chaque colonne. Objectif. Mon but est de pouvoir, PAR LIGNE , compter le nombre de cellules en vert ET le nombre de cellules en rouge. Et ce, pour les 1800 +/- lignes individuelles du classeur afin d'établir un classement de ces dernières. J'ai essayé toutes les astuces et trucs proposés sur le net, crée des modules en VBA, créé des formules... Rien ne me permet de pouvoir arriver à compter ces cellules. Je n'ai que des erreurs style #NOM ou d'autres choses aussi fantaisistes. Que les cellules soient en format Standard ou Nombre n'y change rien. Que le classeur soit enregistré en xlsm ou pas non plus. Ci joint un fichier limité illustrant le contexte. Merci à tous pour votre aide. Bonne soirée...

Dan · Accepted Answer

Il eut été plus simple de placer votre fichier avec données non confidentielles plutôt que la série de pdf Il n'y a pas d'interdiction de placer une image sur le site. Vous n'avez peut être pas cliqué sur la bonne icône ? Essayez ce code adapté comme suit: Sub ComptecouleurMFC() Dim cel As Range, plage As Range Dim dlg As Integer Application.ScreenUpdating = False With ActiveSheet 'derniere colonne en ligne 1 dcol = .Cells(1, Columns.Count).End(xlToLeft).Column 'dernière ligne remplie dans la feuille dlg = .UsedRange.Rows.Count 'définir plage à controler pour la MFC Set plage = .Range(.Cells(2, "S"), .Cells(dlg, dcol - 3)) 'supprimer les totaux dans les colonnes Vert & Rouge .Range(.Cells(2, dcol - 1), .Cells(dlg, dcol)).ClearContents 'boucle de chanque cellule dans la plage For Each cel In plage Select Case cel.DisplayFormat.Interior.Color 'verifie si couleur MFC Case Is = 5287936 'vert .Cells(cel.Row, dcol - 1) = .Cells(cel.Row, dcol - 1) + 1 'ajout nombre de cellule en Vert Case Is = 192 'brun .Cells(cel.Row, dcol) = .Cells(cel.Row, dcol) + 1 'ajout nombre de cellule en Rouge End Select Next cel End With Application.ScreenUpdating = True End Sub Règles à suivre : - votre plage contenant les MFC démarre en colonne S (données en ligne 2 et titre en ligne 1) - vous devez toujours avoir une seule colonne vide entre la dernière colonne de la plage et les deux colonnes (vert et rouge) consacrées aux résultats - votre ligne de titre est en ligne 1 - La dernière colonne en ligne 1 est celle où vous avez mentionné "Rouge" Ce code tient compte de la variation de lignes et colonnes pour autant que les règles ci-dessus sont respectées. Logique puisque vous avez laissé 5 colonnes entre les deux colonnes de résultats et les colonnes contenant les données. NB : @Crearts : citoyen Belge je vois... Crdlt...

Dan · Answer

Votre fichier en retour où il vous suffit de cliquer le bouton pour voir le résultat. Le code VBA ci-dessous Sub ComptecouleurMFC()'compte le nombre de cellules contenant une MFC Dim cel As Range Dim dlg As Integer dlg = 19 Range("H2:I" & dlg).ClearContents For Each cel In Range("A2:F" & dlg) Select Case cel.DisplayFormat.Interior.Color Case Is = 5287936 'vert Cells(cel.Row, 8) = Cells(cel.Row, 8) + 1 Case Is = 192 'brun Cells(cel.Row, 9) = Cells(cel.Row, 9) + 1 End Select Next cel End Sub NB : - La dernière ligne considérée est la 19 selon votre fichier. Vous écrivez 1500 lignes et 50 colonnes mais est-ce que le nombre de lignes ou de colonnes peut varier en plus ou en moins ? - on peut aussi calculer cette dernière ligne ou dernière colonne via le code si on connait mieux la structure de votre vrai fichier et du tableau. Dans votre bon fichier - Allez dans l'éditeur VBA et créez un module - Placez le code ci-dessus dans ce module - Associez-le code à un bouton à dessiner sur votre feuille Cordialement...

BsAlv · Answer

Imbroglio, ... ??...

Optimix · Answer

Je profite insidieusement de vos échanges, Dan ayant fait le taf. Approche différente à l'aide d'une formule personnalisée (macro) qui ne tient pas compte du nombre de lignes. En essayant de me rapprocher le plus possible du besoin réel (nb de lignes et de colonnes pour avoir une idée des temps de réponse)...

BsAlv · Answer

Re, bonjour de retour ! je m'amusais à ajouter quelque options à la macro de @Dan, l'emploi d'un TS pour le résultat et maintenant on compte tous les couleurs...

Dan · Answer

Merci de votre retour Au besoin, mettez un fichier qui ressemble plus au vôtre et le résultat que vous attendez car là je ne vois pas ce qui pose souci dans ce que vous avez demandé et la proposition qui vous ai donnée Pour votre fichier pdf "formule_introuvable" qui mentionne nom# dans la cellule, cette erreur est normale vu ce que je vois mentionné dans la barre de formule. Si vous voulez que les couleurs soient comptabilisées en fonction d'ajout de données en colonnes S à X, je peux adapter le code car il faut procéder autrement Crdlt...