Compter les cellules coloriées ?

Jacques87

XLDnaute Accro

• 27 Février 2006

• #2

Bonjour Mathieu

Une petite macro pourrait faire l'affaire

Dim cell as Range
Dim I as Integer, N as Integer
N = 0
For Each cell in Range('A1:C8')
If Cell.Interior.ColorIndex = 3
Then N = N + 1
End If
Next
MsgBox(N)

tu donneras le nombre de cellules rouges dans la plage (A1:C8)

Bon courage

 

Vote positif 0 Vote négatif

M

matthieu

Guest

• 27 Février 2006

• #3

J'ai tapé ce que tu m'as dit sous VB en rajoutant la 1ère et dernière ligne (couleur)
Mais il trouve une erreur à la ligne en rouge



Sub couleur()
Dim cell As Range
Dim I As Integer, N As Integer
N = 0
For Each cell In Range('A1:C8')
If Cell.Interior.ColorIndex = 3
Then N = N + 1
End If
Next
MsgBox (N)
End Sub

 

Vote positif 0 Vote négatif

M

Matthieu

Guest

• 27 Février 2006

• #4

HELP !!!
Je n'ai pas l'habitude de cérer des macros...
Quelqu'un peut m'aider ?

D'avance merci

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 27 Février 2006

• #5

Matthieu toutes mes excuses, une frappe sur la touche entrée de trop

voici le code

Dim cell As Range
Dim I As Integer, N As Integer
N = 0
For Each cell In Range('A1:C8')
If cell.Interior.ColorIndex = 3 Then N = N + 1

Next
MsgBox (N)

 

Vote positif 0 Vote négatif

M

Matthieu

Guest

• 27 Février 2006

• #6

Super ça marche...
Par contre :
-comment on trouve le nombre se rapportant à une couleur?
- comment peut on renvoyer le résultat dabns une cellule?

Encore merci
A+

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 27 Février 2006

• #7

Matthieu

pour ta première question, voici un fichier qui devrait t'aider

pour la seconde, il te suffit d'ajouter au bout de cette procédure (juste avant end Sub)

Range('D1').Value = N
à la place de MsgBox(N)

et le nombre s'inscrira en D1

Bon courage [file name=Couleurs_20060227170857.zip size=14426]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Couleurs_20060227170857.zip[/file]

 

Vote positif 0 Vote négatif

M

Matthieu

Guest

• 27 Février 2006

• #8

Super ça marche du feu de dieu....
C'était pour la femme d'un copain!

Sinon tu bosses dans un domaine où tu utiises Excel à fond ou c'est une passion?

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 27 Février 2006

• #9

Mathieu

Alors si c'était pour la femme d'un copain, tu me feras un grand plaisir en lui demandant de me remercier en te faisant un énorme bisou que tu me transmettras par mail

Quant à la deuxième question, c'est une passion comme pour grand nombre d'entre nous

Et nous restons à ta disposition

Bonne soirée

 

Vote positif 0 Vote négatif