Somme Cellule

ange1608 -  
eriiic Messages postés 24581 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

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