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 !
bonjour j'ai fait un planning et je n'arrive pas a mettre les bonnes formules pour compter les couleurs dans les cases
ci joint une copi de mon fichier avec des bulle explicative de ce que je desir
merci
Option Explicit
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long 'Ti sur VeriTi
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
Bonjour,
en utilisant une fonction personnalisée de JB (Boisgontier)
regarde le fichier joint, le calcul se fait dès que tu changes de sélection sur ta feuille ou à l'appui sur F9 (Calculer)
Edit : Salut Jc🙂
presque la même fonction, la différence, la couleur comptabilisée est la couleur de la cellule appelante pour moi, le chiffre de la couleur pour toi....
Bonne soirée
Même en rajoutant un Application.Volatile le recalcul ne se fait pas avec le code l'ami Ti (il est vrai que cette fonction n'était pas pour un recalcul au départ)
Après un rajout de _Change sur la feuille et Calculate cela joue mieux
Sur Excel 2007, où le nombre de couleurs est 255x255x255, on peut utiliser
Color au lieu de ColorIndex.
Code:
Function CompteCouleurFond2(champ As Range)
Application.Volatile
couleurFond = Range(Application.Caller.Address).Interior.Color
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.Color = couleurFond Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function
- 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