Discussion :

[JPCOURET]

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

[ouskel'n'or]

La question a déjà été traitée, fais une recherche sur le forum VBA Excel avec couleur comme mot clé, Recherche par nom d'utilisateur -> SilkyRoad
Tu as 16 réponses dont certaines concerne l'identification des cellules par la couleur.
Sinon, supprime le nom d'utilisateur, tu auras 7 pages