Bonjour,

Dans un tableau, j'ai des cellule fond blanc, fond jaune et fond orange.

Je voudrai compter les cellule fond jaune et fond orange dont la valeur et "R"

J'ai le debut d'une macro mais je n'arrive pas à trouver l'ensemble.

LA MACRO

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub NombreRP()
 
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = XX Then '(XX est la valeur de la couleur)
If Cellule.Value = "R" Then total Cellule.Count
End If
Next
Range("A24") = total
End Sub
Merci de votre aide

Jean-Paul