Somme sauf si cellule barrée

P

pjiu

XLDnaute Junior

• 15 Juillet 2010

• #16

Re : Somme sauf si cellule barrée

YESSSS CA MARCHE !!! Merci à tous !! Juste dites moi Roger2327, est ce possible de barrer une des cellules où il y a une chiffre et que le résultat se ré-actualise de lui même sans qu'on ai besoin de refaire 'entré, soncond(la plage)' ?

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 15 Juillet 2010

• #17

Re : Somme sauf si cellule barrée

Re...

(...) est ce possible de barrer une des cellules où il y a une chiffre et que le résultat se ré-actualise de lui même sans qu'on ai besoin de refaire 'entré, soncond(la plage)' ?

Cliquez pour agrandir...

L'actualisation automatique n'est pas déclenchée en barrant la valeur d'une cellule. Mais vous pouvez la provoquer en pressant simplement la touche F9.​

ROGER2327
#3910

Lundi 2 Tatane 137 (Commémoration du Père Ebé, SQ)
27 Messidor An CCXVIII
2010-W28-4T11:38:09Z

 

Vote positif 0 Vote négatif

P

pjiu

XLDnaute Junior

• 15 Juillet 2010

• #18

Re : Somme sauf si cellule barrée

Merci bcp Roger, impec =D
Bonne aprém !

 

Vote positif 0 Vote négatif

P

pjiu

XLDnaute Junior

• 15 Juillet 2010

• #19

Re : Somme sauf si cellule barrée

En faite, j'ai une petite condition en plus.
Voila, les montants sont toujours positifs, et j'aimerais utiliser 'somcond' avec un autre critère (à coté du montant + ou -). Je joins un doc pour que ça soit plus précis, une idée ?

 

Pièces jointes

• pbsommecrit.xls

  33 KB · Affichages: 123

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Juillet 2010

• #20

Re : Somme sauf si cellule barrée

Bonjour,

un essai avec sommeprod()
=SOMMEPROD((($E$19:$E$22="+")*($H$19:$H$22))-(($E$19:$E$22="-")*($H$19:$H$22)))

JHA

 

Vote positif 0 Vote négatif

P

pjiu

XLDnaute Junior

• 15 Juillet 2010

• #21

Re : Somme sauf si cellule barrée

JHA à dit:

Bonjour,

un essai avec sommeprod()
=SOMMEPROD((($E$19:$E$22="+")*($H$19:$H$22))-(($E$19:$E$22="-")*($H$19:$H$22)))

JHA

Cliquez pour agrandir...

Merci JHA mais j'ai oublié de préciser que j'ai aussi un critère de cellule barré 🙁. Si je barre un montant celui-ci ne doit pas être pris en compte dans le montant total (la fonction somcumrélise déjà ça mais il faut préciser + ou - dans la case du montant)...

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Juillet 2010

• #22

Re : Somme sauf si cellule barrée

Bonjour le fil

Petite condition à rajouter à la fonction de Roger2327 😉

Code:

Function SomCond#(ParamArray r())
Application.Volatile
Dim i&, oCel As Range
   For i = 0 To UBound(r)
      For Each oCel In r(i).Cells
         If oCel.Font.Strikethrough = False Then
            If IsNumeric(oCel.Value) Then
              SomCond = SomCond + [COLOR=blue][B]IIf(oCel.Offset(0, -3) = "+", oCel.Value, -oCel.Value)
[/B][/COLOR]            End If
         End If
      Next oCel
   Next i
End Function

A+

 

Vote positif 0 Vote négatif

P

pjiu

XLDnaute Junior

• 15 Juillet 2010

• #23

Re : Somme sauf si cellule barrée

Merci bcp Bruno, ça marche très bien =D
Bonne soirée !

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Juillet 2010

• #24

Re : Somme sauf si cellule barrée

Re,

Petit NB, ne teste que si il y a un plus "+"
donc en cas d'oublie du signe, cela soustrait 😉

A+

 

Vote positif 0 Vote négatif

P

pjiu

XLDnaute Junior

• 15 Juillet 2010

• #25

Re : Somme sauf si cellule barrée

Okay merci bcp pour l'info =)

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Juillet 2010

• #26

Re : Somme sauf si cellule barrée

Bonsoir à tous

Autre modification possible :

Code:

[COLOR="DarkSlateGray"][B]Function SomCond#(ParamArray r())
Application.Volatile
Dim i&, oCel As Range
   For i = 0 To UBound(r)
      For Each oCel In r(i).Cells
         If oCel.Font.Strikethrough = False Then
            If IsNumeric(oCel.Value) Then
               [COLOR="Sienna"]SomCond = SomCond + ((oCel.Offset(0, -3).Value = "-") - (oCel.Offset(0, -3).Value = "+")) * oCel.Value[/COLOR]
            End If
         End If
      Next oCel
   Next i
End Function[/B][/COLOR]

Ainsi, les valeurs sans signe ne sont pas prises en compte.​

ROGER2327
#3911

Lundi 2 Tatane 137 (Commémoration du Père Ebé, SQ)
27 Messidor An CCXVIII
2010-W28-4T22:07:52Z

 

Vote positif 0 Vote négatif

P

pjiu

XLDnaute Junior

• 16 Juillet 2010

• #27

Re : Somme sauf si cellule barrée

Merci, super module bien travaillé mtnt !!
Mais juste encore une chose, serait t'il possible de rajouter quelque chose dans ce module pour dire qu'il ne faut pas prendre en compte les cellules qui sont cachées dans lesquelles il y a des montants ? par exemple si je filtre ma colonne, j'aimerais que somcum additionne le total des montant visible de la colonne..

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Juillet 2010

• #28

Re : Somme sauf si cellule barrée

Re,

Dis Pjiu, tu pourrais faire un effort 🙄
il suffit de chercher un peu et/ou d'utiliser l'enregistreur de macro pour savoir

Sur le code de Maitre Roger2327

Code:

Function SomCond#(ParamArray r())
  Application.Volatile
  Dim i&, oCel As Range
  For i = 0 To UBound(r)
    For Each oCel In r(i).Cells
      [COLOR=blue][B]If oCel.EntireRow.Hidden = False Then
[/B][/COLOR]        If oCel.Font.Strikethrough = False Then
          If IsNumeric(oCel.Value) Then
            SomCond = SomCond + ((oCel.Offset(0, -3).Value = "-") - (oCel.Offset(0, -3).Value = "+")) * oCel.Value
          End If
        End If
      End If
    Next oCel
  Next i
End Function

A+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Juillet 2010

• #29

Re : Somme sauf si cellule barrée

Re...
Bonjour BrunoM45

BrunoM45 à dit:

Re,

Dis Pjiu, tu pourrais faire un effort 🙄
il suffit de chercher un peu et/ou d'utiliser l'enregistreur de macro pour savoir

Sur le code de Maitre Roger2327

Code:

Function SomCond#(ParamArray r())
  Application.Volatile
  Dim i&, oCel As Range
  For i = 0 To UBound(r)
    For Each oCel In r(i).Cells
      [COLOR=blue][B]If oCel.EntireRow.Hidden = False Then
[/B][/COLOR]        If oCel.Font.Strikethrough = False Then
          If IsNumeric(oCel.Value) Then
            SomCond = SomCond + ((oCel.Offset(0, -3).Value = "-") - (oCel.Offset(0, -3).Value = "+")) * oCel.Value
          End If
        End If
      End If
    Next oCel
  Next i
End Function

A+

Cliquez pour agrandir...

D'accord avec vous.
Autre proposition :

Code:

[COLOR="DarkSlateGray"][B]Function SomCond#(ParamArray r())
Application.Volatile
Dim i&, oCel As Range
   For i = 0 To UBound(r)
      For Each oCel In r(i).Cells
         If [COLOR="Purple"]oCel.EntireRow.Hidden + oCel.Font.Strikethrough >= 0[/COLOR] Then
            If IsNumeric(oCel.Value) Then
               SomCond = SomCond + ((oCel.Offset(0, -3).Value = "-") - (oCel.Offset(0, -3).Value = "+")) * oCel.Value
            End If
         End If
      Next oCel
   Next i
End Function[/B][/COLOR]

En réalité, presque d'accord seulement : Pourquoi Maître ? Comme vous le savez, je suis assez attaché au respect des vieilles choses. Alors, mon jeune ami, un peu moins de désinvolture, je vous prie ! Je n'accepterai désormais plus que Sublissime Maître des Maîtres, ou ma colère sera terrible et le châtiment que je vous infligerai le sera plus encore...
À bon entendeur, salut !
​

ROGER2327
#3913

Mardi 3 Tatane 137 (Sainte Crapule, puriste et Saint Fantomas, archange, SQ)
28 Messidor An CCXVIII
2010-W28-5T08:09:59Z

 

Dernière édition: 16 Juillet 2010

Vote positif 0 Vote négatif

P

pjiu

XLDnaute Junior

• 16 Juillet 2010

• #30

Re : Somme sauf si cellule barrée

bonjour !!!
Merci Bruno et Roger, vos fonctions marchent très bien.
Bruno, tu me parles d'enregistrer une macro ? je ne savais pas que ça pouvais marcher comme ça... il me suffit de faire enregistrer macro, masquer les cellules, faire la somme( avec (comcum), et modifier le résultat donné ? enfin ça me semble bizzar...

 

Vote positif 0 Vote négatif