répétition d'une couleur de cellule dans une colo

[la meule]

Bonjour à toutes et à tous.
Dans une colonne,j'ai un certain nombre de cellules sur fond rouge.Comment faire pour que excel me dise le nombre de cellules rouges dans la colonne?Merci

 

[Rénato]

Bonjour La meule,

Et voici une t'ite macro qui devrait faire l'affaire :

Sub NombredeCellRouge()
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Range('B:B')
If Cellule.Interior.ColorIndex = 3 Then
total = total + Cellule.Count
End If
Next
MsgBox 'Eh, La Meule,il y a ' & total & ' Cellules rouges en colonne B ! '
Range('A1') = total
End Sub

Petite précision, si les fonds de cellules sont générés à partir de M.F.C. ce code ne marchera pas, on peut cependant le faire par une formule reprenant les conditions de ton format conditionnel. (Ex : si la valeur 1 génère le motif rouge =NB.SI(B:B;1))

Bonne soirée

Message édité par: Rénato, à: 04/05/2005 21:30

Message édité par: Rénato, à: 04/05/2005 22:00