Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Bon j'ai un tableau excel dont les cellules sont en deux différents couleurs de police
je veux bien calculer la somme des cellules qui on la police en rouge
C'est un sujet qui a été maintes fois traité sur XLD.
Le fichier joint utilise cette fonction VBA :
Code:
Function NbCouleurPolice&(r As Range, CodeCouleur&)
Application.Volatile
For Each r In Intersect(r, Application.Caller.Parent.UsedRange)
If r.Font.ColorIndex = CodeCouleur Then NbCouleurPolice = NbCouleurPolice + 1
'If CStr(r) <> "" And r.Font.ColorIndex = CodeCouleur Then NbCouleurPolice = NbCouleurPolice + 1
Next
End Function
Toutes les cellules sont comptabilisées, même les cellules vides.
L'instruction en commentaire ne compte que les cellules non vides.
Si l'on modifie une couleur il faut appuyer sur F9 pour que la fonction soit recalculée.
Bonjour Job75,
Oui voila j'utilise une Mise en forme conditionnelle et le source VBA ne marche pas correctement lorsque je change les couleurs.
on peut travailler avec une autre fonction ?
si c'est possible je compte sur vous de me l'envoyer 🙂
Pour nous faciliter le travail, il faut nous fournir le fichier avec les MFC utilisées pour colorer les cellules que tu veux sommer (ou du moins un extrait de ton fichier avec des données anonymisées), STP. Pour le moment, sur ton fichier, je ne vois ni MFC, ni cellules colorées...
- 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.