[RESOLU] ASTUCE en VBA à Rectifier

[DEMERS]

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.

 

[Dranreb]

Re : ASTUCE EN VBA à rectifier

Bonsoir.

Avec votre exemple ça donne les chiffres voulus en affectant :

couleur = CouleurCell.Columns(CouleurCell.Columns.Count).Interior.ColorIndex

Interior.ColorIndex vaut Null quand toutes le cellules du Range n'ont pas le même.

 

[DEMERS]

Re : ASTUCE EN VBA à rectifier

Bonsoir.

Avec votre exemple ça donne les chiffres voulus en affectant :

couleur = CouleurCell.Columns(CouleurCell.Columns.Count).Interior.ColorIndex

Interior.ColorIndex vaut Null quand toutes le cellules du Range n'ont pas le même.

BRAVO, c'est ce que je voulais le faire.
Un très grand merci pour vous.
je vous suis bien reconnaissant.
Amicalement.