Calcul dans la même colonne

Résolu/Fermé
micheleliane Messages postés 76 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 15 janvier 2015 - Modifié par irongege le 10/01/2015 à 09:07
micheleliane Messages postés 76 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 15 janvier 2015 - 15 janv. 2015 à 19:33
Bonjour,
BONJOUR LE FORUM
Demande aide je travaille en xls toutes les cellules ne sont pas remplies
Il faudrait dans A2
La somme de la cellule en dessous de la cellule de tous les mots CLE dans la colonne A
Il faudrait dans B2
La somme de la cellule en dessous de la cellule de tous les mots CC dans la colonne B
Ainsi de suite dans la ligne 2 jusqu'à la colonne H .
Et quand je transmet le dossier les personnes puissent
modifier les chiffres en dessous des références que le total se réalise toujours en ligne 2
Cela fonctionne avec les chiffres en couleur mais complexe avec les feuilles
qui circule entre membres du club
Des colonnes supplémentaires pourraient être ajoutées
Merci à l'avance
Model dans ci-joint https://www.cjoint.com/c/EAkiLAoYpKU


micheleliane
>
A voir également:

2 réponses

micheleliane Messages postés 76 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 15 janvier 2015
11 janv. 2015 à 22:23
BONSOIR au FORUM

J'ai fini par trouver la formule qui calcul la somme de la cellule en dessous du mot
de référence sur toute la colonne .
Je ne peux pas l'expliquer mais cela fonctionne.
SI quelqu'un peux donner les explications je suis preneur

=SOMMEPROD(--(A1:A2000="CLE");A2:A2001)

MERCI et BONNE SOIREE

micheleliane
0
micheleliane Messages postés 76 Date d'inscription mercredi 13 février 2013 Statut Membre Dernière intervention 15 janvier 2015
15 janv. 2015 à 19:33
BONSOIR AU FORUM
Je mets la formule en VBA car j'ai eu des difficultées pour l'exécuter

Sub SOMMEdansLIGNE2()
'Somme de la cellule qui se trouve en dessous de la référence dans la colonne
Range("A2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""CLE""),R[2]C:R[1999]C)"
Range("B2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""CC""),R[2]C:R[1999]C)"
Range("C2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""CE""),R[2]C:R[1999]C)"
Range("D2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""CDIS""),R[2]C:R[1999]C)"
Range("E2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""VE""),R[2]C:R[1999]C)"
Range("F2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""PP""),R[2]C:R[1999]C)"
Range("G2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""PV""),R[2]C:R[1999]C)"
Range("H2").FormulaR1C1 = _
"=SUMPRODUCT(--(R[1]C:R[1998]C=""GRBC""),R[2]C:R[1999]C)"
Range("A1").Select
End Sub

micheleliane
0