Centre 2

Le
Pascal
Re Bonjour
Ma question précédente est alambiquée.
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4

Merci
Pascal








Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000736-2, 26/04/2007
Analyse le : 29/04/2007 10:30:39
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
AV
Le #4482511
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4


Avec une fonction perso (à mettre dans un module ordinaire)
Un exemple :

Function TOTAL(nombre)
For i = 1 To Len(nombre)
S = S + 1 * Mid(nombre, i, 1)
Next
If Len(S) <> 1 Then
For i = 1 To Len(S)
Z = Z + 1 * Mid(S, i, 1)
Next
Else: TOTAL = S: Exit Function
End If
TOTAL = Z
End Function

En images :
http://cjoint.com/?eDlhHQJU7J

AV

JLuc
Le #4482501
*Bonjour Pascal*,
J'ai aussi une petite fonction perso :

Function SOMMEN(Nombre As Double)
Dim EnTexte As String
Dim Temp As Long
Dim x As Integer
EnTexte = CStr(Nombre)
If Not IsNumeric(Nombre) Then
SOMMEN = "#VALEUR"
Exit Function
End If
For x = 1 To Len(EnTexte)
Temp = Temp + Val(Mid(EnTexte, x, 1))
Next
SOMMEN = Temp
End Function


Re Bonjour
Ma question précédente est alambiquée.
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4

Merci
Pascal







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000736-2, 26/04/2007
Analyse le : 29/04/2007 10:30:39
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Pascal
Le #4482491
Merci Alain. C'est Parfait. Je cherchais pour ma gouverne à savoir si l'on
retrouvait la particularité de la table de 9 dans d'autres tables.
"AV" %
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4


Avec une fonction perso (à mettre dans un module ordinaire)
Un exemple :

Function TOTAL(nombre)
For i = 1 To Len(nombre)
S = S + 1 * Mid(nombre, i, 1)
Next
If Len(S) <> 1 Then
For i = 1 To Len(S)
Z = Z + 1 * Mid(S, i, 1)
Next
Else: TOTAL = S: Exit Function
End If
TOTAL = Z
End Function

En images :
http://cjoint.com/?eDlhHQJU7J

AV



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000736-2, 26/04/2007
Analyse le : 29/04/2007 11:14:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000736-2, 26/04/2007
Analyse le : 29/04/2007 11:16:28
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


JLuc
Le #4482481
Oups, j'avais lu trop vite, c'est AV qui a tout bon :')

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
AV
Le #4482471
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4


Avec une fonction perso (à mettre dans un module ordinaire)
Un exemple :

Function TOTAL(nombre)
For i = 1 To Len(nombre)
S = S + 1 * Mid(nombre, i, 1)
Next
If Len(S) <> 1 Then
For i = 1 To Len(S)
Z = Z + 1 * Mid(S, i, 1)
Next
Else: TOTAL = S: Exit Function
End If
TOTAL = Z
End Function

En images :
http://cjoint.com/?eDluNKipVw

AV

Michel
Le #4482461
AV avait énoncé :
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4


Avec une fonction perso (à mettre dans un module ordinaire)
Un exemple :

Function TOTAL(nombre)
For i = 1 To Len(nombre)
S = S + 1 * Mid(nombre, i, 1)
Next
If Len(S) <> 1 Then
For i = 1 To Len(S)
Z = Z + 1 * Mid(S, i, 1)
Next
Else: TOTAL = S: Exit Function
End If
TOTAL = Z
End Function

En images :
http://cjoint.com/?eDlhHQJU7J

AV


Bonjour,

bug !!!

99999999999 donne 18 ;-)
M.


JLuc
Le #4482451
*Bonjour Michel*,
Et 9999999999999990 donne #VALEUR
;-)
Mais il ne faut pas trop en demander, ce genre de valeur est rarement
atteinte :')
De plus, Pascal a le principe de base, à lui de tester sur les valeurs
qu'il utilise et corriger ce qui ne convient pas.


AV avait énoncé :
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4


Avec une fonction perso (à mettre dans un module ordinaire)
Un exemple :

Function TOTAL(nombre)
For i = 1 To Len(nombre)
S = S + 1 * Mid(nombre, i, 1)
Next
If Len(S) <> 1 Then
For i = 1 To Len(S)
Z = Z + 1 * Mid(S, i, 1)
Next
Else: TOTAL = S: Exit Function
End If
TOTAL = Z
End Function

En images :
http://cjoint.com/?eDlhHQJU7J

AV


Bonjour,

bug !!!

99999999999 donne 18 ;-)
M.


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



AV
Le #4482441
bug !!! 99999999999 donne 18 ;-)


Tout à fait exact ! Bien testé !
!
Pour faire simple :
Ajouter cette ligne (après le 1° next) :

If S = 99 Then TOTAL = 9: Exit Function

AV

Michel
Le #4482421
Le 29/04/2007, JLuc a supposé :
*Bonjour Michel*,
Et 9999999999999990 donne #VALEUR
;-)
Mais il ne faut pas trop en demander, ce genre de valeur est rarement
atteinte :')
De plus, Pascal a le principe de base, à lui de tester sur les valeurs qu'il
utilise et corriger ce qui ne convient pas.



oui bien sur c'était juste une remarque :-) .
Je m'en suis aperçu par hasard alors que mon doigt est resté sur la
touche 9 un peut longtemps :-)
M.

dre
Le #4482411
Bonjour,

Peut-être qu'une petite formule pourrait faire l'affaire :
=SOMME(STXT(A1&REPT(0;9-NBCAR(A1));{1;2;3;4;5;6;7;8;9};1)*1)

L'exemple est limité à 9 chiffres, mais il n'y a aucun problème pour
l'étendre à 15 (limite d'Excel).

dré



Re Bonjour
Ma question précédente est alambiquée.
En fait je cherche à faire la somme d'un chiffre
Par exemple pour 250 je cherche 2+5
Pour 3145 je cherche 3+1+4+5 et 1+3=4

Merci
Pascal







---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000736-2, 26/04/2007
Analyse le : 29/04/2007 10:30:39
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Publicité
Poster une réponse
Anonyme