Somme Cellule

Fermé
ange1608 - 22 sept. 2012 à 17:44
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 - 23 sept. 2012 à 23:41
Bonjour,

Je cherche pour un planning horaire a additionner sur la meme ligne les cellules selectionnées d une couleur.Pouvez vous m aider?svp.Merci

2 réponses

Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 5 041
22 sept. 2012 à 18:40
Salut,

comment colorises tu ces cellules, manuellement ou avec une mise en forme conditionnelle, dans ce cas quel en est la formule
et de quelle couleur sont tes cellules
0
Merci pour ta reponse, je colories mes cellules manuellement.Je veux juste avoir un total par ligne de ces cellules selectionnees en sachant : 1 cellule coloriees = 0.25h.MErci pour ton aide.
0
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 7 168
23 sept. 2012 à 23:41
Bonsoir,

Une proposition avec 2 fonctions personnalisée :
- no_couleur(cellule) : retourne le numéro de couleur d'une cellule
- nbCelCouleur(plage, no_couleur) : retourne le nombre de cellule de la couleur no_couleur

syntaxe :
=no_couleur(C1)

=nbCelCouleur($C$4:$L$4;6)
ou
=nbCelCouleur($C$4:$L$4;no_couleur(C1))

Function no_couleur(cellule As Range) As Long
    no_couleur = cellule.Interior.ColorIndex
End Function

Function nbCelCouleur(plage As Range, no_couleur As Long) As Double
    Dim c As Range
    For Each c In plage
        If c.Interior.ColorIndex = no_couleur Then nbCelCouleur = nbCelCouleur + 1
    Next c
End Function

fichier exemple : https://www.cjoint.com/?BIxxMjaKFTZ

eric

PS: divise par 4 le résultat comme tu veux 0.25 par cellule.
0