compter le nombre de cellules dont le fond n'est pas coloré

[alain cugier]

bonjour je souhaiterai pour compléter automatiquement un calendrier de fonctionnement
compter le nombre de cellules qui ne sont pas colorées et aussi sur une cellule différentes compter le nbre de cellules colorées en rouge
sur une autre cellule compter celles qui sont en vert
merci d'avance de votre aide

 

[JNP]

Re : compter le nombre de cellules dont le fond n'est pas coloré

Re 🙂,

en partant du fichier de JB, ci-joint 2 possibilités en non matriciel :
- une avec les jours mobiles
- une avec les jours fixes.

Clap clap clap 🙂 !
A + 😎

 

[alain cugier]

Re : compter le nombre de cellules dont le fond n'est pas coloré

Bonjour
j'ai effectué les modifications proposées
mais la mise à jour du nombre de case colorées ne fonctionne pas toujours
au début oui puis non
quelle erreur ai je commis ?
merci de votre aide ci joint le fichier avec vos propositions

 

[JNP]

Re : compter le nombre de cellules dont le fond n'est pas coloré

Re 🙂,
Il ne doit y avoir dans le code de feuille que

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

et dans le Module1, que

Function CompteCouleur(Plage As Range, Réf As Range) As Integer
Dim Cellule As Range
Application.Volatile
For Each Cellule In Plage
If Trim(Cellule) <> "" And Cellule.Interior.Color = Réf.Interior.Color Then CompteCouleur = CompteCouleur + 1
Next Cellule
End Function

Tu avais mis l'Application.Volatile dans la fonction qui était dans la feuille, ce qui ne peux pas marcher, et laissé un Worksheet_Selection_Change dans le module1, ce qui non plus ne peux pas marcher 🙄...
T'inquiètes-pas, ça va venir 😛...
Bonne suite 😎

 

[alain cugier]

Re : compter le nombre de cellules dont le fond n'est pas coloré

Encore merci
Bonne fin d'année 2011 et bonne année 2012
cordialement A Cugier

 

[alain cugier]

Re : compter le nombre de cellules dont le fond n'est pas coloré

Bonjour et bonne année 2012 à tous je reviens vers vous pour faire évoluer encore ma feuille de calcul.
le décompte des cases par couleur est désormais opérationnel ! je souhaiterais recopier automatiquement le calendrier d'un mois sur une feuille de calcul tout en respectant le code des couleurs mis en place ?
comme dans le fichier joint ( mais la recopie avait été réalisé manuellement , le plus fastidieux étant de choisir le format des couleurs en fonction des jours )
Est ce possible
merci d'avance pour vos conseils et votre aide cordialement
A Cugier