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
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
A voir également:
- Somme Cellule
- Somme si couleur - Guide
- Somme excel - Guide
- Verrouiller cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Aller à la ligne dans une cellule excel - Guide
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
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
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
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
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))
fichier exemple : https://www.cjoint.com/?BIxxMjaKFTZ
eric
PS: divise par 4 le résultat comme tu veux 0.25 par cellule.
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.
23 sept. 2012 à 21:30