A
arvin
Guest
Bonsoir
j'aurai besoin d'une coup de main : en fait je souhaite calculer toutes les cellules qui sont d'une même couleur et ce qu'ily a dans ces cellules
J'ai un peu de code mais je bloque
qq'un aurait 1 idée ?
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
merci
j'aurai besoin d'une coup de main : en fait je souhaite calculer toutes les cellules qui sont d'une même couleur et ce qu'ily a dans ces cellules
J'ai un peu de code mais je bloque
qq'un aurait 1 idée ?
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
merci