E
Eric
Guest
Bonjour,
je viens d'essayer la methode d'un "post de Anne" ci dessous afin de compter le nombre de cellules de couleur.
Ca fonctionne mais il y a un probleme dans le rafraichissement, je suis obligé de mettre un espace dans la celllue pour que le compteur ce mette à jour.
Quelqu'un peut m'aider?
D'avance merci
Eric
Post de Anne:
tu mets ça dans une cellule :
=nb_couleur(plage;6)
cela additionnera les cellules dont la couleur est jaune (index 6)
et tu colle ça dans un module :
Function nb_couleur(x As Range, Index_couleur As Integer)
s = 0
For Each cell In x
If cell.Interior.ColorIndex = Index_couleur Then
s = s + 1
End If
Next
nb_couleur = s
End Function
je viens d'essayer la methode d'un "post de Anne" ci dessous afin de compter le nombre de cellules de couleur.
Ca fonctionne mais il y a un probleme dans le rafraichissement, je suis obligé de mettre un espace dans la celllue pour que le compteur ce mette à jour.
Quelqu'un peut m'aider?
D'avance merci
Eric
Post de Anne:
tu mets ça dans une cellule :
=nb_couleur(plage;6)
cela additionnera les cellules dont la couleur est jaune (index 6)
et tu colle ça dans un module :
Function nb_couleur(x As Range, Index_couleur As Integer)
s = 0
For Each cell In x
If cell.Interior.ColorIndex = Index_couleur Then
s = s + 1
End If
Next
nb_couleur = s
End Function