Somme sauf si cellule barrée

[pjiu]

Hé hé je suis nouvelle et j'arrête d'avoir des problèmes avec Excel ^^ désolée d'être si pas douée...
Bon question assez simple mais je ne vois pas du tout comment faire. Quelqu'un a t'il une idée sur le pb suivant :
J'ai une colonne de chiffre. Comment puis je faire la somme de cette colonne (bon jusque là ça va ^^) SI tout les chiffres ne sont pas barrés. c'est à dire que si je bars un chiffre de la colonne, celui-ci ne sera pas pris en compte dans le total. J'avais pensé à un SI mais comment dire que la condition logique est cellule barrée... Bref merciii 😉

 

[Guest]

Re : Somme sauf si cellule barrée

Re,

Tu pourrais répondre à tes autres fils avant d'en lancer des nouveaux!😡😡😡

A+

 

[pjiu]

Re : Somme sauf si cellule barrée

Re,

Tu pourrais répondre à tes autres fils avant d'en lancer des nouveaux!😡😡😡

A+

J'écrivais cette nouvelle discussion quand tu m'as rp !! désolée ^^ mais ça m'énerve de rester bloquer alors j'essaye d'anticiper mon pb suivant ^^ mais je viens de répondre à ton msg de la dernière discussion merci encore de m'aider !

 

[Guest]

Re : Somme sauf si cellule barrée

Re,

Je peux comprendre que tu sois impatiente, mais comprend de ton côté que l'on peut se donner du mal, et que de voir le demandeur se disperser en multiples discussions puisse énerver.
A+

 

[pjiu]

Re : Somme sauf si cellule barrée

C'est un peu ça oui... bon et bien j'arrête ^^ et désolée de vous avoir embêter !

 

[ROGER2327]

Re : Somme sauf si cellule barrée

Bonsoir à tous

Je ne pense pas qu'il y ait une solution par formule.
Voici une fonction personnalisée qui fera peut-être l'affaire :

[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
               SomCond = SomCond + oCel.Value
            End If
         End If
      Next oCel
   Next i
End Function[/B][/COLOR]

ROGER2327
#3897

Dimanche 1er Tatane 137 (Fête du Père Ubu (Ubu d'été), SPs)
26 Messidor An CCXVIII
2010-W28-3T19:17:59Z

 

[pjiu]

Re : Somme sauf si cellule barrée

Merci pour ta réponse Roger2327. J'ai bien essayé ta fonction mais ça ne marche pas. Je me demande si c'est parce que je l'ai bien mise dans mon doc (jcommence à découvrir les macro ^^). Donc si je fais macro, créer macro, que je l'apelle barré et que je copie ton code, j'ai :
Sub barre()
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 + oCel.Value
End If
End If
Next oCel
Next i
End Function
End Function
Est ce que j'ai bien fais ça ?

 

[ROGER2327]

Re : Somme sauf si cellule barrée

Re...

Il faut mettre la fonction dans un module standard, sans rien y changer. Voyez le classeur joint.​

ROGER2327
#3900

Dimanche 1er Tatane 137 (Fête du Père Ubu (Ubu d'été), SPs)
26 Messidor An CCXVIII
2010-W28-3T21:08:47Z

 

[pjiu]

Re : Somme sauf si cellule barrée

Re...

Il faut mettre la fonction dans un module standard, sans rien y changer. Voyez le classeur joint.​

ROGER2327
#3900

Dimanche 1er Tatane 137 (Fête du Père Ubu (Ubu d'été), SPs)
26 Messidor An CCXVIII
2010-W28-3T21:08:47Z

Je vois en effet que t'y arrives mais je ne sais pas du tout comment tu peux mettre la fonction dans un module standard. Pourrais-tu me décrire toute les procédure s'il te plait ? Mercii d'avance !

 

[ROGER2327]

Re : Somme sauf si cellule barrée

Re...

Le classeur étant ouvert, pressez simultanément Alt et F11 et l'éditeur VisualBasic s'ouvre.
Pour créer un module standard, cliquez sur Module dans le menu Insertion.​

ROGER2327
#3908

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

 

[pjiu]

Re : Somme sauf si cellule barrée

Bon je ne perds pas espoir mais ça marche pas 🙁
Il me dise : Nom ambigu détecté : SumCond

 

[Guest]

Re : Somme sauf si cellule barrée

Bonjour,

S'il te dis cela, c'est parceque tu as laissé une de tes tentatives de macro avec le même nom.

A+

 

[pjiu]

Re : Somme sauf si cellule barrée

Re,
Merci Hasco pour ton aide... alors dans ta rép, comment puis-je faire pour résoudre ce problème de tentative de macro ?

 

[Guest]

Re : Somme sauf si cellule barrée

Re,

Dans l'éditeur de macro(ALT+F11). Tu fais CTRL+F (pour rechercher) ou edition/Rechercher et tu lance une recherche sur SumCond. Tu trouveras toutes les occurences et tu supprimes ce qui est en trop.

Je te conseille d'apprendre à te servir de l'éditeur de macro.
Et commencer le monde de la macro par des choses simples.

A+

 

[ROGER2327]

Re : Somme sauf si cellule barrée

Bonjour Hasco

Re,

Dans l'éditeur de macro(ALT+F11). Tu fais CTRL+F (pour rechercher) ou edition/Rechercher et tu lance une recherche sur SumCond. Tu trouveras toutes les occurences et tu supprimes ce qui est en trop.

Je te conseille d'apprendre à te servir de l'éditeur de macro.
Et commencer le monde de la macro par des choses simples.

A+

Approuvé !​

ROGER2327
#3909

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