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
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 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 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
*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
*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
*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
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
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" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23se6Y4jiHHA.4552@TK2MSFTNGP04.phx.gbl...
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
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
Oups, j'avais lu trop vite, c'est AV qui a tout bon :')
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
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 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 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 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 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 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
*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
*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
*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
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 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.
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.
*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
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
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
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