XL 2013 Addition de somme

piga25

XLDnaute Barbatruc

• 11 Août 2017

• #2

Bonjour,

A mettre en D31

Code:

=SOMMEPROD((C4:C27="Somme")*D4:D27)

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 11 Août 2017

• #3

Merci beaucoup

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 11 Août 2017

• #4

Et comment cela se passe si je ne veux que la colonne D

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Août 2017

• #5

Bonjour patrick.r7,

patrick.r7 à dit:

Et comment cela se passe si je ne veux que la colonne D

Cliquez pour agrandir...

Pouvez vous expliquer la différence avec la première question ? La formule de piga25 (que je salue ) fait déjà la somme de la colonne D (du moins me semble-t il ? )

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 11 Août 2017

• #6

Lorsque j'utilise cette formule dans l'exemple, ça marche nickel, Mais dès que je la copie ailleurs on me met un message d'erreur.
Je joint le problème que je rencontre.

 

Pièces jointes

• #valeur!.pdf

  25.3 KB · Affichages: 51

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 11 Août 2017

• #7

Bonjour,

un PDF à présent... on aura tout vu !

Enfin, certains ici parviendront à comprendre le problème, c'est l'essentiel

P.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 11 Août 2017

• #8

Bonjour à tous,

A tout hasard, e "D31"

Code:

=SOMMEPROD((ESTERREUR(FORMULETEXTE($D$4:$D$27))=VRAI)*$D$4:$D$27)

JHA

 

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 11 Août 2017

• #9

Désolé Ce lien n'existe plus pour le PDF.
Et merci JHA pour le retour.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Août 2017

• #10

Bonjour JHA ,

JHA à dit:

(...) A tout hasard, e "D31"

Code:

=SOMMEPROD((ESTERREUR(FORMULETEXTE($D$4:$D$27))=VRAI)*$D$4:$D$27)

(...)

Cliquez pour agrandir...

Oui, mais pour ceux qui ont un vieil Excel ?

Sinon, pour le fun , une formule sans prétention:

Code:

=SOMME(D4:D27)/2

Bon, je sors

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Août 2017

• #11

Re,

Un essai avec une fonction personnalisée dont le code est dans module1.

La fonction s'appelle SommeSaufFormule et n'a qu'un seul paramètre qui est une plage de cellules contigües.

Cette fonction ne somme que les constantes qui sont numériques. Elle ignore les cellules vides ou qui contiennent du texte. Attention, elle prend en compte les cellules contenant les valeurs Vrai/Faux (-> -1/0) et les cellules contenant des dates ou des heures.

VB:

Function SommeSaufFormule(x As Range) As Double
Dim c As Range, s
   For Each c In x
      If Not (c.HasFormula) Then
         If IsNumeric(c.Value) Then s = s + c.Value
      End If
   Next c
   SommeSaufFormule = s
End Function

 

Pièces jointes

• patrick.r7- addition somme- v1.xlsm

  14.9 KB · Affichages: 35

Dernière édition: 11 Août 2017

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Août 2017

• #12

Bonjour, le Fil , le Forum,

Autre possibilité : se placer dans une cellule vide et tester le code ci-après.

VB:

Option Explicit
Sub Colonne_d_total_connaître()
' colonne adapter...
    Selection = Application.WorksheetFunction.Sum(Range("d:d").SpecialCells(xlCellTypeConstants, 1))
End Sub

A bientôt

 

Vote positif 0 Vote négatif