calculer le nombre de cellule d'une meme couleur

JCGL

XLDnaute Barbatruc

• 16 Décembre 2007

• #2

Re : calculer le nombre de cellule d'une meme couleur

Bonjour à tous,
Bienvenue à nimbus23, 🙂

Une fonction de notre ami Ti, que j'ai un peu modifié, sur la forme pas sur le fond (il faut toujours repasser derrière ces codes arf....c'est pour rire Ti)

Au plaisir de te lire

 

Dernière édition: 10 Avril 2008

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 16 Décembre 2007

• #3

Re : calculer le nombre de cellule d'une meme couleur

Bonsoir,

voici un exemple:

Code:

Sub Macro1()
nb = 0
For Each cellule In Range("a1:b10")
If cellule.Interior.ColorIndex = 6 Then nb = nb + 1
Next
MsgBox "il y a " & nb & " cellules de couleur jaune"
End Sub

Edit: Oupsss, bonsoir JCGL 🙂

 

Vote positif 0 Vote négatif

N

nimbus23

Guest

• 18 Décembre 2007

• #4

Re : calculer le nombre de cellule d'une meme couleur

Bonsoir à tous
merci pour le coup de main mais ce n'est pas tout à fait le réponse que j'attendais.
je joint un petit fichier excel pour voir ce que je cherche

merci et à bientot

 

Pièces jointes

• exemple.xls

  16 KB · Affichages: 401
• exemple.xls

  16 KB · Affichages: 441
• exemple.xls

  16 KB · Affichages: 442

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Décembre 2007

• #5

Re : calculer le nombre de cellule d'une meme couleur

Bonjour à tous,

Un autre essai avec la même fonction...


A+

Edition : Salut Scoobi ;-)

 

Dernière édition: 10 Avril 2008

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 18 Décembre 2007

• #6

Re : calculer le nombre de cellule d'une meme couleur

Bonjour,
Pour ton exemple

 

Pièces jointes

• Compte couleurs.xls

  26.5 KB · Affichages: 732
• Compte couleurs.xls

  26.5 KB · Affichages: 806
• Compte couleurs.xls

  26.5 KB · Affichages: 810

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 18 Décembre 2007

• #7

Re : calculer le nombre de cellule d'une meme couleur

Bonsoir nimbus23
ajoute cette macro
Sub mamacro()
For j = 2 To 4
nbj = 0 'nb jaune 6
nbv = 0 'nb vert 43
nbr = 0 'nb rouge 3
nbb = 0 'nb bleu 5
For i = 1 To 10
If Cells(j, i).Interior.ColorIndex = 6 Then nbj = nbj + 1
If Cells(j, i).Interior.ColorIndex = 43 Then nbv = nbv + 1
If Cells(j, i).Interior.ColorIndex = 3 Then nbr = nbr + 1
If Cells(j, i).Interior.ColorIndex = 5 Then nbb = nbb + 1
Next i
Cells(j, 11).Value = nbj
Cells(j, 12).Value = nbr
Cells(j, 13).Value = nbb
Cells(j, 14).Value = nbv
Next j
End Sub
ligne 5 tu ajoutes dans les colonnes k,l,m,n =SOMME(K2:K4)
Quand tu la lance ça compte tes couleurs...
A+ François

 

Dernière édition: 18 Décembre 2007

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 18 Décembre 2007

• #8

Re : calculer le nombre de cellule d'une meme couleur

Bonjour à tous

Voici une serie de fonction, qui permet de nombre, sommer.... en fonction des fontes des cellule, et des couleurs de fond

Ces fontion fonctionnent si les mise en formes sont faites manuellement ou par macro et pas par MFC

 

Pièces jointes

• wil_fonction.zip

  20.2 KB · Affichages: 760
• wil_fonction.zip

  20.2 KB · Affichages: 913
• wil_fonction.zip

  20.2 KB · Affichages: 918

Vote positif 0 Vote négatif

N

nimbus23

Guest

• 19 Décembre 2007

• #9

Re : calculer le nombre de cellule d'une meme couleur

Merci à tous
c'est super sympa et je vais pouvoir continuer mon tableau
à bientôt en cas de besoin
Nimbus23

 

Vote positif 0 Vote négatif