Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Centre 2

22 réponses
Avatar
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=13 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

10 réponses

1 2 3
Avatar
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

Avatar
JLuc
*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

Avatar
Pascal
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" a écrit dans le message de news:
%
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.avast.com


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

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

O-O
Avatar
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/?eDluNKipVw

AV

Avatar
Michel
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.


Avatar
JLuc
*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



Avatar
AV
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

Avatar
Michel
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.

Avatar
dre
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






1 2 3