Re : Comptabilisation en fonction de code couleur
Rebonjour
Cf. en pièce jointe.
La macro va rechercher automatiquement le n° de la dernière colonne à droite possédant une indication dans la ligne 2 (=dernièrecolonne) (AI d'après ce que tu dis, mais cela fonctionne aussi dans d'autres cas), puis, colonne après colonne, dans une boucle (For col = 1 To dernièrecolonne - 4 Step 2), étudie la couleur de la police de toutes les cellules, ligne après ligne, dans une autre boucle (For lig = 3 To Range(Cells(3, col).Address).End(xlDown).Row).
Si tu veux voir le calcul se faire petit à petit, il faut mettre une apostrophe devant
Application.ScreenUpdating = False
dans la macro, et travailler en pas à pas détaillé.
@ plus
P.S : Normalement, pour bien faire, il faudrait changer deux ou trois valeurs dans la macro, puisque, par ex, la première colonne de noms n'est pas la colonne A mais la colonne C dans ton fichier réel. Essaye d'adapter la macro à ton cas réel. Si tu n'y arrives pas, je fouillerai davantage dans le code plus tard. Normalement, si tu n'utilises pas ces couleurs de police dans d'autres cellules que sur les noms, cela devrait fonctionner tel que.