Somme Cellule

ange1608 -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
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 19572 Date d'inscription   Statut Contributeur Dernière intervention   5 139
 
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
ange1608
 
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 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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