Version imprimable
Bonjour,
Je galère un peu sur un élément qui me paraissait simple, mais..
En VBA, je souhaiterai compter le nombre de cellule, dans une colonne, qui ont des feux feu ou rouge ou jaune.
Les cellules répondent à une "Mise en forme conditionnelle".
(IconSets(xl3TrafficLights2).Item(1)).
Merci d'avance pour votre aide.
Cordialement.
Pascal
Bonjour,
peut-être en s'inspirant du travail de Jacques BOISGONTIER à ce sujet :
http://boisgontierjacques.free.fr/pa....htm#comptemfc
A+
Bonjour,
L'utilisation des couleurs, notamment celle provenant des MFC, comme critère est parfois problématique et/ou source d'erreur, il est plus simple de réutiliser les critères de la MFC que les couleurs.
Bonjour,
Merci pour vos messages.
J'ai suivi le conseil de Algoplus, mais le travail de Jacques BOISGONTIER n'a pas marché sur mes "trafficlight".
A+
Bonjour,
Je suis toujours bloqué !!!
J'ai essayé ceci, mais ça ne marche pas
Cdlt.Code:nbr_de_feu_jaune = Range("I2:I20").IconSets(xl3TrafficLights2).Item(2).Count
Pascal P.
Bonjour,
Pourquoi n'effectues tu pas ton calcul en fonction des critères de la mise en forme conditionnelle.
Ainsi, j'utilise les icônes TrafficLights pour visualiser si un dossier n'est pas encore commencé (rouge), en cours (jaune et terminé (vert). La mise en forme réagit donc avec 0, 1 et 2
Je peux donc compter le nombre de dossier par statut à l'aide de la fonction NB.SI
Exemple pour compter les verts
Si tu as des situations plus complexes à dénombrer, il y a bien entendu d'autres fonctions à ta disposition comme SOMMEPROD, NB.SI.ENS, etc.Code:=NB.SI($F$2:$F$5;2)
Merci pour l'info Philippe. Malheureusement chaque cellules à une autre information.
C'est-à-dire, je compare un délai de livraison par rapport à une date confirmé. Ma cellule contient une date et selon la condition le feu devient rouge, jaune ou vert.
Si la date confirmée est dépassée, le feu passe au rouge.
Ensuite je souhaite connaitre combien de ligne de commande sont dépassé.
Et c'est là où je sèche.
Une idée ???
Merci d'avance.
Pascal
Bonjour Pascal,
La fonctionnalité Mise en forme conditionnelle réagit en fonction du résultat renvoyé par une formule logique donc il est tout à fait possible de dénombrer les cellules répondant à ces conditions
Exemple simple avec dates (Juste Rouge et vert). Toutes les lignes dont l'échéance est dépassée et dont la cellule mentionnant la date du payement est vide sont en rouge, les autres en vert
Dans l'illustration en fond jaune la formule utilisée pour la cellule de gauche et suivantes si identique
Dans la formule, AUJOURDHUI() renvoie le 17/01/2019. Je précise pour les lecteurs du futur :P
Pièce jointe 442389
Bonjour à vous,
Salut Philippe :).
Sans flagornerie aucune, la formulation de Philippe est intéressante.
Personnellement, je l'utilise depuis quelques temps déjà.
Elle met en évidence le fait qu'une valeur booléenne multipliée par 1 donne 1 ou 0.
Plutôt que d'écrire
On peut formuler plus simplement.Citation:
=Si(A1= "toto"; 1; 0)
Si l'on élargit le sujet, les variables booléennes peuvent très bien se répondre en VBACitation:
=(A1="toto)*1
Code:Worksheets("wks1").Visible = (Worksheets("wks2").[A1] = 5)
Bonjour Philippe,
Merci pour ton retour d'info. Je connaissait déjà ce principe.
Mon tableau comporte déjà beaucoup d'information et je ne souhaite pas en rajouter.
Pièce jointe 442525
Mes conditions font références à une autre cellule moins un certains nombre de jour, par exemple de préparation. Ainsi la date dans la cellule, sous condition, me donne par rapport au feu, si je suis en retard ou pas.
Et tout ceci dans la même cellule.
Ensuite j'analyse le nombre de retard par secteur.
D'où l'intérêt pour moi de connaitre l'état de ma cellule, par rapport au feu. Ensuite je n'ai plus qu'à compter le nombre de feu rouge ou jaune, et ma statistique est faite. Actuellement je les comptes manuellement, mais je souhaite automatiser.
Et c'est là que je voulais le faire avec cette formule, mais ça ne marche pas.
A+Code:nbr_de_feu_jaune = Range("I2:I20").IconSets(xl3TrafficLights2).Item(2).Count
pASCAL
Bonjour Pascal,
Ce n'est pas le fait que cela ne marche pas mais tout simplement que ce n'est pas possible et tu as dû le constater directement car je suppose que tu as eu un message d'erreur (propriété ou méthode non géré par cet objet) renvoyé par l'éditeur.Citation:
Et c'est là que je voulais le faire avec cette formule, mais ça ne marche pas.
Code:nbr_de_feu_jaune = Range("I2:I20").IconSets(xl3TrafficLights2).Item(2).Count
Comme je l'ai écrit dans ma première intervention, je ne vois pas d'autres solutions (par rapport à mes connaissances actuelles) que de créer une formule en fonction des critères de la mise en forme conditionnelle.
