addition

[chilo]

bonjour le fil
le vide !!!!

est il possible d'additionner le contenu d'une cellule saisi comme ceci '1 2 3 4 5 6'.

 

[Hervé]

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

salut

 

[Monique]

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)

 

[chilo]

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

comment utiliser ?

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

 

[chilo]

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

 

[Monique]

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

 

[chilo]

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

 

[Monique]

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 ?

 

[chilo]

bonsoir
je voulais la somme des chiffres

 

[Hervé]

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

 

[chilo]

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+

 

[Hervé]

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]

 

[chilo]

bonsoir
merci herve mais je le place où
ce code

 

[Monique]

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;' ';'')

 

[Hervé]

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