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

[RESOLU] ASTUCE en VBA à Rectifier

  • Initiateur de la discussion Initiateur de la discussion DEMERS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

DEMERS

Guest
Bonjour/Bonsoir à toutes et à tous

Ci-joint un tableau Excel pour pointage de présence
Merci de bien vouloir m’aider dans l’astuce en VBA 😕 consistant en :

Si une combinaison de couleur se réunie sur une ligne du tableau conformément à l’une des formes données sur le fichier, le comptage se fait par 1 ou 2 ou 3:

Pour bien expliquer, et vous facilité la compréhension de l’astuce recherchée, veuillez noter que :

Sur une seule ligne, il ne peut se réunir qu’une seule et unique forme. ( 2 formes ensemble pas possible)

Pour combinaison.1 > soit la forme 1 ou 2 ou 3 ou 4 > le comptage est 1
Pour combinaison.2 > soit la forme 1 ou 2 ou 3 ou 4 > le comptage est 2
Pour combinaison.3 > soit la forme 1 ou 2 ou 3 ou 4 > le comptage est 3

Je vous remercie par avance.
 

Pièces jointes

Dernière modification par un modérateur:
Re : ASTUCE EN VBA à rectifier

Bonsoir.

Avec votre exemple ça donne les chiffres voulus en affectant :
VB:
couleur = CouleurCell.Columns(CouleurCell.Columns.Count).Interior.ColorIndex
Interior.ColorIndex vaut Null quand toutes le cellules du Range n'ont pas le même.
 
Dernière édition:
Re : ASTUCE EN VBA à rectifier


BRAVO, c'est ce que je voulais le faire.
Un très grand merci pour vous.
je vous suis bien reconnaissant.
Amicalement.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
21
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…