Bonjour,
j'ai le même soucis et je n'arrive pas à automatiser ma VGA (code ci-dessous) :
General (en haut) CompterCouleur (en haut)
Function CompterCouleur(PlageCouleur As Range, Couleur As Range)
Dim CodeCouleur As Integer
Dim NbrCouleur As Integer
CodeCouleur = Couleur.Interior.ColorIndex
Set CCell = PlageCouleur
For Each CCell In PlageCouleur
If CCell.Interior.ColorIndex = CodeCouleur Then
NbrCouleur = NbrCouleur + 1
End If
Next CCell
CompterCouleur = NbrCouleur
End Function
Pouvez-vous m'aider ?
Merci