XL 2013 Addition de somme

[patrick.r7]

Je souhaiterai avoir la solution que lorsque j’ajoute une somme, la somme totale la prenne en compte de suite, ou que si j’enlève une somme il faudrait que la somme totale ne m’écrive pas #REF!
Ci joint l'exemple avec l'explication plus clair.
Merci d’avance.

 

[piga25]

Bonjour,

A mettre en D31

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

 

[patrick.r7]

Merci beaucoup

 

[patrick.r7]

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

 

[mapomme]

Bonjour patrick.r7,

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

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 ? )

 

[patrick.r7]

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.

 

[gosselien]

Bonjour,

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

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

P.

 

[JHA]

Bonjour à tous,

A tout hasard, e "D31"

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

JHA

 

[patrick.r7]

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

 

[mapomme]

Bonjour JHA ,

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

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

(...)

Oui, mais pour ceux qui ont un vieil Excel ?

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

=SOMME(D4:D27)/2

Bon, je sors

 

[mapomme]

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.

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

 

[DoubleZero]

Bonjour, le Fil , le Forum,

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

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