Sujet Précédent Sujet Suivant

Excel : Fonction couleur dans la Cellule

Fermé
ja-ck Messages postés 2 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 4 mai 2009 - 9 sept. 2008 à 18:23
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 10 sept. 2008 à 00:20
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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 215
10 sept. 2008 à 00:20
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