Compter les cellules d'une couleur dans une plage (cellule vide)
21 réponses
Excel Compter Cellule
Bonjours,
Il existe déja des sujets analogues mais cela ne fonctionne pas alors...
Je souhaite compter les cellules d'une couleur dont avec une référence (C36)
à partir d'une plage de données (C4;BF34)
et inscrire dans C36 le nombre de cellules ainsi trouvées..
et si cela pouvait être automatique ce serait le bonheur, mais la
En tout cas merci de vos réponse futurs et de votre disponibilité.
Ok, il est vrai qu si l'on change la couleur du texte, le recalcul ne se fait pas automatiquement !! Il y a t il une solution (Si je met des fonctions en ligne, c'est aussi pour les améliorer !)
Ok, il est vrai qu si l'on change la couleur du texte, le recalcul ne
se fait pas automatiquement !!
Il y a t il une solution
(Si je met des fonctions en ligne, c'est aussi pour les améliorer !)
Ok, il est vrai qu si l'on change la couleur du texte, le recalcul ne se fait pas automatiquement !! Il y a t il une solution (Si je met des fonctions en ligne, c'est aussi pour les améliorer !)
Philippe Noss
Donc, etant donné qu'ine fonction SommeSiCouleur peut quand meme être utile(On ne peut pas toujours se servir de MEFC) , voila ce que je propose
1. Ajouter Application.volatile dans la fonction 2. Faire F9 pour recalculer 3. Rajouter eventuellement une ou plusieurs procédures evenementielles Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub
Private Sub Worksheet_Activate() Calculate End Sub
Private Sub Worksheet_Deactivate() Calculate End Sub
ou encore Private Sub Workbook_BeforePrint(Cancel As Boolean) Calculate End Sub
etc 4. Ajouter eventuellement un Bouton "Recalculer la somme des cellules colorées" lie a une macro du type Sub ReCalcul Calculate end sub
5. A noter que dans exoutils, j'ai egalement rajouter un texte lié à la fonction et qui s'affiche dans la boite de dialoque d'insertion d'une fonction : Application.MacroOptions "SommeSiCouleur", "Cette fonction compte le nombre de cellules d'un code couleur" & _ "(Fond_texte :1=couleur du fond, 2=couleur du texte)" & _ "ATTENTION, en cas de changement de couleur, il faut recalculer la feuille par F9 (Voir Les fonctions personnalisées Exoutils.xls" (Ce sera mis en ligne ce soir sur http://nossphil.perso.cegetel.net/exoutils.html )
A défaut de mieux !!!! PN
Function SommeSiCouleur(ByVal Maplage As Object, CodeCouleur As Integer, Fond_texte) As Double Appliaction.volatile SommeSiCouleur = 0 For Each xc In Maplage Select Case Fond_texte Case 1 If xc.Interior.ColorIndex = CodeCouleur Then SommeSiCouleur = SommeSiCouleur + xc.Value Case 2 If xc.Font.ColorIndex = CodeCouleur Then SommeSiCouleur = SommeSiCouleur + xc.Value End Select Next xc
End Function
Donc, etant donné qu'ine fonction SommeSiCouleur peut quand meme être
utile(On ne peut pas toujours se servir de MEFC) , voila ce que je
propose
1. Ajouter Application.volatile dans la fonction
2. Faire F9 pour recalculer
3. Rajouter eventuellement une ou plusieurs procédures evenementielles
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Private Sub Worksheet_Activate()
Calculate
End Sub
Private Sub Worksheet_Deactivate()
Calculate
End Sub
ou encore
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Calculate
End Sub
etc
4. Ajouter eventuellement un Bouton "Recalculer la somme des cellules
colorées" lie a une macro du type
Sub ReCalcul
Calculate
end sub
5. A noter que dans exoutils, j'ai egalement rajouter un texte lié à
la fonction et qui s'affiche dans la boite de dialoque d'insertion
d'une fonction :
Application.MacroOptions "SommeSiCouleur", "Cette fonction compte le
nombre de cellules d'un code couleur" & _
"(Fond_texte :1=couleur du fond, 2=couleur du texte)" & _
"ATTENTION, en cas de changement de couleur, il faut recalculer la
feuille par F9 (Voir Les fonctions personnalisées Exoutils.xls"
(Ce sera mis en ligne ce soir sur
http://nossphil.perso.cegetel.net/exoutils.html )
A défaut de mieux !!!!
PN
Function SommeSiCouleur(ByVal Maplage As Object, CodeCouleur As
Integer, Fond_texte) As Double
Appliaction.volatile
SommeSiCouleur = 0
For Each xc In Maplage
Select Case Fond_texte
Case 1
If xc.Interior.ColorIndex = CodeCouleur Then SommeSiCouleur =
SommeSiCouleur + xc.Value
Case 2
If xc.Font.ColorIndex = CodeCouleur Then SommeSiCouleur =
SommeSiCouleur + xc.Value
End Select
Next xc
Donc, etant donné qu'ine fonction SommeSiCouleur peut quand meme être utile(On ne peut pas toujours se servir de MEFC) , voila ce que je propose
1. Ajouter Application.volatile dans la fonction 2. Faire F9 pour recalculer 3. Rajouter eventuellement une ou plusieurs procédures evenementielles Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub
Private Sub Worksheet_Activate() Calculate End Sub
Private Sub Worksheet_Deactivate() Calculate End Sub
ou encore Private Sub Workbook_BeforePrint(Cancel As Boolean) Calculate End Sub
etc 4. Ajouter eventuellement un Bouton "Recalculer la somme des cellules colorées" lie a une macro du type Sub ReCalcul Calculate end sub
5. A noter que dans exoutils, j'ai egalement rajouter un texte lié à la fonction et qui s'affiche dans la boite de dialoque d'insertion d'une fonction : Application.MacroOptions "SommeSiCouleur", "Cette fonction compte le nombre de cellules d'un code couleur" & _ "(Fond_texte :1=couleur du fond, 2=couleur du texte)" & _ "ATTENTION, en cas de changement de couleur, il faut recalculer la feuille par F9 (Voir Les fonctions personnalisées Exoutils.xls" (Ce sera mis en ligne ce soir sur http://nossphil.perso.cegetel.net/exoutils.html )
A défaut de mieux !!!! PN
Function SommeSiCouleur(ByVal Maplage As Object, CodeCouleur As Integer, Fond_texte) As Double Appliaction.volatile SommeSiCouleur = 0 For Each xc In Maplage Select Case Fond_texte Case 1 If xc.Interior.ColorIndex = CodeCouleur Then SommeSiCouleur = SommeSiCouleur + xc.Value Case 2 If xc.Font.ColorIndex = CodeCouleur Then SommeSiCouleur = SommeSiCouleur + xc.Value End Select Next xc
End Function
ClémentMarcotte
(Si je met des fonctions en ligne, c'est aussi pour les améliorer !)
Puis les vendre après...
(Pas sur que ce soit bien fair-play)
(Si je met des fonctions en ligne, c'est aussi pour les améliorer !)
(Si je met des fonctions en ligne, c'est aussi pour les améliorer !)
Puis les vendre après...
(Pas sur que ce soit bien fair-play)
Philippe Noss
Exoutils2006 est gratuit et le restera, Exestock est gratuit, MP3 Excel est également gratuit, QCM aussi et je vais bientot mettre une mini facutation gratuite sur mon site. Comme le gratuit ne paie pas, j'espère que cela me rameneras quelques clients pour des developpements spécifiques... Je ne vends qu''Exefac2005 (Et encore pas cher !) Il m'arrive de faire du spécifique pour des clients Je ne pense pas etre le seul sur ce forum dans ce cas !
Je pense avoir toujours respecté une certaine déontologie. Je vais donc continuer à intervenir humblement sur le forum, en espérant ne plus avoir de cinglantes remarques, mais des retours constructifs ! Bonne soirée, maintenant je vais regarder ma match de foot à la TV... ALLEZ L'OL !!
Exoutils2006 est gratuit et le restera, Exestock est gratuit, MP3
Excel est également gratuit, QCM aussi et je vais bientot mettre une
mini facutation gratuite sur mon site.
Comme le gratuit ne paie pas, j'espère que cela me rameneras quelques
clients pour des developpements spécifiques...
Je ne vends qu''Exefac2005 (Et encore pas cher !)
Il m'arrive de faire du spécifique pour des clients
Je ne pense pas etre le seul sur ce forum dans ce cas !
Je pense avoir toujours respecté une certaine déontologie.
Je vais donc continuer à intervenir humblement sur le forum, en
espérant ne plus avoir de cinglantes remarques, mais des retours
constructifs !
Bonne soirée, maintenant je vais regarder ma match de foot à la TV...
ALLEZ L'OL !!
Exoutils2006 est gratuit et le restera, Exestock est gratuit, MP3 Excel est également gratuit, QCM aussi et je vais bientot mettre une mini facutation gratuite sur mon site. Comme le gratuit ne paie pas, j'espère que cela me rameneras quelques clients pour des developpements spécifiques... Je ne vends qu''Exefac2005 (Et encore pas cher !) Il m'arrive de faire du spécifique pour des clients Je ne pense pas etre le seul sur ce forum dans ce cas !
Je pense avoir toujours respecté une certaine déontologie. Je vais donc continuer à intervenir humblement sur le forum, en espérant ne plus avoir de cinglantes remarques, mais des retours constructifs ! Bonne soirée, maintenant je vais regarder ma match de foot à la TV... ALLEZ L'OL !!
ClémentMarcotte
Je ne pense pas etre le seul sur ce forum dans ce cas !
Les autres ne font pas de spam
Je ne pense pas etre le seul sur ce forum dans ce cas !
Je ne pense pas etre le seul sur ce forum dans ce cas !
Les autres ne font pas de spam
Benoît MATHIEU
Bon, Est ce que l'un de vous à le code complet de ce que pourrais employer, car maintenant, je fais recalculer document et la ça va à peu prés (pas trop souvent de valeurs incohérente genre 4566 au lieu de 5) Mais bon Est ce que quelqu'un à quelque chose de fiable à ce sujet Merci d'avance -- Benoît MATHIEU
Je ne pense pas etre le seul sur ce forum dans ce cas !
Les autres ne font pas de spam
Bon,
Est ce que l'un de vous à le code complet de ce que pourrais employer, car
maintenant, je fais recalculer document et la ça va à peu prés (pas trop
souvent de valeurs incohérente genre 4566 au lieu de 5)
Mais bon
Est ce que quelqu'un à quelque chose de fiable à ce sujet
Merci d'avance
--
Benoît MATHIEU
Je ne pense pas etre le seul sur ce forum dans ce cas !
Bon, Est ce que l'un de vous à le code complet de ce que pourrais employer, car maintenant, je fais recalculer document et la ça va à peu prés (pas trop souvent de valeurs incohérente genre 4566 au lieu de 5) Mais bon Est ce que quelqu'un à quelque chose de fiable à ce sujet Merci d'avance -- Benoît MATHIEU
Je ne pense pas etre le seul sur ce forum dans ce cas !
SPAM OU pas SPAM??? J'en sais rien mais une réponse me serai plus utile et plus le régulateur de ce forum peut faire la part des choses .. alors aidez moi SVP Merci -- Benoît MATHIEU
Oui tu en fais.
"Philippe Noss" a écrit dans le message de news:
Je ne fais pas de spam !!!!
SPAM OU pas SPAM???
J'en sais rien
mais une réponse me serai plus utile et plus le régulateur de ce forum peut
faire la part des choses ..
alors aidez moi SVP
Merci
--
Benoît MATHIEU
Oui tu en fais.
"Philippe Noss" <exefac@exefac.com> a écrit dans le message de
news:1126711855.131466.78760@g49g2000cwa.googlegroups.com...
SPAM OU pas SPAM??? J'en sais rien mais une réponse me serai plus utile et plus le régulateur de ce forum peut faire la part des choses .. alors aidez moi SVP Merci -- Benoît MATHIEU
Oui tu en fais.
"Philippe Noss" a écrit dans le message de news:
Je ne fais pas de spam !!!!
ClémentMarcotte
Commence donc par répondre à la question qu'AV t'a posée. Après cela, tu pourras revenir te plaindre.
"Benoît MATHIEU" a écrit dans le message de news:
SPAM OU pas SPAM??? J'en sais rien mais une réponse me serai plus utile et plus le régulateur de ce forum peut
faire la part des choses .. alors aidez moi SVP Merci -- Benoît MATHIEU
Oui tu en fais.
"Philippe Noss" a écrit dans le message de news:
Je ne fais pas de spam !!!!
Commence donc par répondre à la question qu'AV t'a posée. Après cela, tu
pourras revenir te plaindre.
"Benoît MATHIEU" <BenotMATHIEU@discussions.microsoft.com> a écrit dans le
message de news:CFB3AE8B-48EA-4BD2-954E-6F4C33CA8AA5@microsoft.com...
SPAM OU pas SPAM???
J'en sais rien
mais une réponse me serai plus utile et plus le régulateur de ce forum
peut
faire la part des choses ..
alors aidez moi SVP
Merci
--
Benoît MATHIEU
Oui tu en fais.
"Philippe Noss" <exefac@exefac.com> a écrit dans le message de
news:1126711855.131466.78760@g49g2000cwa.googlegroups.com...
