Bonjour,


Je fais encore appel à vos services ^^

J'ai réussi à compter le nombre de shapes dans une plage donnée grâce à vous

Maintenant j'aimerai pouvoir récupérer dans une cellule par exemple en L28, le nombre de shapes avec comme couleur de fond 47 présent dans la plage de cellule allant de L3 à L27

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ForeColor.SchemeColor = 47
Comment vous y prendrez vous pour ce faire? Est ce possible ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub extraire()
 
Dim Forme As Shape
Dim NumLigne As Long
 
On Error Resume Next
 
NumLigne = 1
 
For Each Forme In Worksheets("Feuil1").Shapes
 
Cells(NumLigne, 1).Value = Forme.Fill.ForeColor.SchemeColor
 
NumLigne = NumLigne + 1
 
Next Forme
 
End Sub
En fait je récupère la liste des valeurs de couleur de fond de mes shapes de la feuil1 dans la colonne 1
Et avec une fonction NB.SI je compte le nombre de fois que se répète la couleur ça me donne le nombre de shapes d'une couleur donnée dans la feuille