addition

Hervé

XLDnaute Barbatruc

• 3 Février 2006

• #2

Bonjour chilo

ca doit etre possible par formule, mais je sais pas faire.

par fonction VBA :

Public Function sommebizarre(cellule As Range) As Single
Dim i As Byte

For i = 1 To Len(cellule)
        If IsNumeric(Mid(cellule, i, 1)) Then
            sommebizarre = sommebizarre + Mid(cellule, i, 1)
        End If
Next i
End Function

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 3 Février 2006

• #3

Bonjour,

Si tu n'as pas d'espaces :
=SOMMEPROD((STXT(A1;LIGNE(INDIRECT(1&':'&NBCAR(A1)));1))*1)

Si tu as des espaces :
=SOMMEPROD((STXT(SUBSTITUE($A2;' ';'');LIGNE(INDIRECT(1&':'&NBCAR(SUBSTITUE($A2;' ';''))));1))*1)

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 3 Février 2006

• #4

bonjour hervé
merci d'avoir été aussi rapide

comment utiliser ?

j'ai oublié de préciser que les lignes peuvent 59000

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 3 Février 2006

• #5

bonjour monique
cela fonctionne j'ai cherché avec sommeprod mais sans succes
par la meme occasion j'ai lu tes prouesses existe il un livre pour apprendre à mieux maitriser les formules ?
merci beaucoup

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 3 Février 2006

• #6

Re,

Des bouquins, oui mais je n'en connais pas.
Tu as le forum, à lire et relire,
plein de fichiers à télécharger,
plus le moteur de recherche

 

Vote positif 0 Vote négatif

C

chilo

Guest

• 3 Février 2006

• #7

re
monique j'ai essayé la formule mais
dans mes chiffres il y a des zéros qui ne sont pris en compte
donc mes résultats sont faussés
merci de m'aider à r ésoufre le pb

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 3 Février 2006

• #8

Re,

La formule fait la somme des chiffres de ta cellule.
Les 0 ne changent rien à la somme.
Tu voulais la somme des chiffres ou bien compter le nombre de chiffres ?

 

Vote positif 0 Vote négatif

C

chilo

Guest

• 3 Février 2006

• #9

bonsoir
je voulais la somme des chiffres

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 3 Février 2006

• #10

Bonsoir chilo, monique

chilo, qu'entend-tu par 'dans mes chiffres y'a des zéros' ?

tu veux dire qu'il y a aussi des nombres ?

1 10 20 doit donner 31 et non 4 ??

merci de préciser.

monique, à l'occasion, tu ne pourrais pas m'expliquer (et en faire profiter le forum) cette formule venu de l'espace ?

d'avance je t'en remercie.

salut

 

Vote positif 0 Vote négatif

C

chilo

Guest

• 3 Février 2006

• #11

bonsoir herve
c'est effectivement mais
quand j'utilisa la formule de monique

1 2 3 4 5 6 21
1 10 20 35 12

j'obtiens ma somme exacte de 1 2 3 4 5 6
mais dès l'instant qu'il y un nombre avec un zéro
1 10 20 35 la somme est erronée
a+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 3 Février 2006

• #12

re chilo, monique

par fonction je sais toujours pas faire

mais par vba, voir en pièce jointe.

salut [file name=Classeur1_20060203230754.zip size=6612]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060203230754.zip[/file]

 

Pièces jointes

• Classeur1_20060203230754.zip

  6.5 KB · Affichages: 12

Vote positif 0 Vote négatif

C

chilo

Guest

• 3 Février 2006

• #13

bonsoir
merci herve mais je le place où
ce code

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 4 Février 2006

• #14

Bonjour,

Avec des espaces à remplacer par + ou un point virgule, je ne vois pas

Hervé, je vais avoir du mal à expliquer.
En gros, (caractères sans espaces en A1) :
=SOMMEPROD((STXT(A$1;LIGNE(INDIRECT(1&':'&NBCAR(A$1)));1))*1)

Si A1 comprend 4 caractères, la formule équivaut à ça :
=SOMMEPROD((STXT($A$1;LIGNE($A$1:$A$4);1))*1)
=SOMMEPROD((STXT($A$1;LIGNE($1:$4);1))*1)

donc à ça :
=SOMMEPROD((STXT($A$1;{1;2;3;4};1))*1)

donc à ça :
=SOMME((STXT($A$1;{1;2;3;4};1))*1)

S'il y a des espaces, c'est la même chose,
mais en remplaçant A1 par :
=SUBSTITUE($A$1;' ';'')

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Février 2006

• #15

bonjour monique, chilo


chilo, tu copies le module 1 dans ton classeur, puis tu utilises cette fonction comme n'importe quelle fonction d'excel.

Dans la boite de dialogue, tu retrouveras celle-ci dans les personnalisées.

Monique, merci pour tes explications. J'ai compris , c'est du grand art, félicitations.

merci

salut

 

Vote positif 0 Vote négatif