Comment puis je faire un formule qui compte les cellules en coule.

Philippe.R

23/12/2004 à 17:56

Bonsoir Sébastien,
(Ici les formules de politesse ne sont pas bannies, bien au contraire)
Un lien qui devrait répondre à tes attentes :

http://www.excelabo.net/xl/formats.php#additionrouge

Un autre figure dans ma signature, qui devrait te donner l'occasion de suivre le forum plus
confortablement.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"sebastien" a écrit dans le message de news:

sebastien

24/12/2004 à 09:21

Merci pour l'adresse de ce site mais j'ai quelques petits souci pour faire
fonctionner la macro suivante:
Comment faire l'addition des valeurs des cellules qui sont sur fond rouge ?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"

Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1

Next
SomCool = cvSomme
End Function

Pour sommer le contenu des cellules de la plage B1:B10 dont la couleur de
fond est le rouge :

=SomCool(B1:B10;"rouge")

pouvez vous m'aider?
Merci d'avance

Ps: les remerciements on ete oublies mais ce n'etaient pas volontaire

sebastien

24/12/2004 à 09:23

Merci pour l'adresse de ce site mais j'ai quelques petits souci pour faire
fonctionner la macro suivante:
Comment faire l'addition des valeurs des cellules qui sont sur fond rouge ?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"

Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1

Next
SomCool = cvSomme
End Function

Pour sommer le contenu des cellules de la plage B1:B10 dont la couleur de
fond est le rouge :

=SomCool(B1:B10;"rouge")

pouvez vous m'aider?
Merci d'avance

Ps: les remerciements on ete oublies mais ce n'etaient pas volontaire

sebastien

24/12/2004 à 09:27

Merci pour l'adresse de ce site mais j'ai quelques petits souci pour faire
fonctionner la macro suivante:
Comment faire l'addition des valeurs des cellules qui sont sur fond rouge ?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"

Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1

Next
SomCool = cvSomme
End Function

Pour sommer le contenu des cellules de la plage B1:B10 dont la couleur de
fond est le rouge :

=SomCool(B1:B10;"rouge")

pouvez vous m'aider?
Merci d'avance

Ps: les remerciements on ete oublies mais ce n'etaient pas volontaire

Merci pour l'adresse de ce site mais j'ai quelques petits souci pour faire
fonctionner la macro suivante:
Comment faire l'addition des valeurs des cellules qui sont sur fond rouge ?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"

Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1

Next
SomCool = cvSomme
End Function

Pour sommer le contenu des cellules de la plage B1:B10 dont la couleur de
fond est le rouge :

=SomCool(B1:B10;"rouge")

pouvez vous m'aider?
Merci d'avance

Ps: les remerciements on ete oublies mais ce n'etaient pas volontaire

Vous avez filtré cet utilisateur ! Consultez son message

Merci pour l'adresse de ce site mais j'ai quelques petits souci pour faire
fonctionner la macro suivante:
Comment faire l'addition des valeurs des cellules qui sont sur fond rouge ?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"

Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = _
cvSomme + cell.value
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1

Next
SomCool = cvSomme
End Function

Pour sommer le contenu des cellules de la plage B1:B10 dont la couleur de
fond est le rouge :

=SomCool(B1:B10;"rouge")

pouvez vous m'aider?
Merci d'avance

Ps: les remerciements on ete oublies mais ce n'etaient pas volontaire

AV

24/12/2004 à 09:30

Une fonction perso pour décompter/sommer des cellules "en couleurs" n'est pas
une bonne idée dans la mesure ou le changement de couleur (formatage) ne mettra
pas à jour le résultat !

AV

sebastien

24/12/2004 à 09:47

c'est pourquoi j'ai besoin d'une macro qui mette a jour cette somme des que
je change la couleur d'un cellule

Philippe.R

24/12/2004 à 09:54

Bonjour Sébastien,
Dans l'éditeur VB, que tu ouvres avec Alt+F11, tu insères dans le projet VBA de ton classeur un module
ordinaire dans lequel tu copies ceci :

'===============début de copie============== Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur _
Then cvSomme = cvSomme + 1 'cell.Value
'NB : si tu veux dénombrer seulement les cellules
' d'une couleur donnée,remplace
' cvSomme= cvSomme+ cell.value par
' cvSomme=cvSomme+1 (ce qui est fait ici)
Next
SomCool = cvSomme
End Function
'==============fin de copie===============
Tu te places dans ta feuille là où tu le souhaites dans ta feuille et tu saisis :

=somcool(7:7;"rouge") pour compter les cellules rouges de la ligne 7 par exemple.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"sebastien" a écrit dans le message de news:

Bonjour Sébastien,
Dans l'éditeur VB, que tu ouvres avec Alt+F11, tu insères dans le projet VBA de ton classeur un module
ordinaire dans lequel tu copies ceci :

'===============début de copie============== Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur _
Then cvSomme = cvSomme + 1 'cell.Value
'NB : si tu veux dénombrer seulement les cellules
' d'une couleur donnée,remplace
' cvSomme= cvSomme+ cell.value par
' cvSomme=cvSomme+1 (ce qui est fait ici)
Next
SomCool = cvSomme
End Function
'==============fin de copie===============
Tu te places dans ta feuille là où tu le souhaites dans ta feuille et tu saisis :

=somcool(7:7;"rouge") pour compter les cellules rouges de la ligne 7 par exemple.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"sebastien" <sebastien@discussions.microsoft.com> a écrit dans le message de news:
26D27027-050F-4E48-BBC5-E255F1A4A6BC@microsoft.com...

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour Sébastien,
Dans l'éditeur VB, que tu ouvres avec Alt+F11, tu insères dans le projet VBA de ton classeur un module
ordinaire dans lequel tu copies ceci :

'===============début de copie============== Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 50
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur _
Then cvSomme = cvSomme + 1 'cell.Value
'NB : si tu veux dénombrer seulement les cellules
' d'une couleur donnée,remplace
' cvSomme= cvSomme+ cell.value par
' cvSomme=cvSomme+1 (ce qui est fait ici)
Next
SomCool = cvSomme
End Function
'==============fin de copie===============
Tu te places dans ta feuille là où tu le souhaites dans ta feuille et tu saisis :

=somcool(7:7;"rouge") pour compter les cellules rouges de la ligne 7 par exemple.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"sebastien" a écrit dans le message de news:

AV

24/12/2004 à 10:34

"Function SomCool" c'est pas une macro mais une fonction perso !
Si tu veux le faire par macro, il faudra exécuter la macro manuellement chaque
fois que tu changeras le format des cellules concernées
donc.... bis repetita....voir la MEFC

AV

Comment puis je faire un formule qui compte les cellules en coule.

8 réponses

Veuillez sélectionner un problème