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é

Bonjour Alain Cugier et bienvenue ,
C'est marrant, je me souviens d'avoir déjà traiter un tableau très ressemblant à celui-ci ...
Vois si ça te convient ...
Bonne suite

 

[alain cugier]

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

merci JNP
en fait je souhaitais que le nombre de cellules non colorée se retrouve dans chaque cellule de la ligne 13 par exemple je vais essayer de recopier vos formules en tout cas géniale la rapidité de votre aide
merci bcp
pouvez vous m'expliquer un peu le sens de vos formules merci

 

[JNP]

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

Re ,
A mettre en A13 et que tu peux recopier dans toutes tes cellules

=CompteCouleur(A7:A12;$AG$4)

à condition de modifier ma fonction avec Trim

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

vu que tu as des cellules qui contiennent des espaces ...
Pour t'expliquer la fonction, ben, c'est assez simple, ça décrit toutes les cellules de la plage, ça vérifie si la cellule n'est pas vide (en supprimant les espaces maintenant ...) et que la couleur est identique à la cellule de référence, et à ce moment là, ça ajoute 1 au résultat ...
Pour aller plus loin dans les explications, après, il faut te mettre à VBA ...
Bonne suite
PS : le MP n'était pas nécessaire ...

 

[alain cugier]

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

rebonjour
merci encore mais je n'arrive pas à faire évoluer ma feuille
pouvez-vous m'aider merci
cordialement

 

[alain cugier]

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

Merci pour cette explication
j'ai effectué les modifs comme indiqué
mais qd je change la couleur d'une cellule
le calcul ne se refait pas automatiquement que faut il faire F9
cordialement

 

[JNP]

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

Re ,

mais qd je change la couleur d'une cellule
le calcul ne se refait pas automatiquement que faut il faire F9

Le changement de couleur n'est pas un évènement pour Excel, donc effectivement, il faudra recalculer la feuille ...
Eventuellement, à mettre dans le code de la feuille

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

Un changement de sélection recalculera la feuille ...
Bon courage

 

[alain cugier]

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

encore et toujours merci
mais comment recalculer la feuille ?
et comment ajouter la nouvelle partie de code transmise dans le même code que précédemment ou ailleurs
désolé d'apparaitre aussi peu efficace

 

[JNP]

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

Re ,
Dans l'éditeur VBA (Alt+F11), tu ouvres l'explorateur de projet (Ctrl+r), tu ouvres les "plus" comme dans l'explorateur Windows, et tu doubles-cliques sur la feuille concernée. Dans la fenêtre texte qui apparait, tu colles le code ...
Bon courage

 

[alain cugier]

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

merci génial ca marche un bon bouquin pour s'initier vs conseilleriez quoi ?
pour poursuivre le travail
le calendrier 2012 a été réalisé manuellement
y aurait-il un moyen de refaire un calendrier 2013 automatiquement ??
ds tous les cas merci de votre aide vraiment très efficace !

 

[alain cugier]

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

excusez moi de revenir vers vs
le recalcule ne semble se faire systématiquement
je vs joins le fichier un peu transformé
merci de votre aide

 

[JNP]

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

Re ,
Alors, dans l'ordre ...
Au niveau des bouquins, je sais que j'ai beaucoup aimé la collection "Pour les nuls", ludique et efficace en même temps ...
Oui, techniquement, c'est possible, à partir de formules par exemple, mais... le temps à passer pour préparer un calendrier perpétuel va-t'il être rentable par rapport au temps passé une fois par an pour le préparer en manuel, je ne pense pas ... Le mieux est parfois l'ennemi du bien ...
Pour le recalcul, il faut juste un petit ajout dans la fonction : Application.Volatile

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

qui forcera le calcul ...
Bonne suite

 

[david84]

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

Bonjour, Jean-Noël,
je n'ai pas suivi le fil mais si tu veux tenter d'automatiser un calendrier, tu peux regarder cette page du site de JB.
A+

 

[JNP]

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

Re ,
Merci David
Effectivement, il y a directement la formule pour notre ami, mais vu que c'est du matriciel, ça va pas forcément être du lèger ...
Mais il peut toujours tester ...
Bonne soirée

 

[david84]

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

Re Jean-Noël,

Effectivement, il y a directement la formule pour notre ami, mais vu que c'est du matriciel, ça va pas forcément être du lèger ...

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