Excel : Fonction couleur dans la Cellule

ja-ck Messages postés 5 Statut Membre -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je voudrais savoir si c possible je vous explique mon probleme,

Dans un tableau, quand je rempli une cellule en couleur, je voudrais debiter un nombre d'heures

exemple si je "colorie" A1 et A2 et A3 en rouge = 25-3

Merci de me répondre

ja-ck
A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

2 fonctions personnalisée pour ton problème :
- une pour compter les cellule d'une couleur dans une plage 
Function nbCellCol(plage As Range, couleur As Integer) As Long
    Dim c As Range, t As Long
    For Each c In plage
        t = t - (c.Interior.ColorIndex = couleur)
    Next c
    nbCellCol = t
End Function
- une pour récupérer le n° de couleur d'une cellule si tu ne le connais pas 
Function couleur(cellule As Range) As Integer
    couleur = cellule.Interior.ColorIndex
End Function


A coller dans un module vba.
Si tu ne connais pas on t'expliquera comment faire.

syntaxe :
en donnant le n° de couleur (3=rouge)
=nbCellCol($A$1:$A$5,3)
ou en récupérant le n° de couleur de la cellule A1 :
=nbCellCol($A$1:$A$5,couleur($A$1))

exemple: http://www.cijoint.fr/cjlink.php?file=cj200809/cijnh2370S.xls

eric
0