compte interior.colorindex

[meldja]

Bonjour,

J'essaie de créer un petit bout de code qui devrait me compter le nombre de cellules rouges (interior.colorindex = 3).
Je ne vois pas comment procéder.
Si quelqu'un a une idée, merci d'avance
Bonne journée

 

[Robert]

Re : compte interior.colorindex

Bonjour Meldja, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim n As Integer 'déclare la variable n (Nombre)
 
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1" (à adapter à ton cas)
    Set pl = .Range("A1:A" & .Range("A65536").End(xlUp).Row) 'définit la plage pl (à adapter)
End With 'fin de la prise en compte de l'onglet "Feuil1"
 
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
    'si la cellule est colorée de rouge, incrémente le nombre n
    If cel.Interior.ColorIndex = 3 Then n = n + 1
Next cel 'prochaine cellule de la boucle
MsgBox n 'message affichant le nombre n
End Sub

 

[Staple1600]

Re : compte interior.colorindex

Bonjour à tous

meldja

Je ne vois pas comment procéder.

Tu n'es pourtant pas un perdreau de l'année
(inscrit sur XLD depuis 2007)
Tu dois donc connaitre le moteur de recherche du forum
mots-clés: somme couleur rouge

Tu verras que ce sujet a été traité maintes et maintes fois...

Il y a même un post sur ce sujet dans les archives du forum (datant de 2004 ! )
https://www.excel-downloads.com/threads/compter-les-cellules-de-couleur-rouge-dans-un-tableau.18898/

 

[meldja]

Re : compte interior.colorindex

Re,

Merci, pour vos réponse.
Staple1600, désolé, j'avais pourtant fait une recherche sur google mais, apparemment, pas avec les bons mots clés.
J'avoue que j'ai choisi la solution de facilité en postant sur ce forum, je serai moins fainéant la prochaine fois.

En tout cas merci encore pour vos réponses et bonne journée.

 

[Staple1600]

Re : compte interior.colorindex

Re


Avant d'utiliser Google, tu peux utiliser le moteur interne du forum.

Ne sois pas désolé. J'ai fini par m'habituer

C'est tellement fréquent de nos jours (sauf qu'il s'agit d'habitude de nouveaux membres du forum, les membres plus anciens ont lu la charte et utilisent le moteur de recherche)