Excel : Fonction couleur dans la Cellule

ja-ck Messages postés 5 Statut Membre -  
eriiic Messages postés 24581 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
Configuration: Windows Vista
Internet Explorer 7.0

1 réponse

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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