Bonjour,
Je suis nouveau sur ce forum donc merci d'excuser mes éventuelles maladresses.
Je comptais utiliser les fonctions VBA suivantes pour compter les cellules d'une certaine couleur dans une plage définie :
_______________________________________________________
Function NbColor(ByRef Plage As Range, Couleur As Byte) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In Plage
If c.Interior.ColorIndex = Couleur Then
nb = nb + 1
End If
Next c
NbColor = nb
End Function
Function NbColorSameAs(ByRef Plage As Range, ByRef Cellule As Range) As Long
Application.Volatile
NbColorSameAs = NbColor(Plage, Cellule.Interior.ColorIndex)
End Function
______________________________________________________________________
Seulement j'utilise sur cette même plage des mises en forme conditionnelles qui modifient la couleur des cellules et il semble que Interior.ColorIndex me renvoie la couleur de base de la cellule et pas la couleur effectivement affichée. Malgré l'utilisation de l'aide et de nombreuses recherches sur différents forum je ne trouve pas l'attribut qui me renvoie la couleur de la cellule y compris dans les cas où cette dernière vient à être modifiée par une mise en forme conditionnelle.
Merci par avance pour votre aide.
Je suis nouveau sur ce forum donc merci d'excuser mes éventuelles maladresses.
Je comptais utiliser les fonctions VBA suivantes pour compter les cellules d'une certaine couleur dans une plage définie :
_______________________________________________________
Function NbColor(ByRef Plage As Range, Couleur As Byte) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In Plage
If c.Interior.ColorIndex = Couleur Then
nb = nb + 1
End If
Next c
NbColor = nb
End Function
Function NbColorSameAs(ByRef Plage As Range, ByRef Cellule As Range) As Long
Application.Volatile
NbColorSameAs = NbColor(Plage, Cellule.Interior.ColorIndex)
End Function
______________________________________________________________________
Seulement j'utilise sur cette même plage des mises en forme conditionnelles qui modifient la couleur des cellules et il semble que Interior.ColorIndex me renvoie la couleur de base de la cellule et pas la couleur effectivement affichée. Malgré l'utilisation de l'aide et de nombreuses recherches sur différents forum je ne trouve pas l'attribut qui me renvoie la couleur de la cellule y compris dans les cas où cette dernière vient à être modifiée par une mise en forme conditionnelle.
Merci par avance pour votre aide.
