Discussion :

[natachad]

tiens voici une fonction personnalisé à mettre dans un module , en 1° paramètre la plage à tester et en 2° une cellule de la couleur de fond à tester ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function CompteCouleur(plage As Range, CouleurReference As Range) As Integer
Application.Volatile
Dim r As Range
Dim i As Integer
For Each r In plage
  If r.Interior.Color = CouleurReference.Interior.Color Then i = i + 1
Next
CompteCouleur = i
End Function

le problème de cette fonction est que le changement d'une couleur ne lance pas un re-calcul de la feuille et donc le résultat n'est pas mis à jour il faut attendre le prochain re-calcul (action sur F9 , saisie/modification d'une valeur..)

exemple d'utilisation à placer en F34, pour compter les cellules de la plage F19:F33 qui sont de la même couleur de fond que la cellule F34:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CompteCouleur(F19:F33;F34)

Bonjour,

j'aimerais savoir si cette macro (issue de cette discussion) est transposable sur open office (seul logiciel disponible au bureau malheureusement...),
car il m'indique par exemple que Range est un type de données inconnu...
j'ai essayé pas mal de macros différentes mais je n'arrive pas à mes fins .
Je souhaite en fait comptabiliser le nombre de jours travaillés, où chaque salarié mets en fond de couleur les jours de présence (donc via une couleur de fond et pas une mise en forme conditionnelle), j'ai utilisé "Free Excel Yearly Calendar Template" pour la base du calendrier.
Je mets mon fichier en pièce jointe au cas où vous auriez une solution...

merci d'avance !