Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
'------------------------- Sub test() Dim S As Long, T As String T = 12365 For a = 1 To Len(T) S = S + Mid(T, a, 1) Next MsgBox "La somme des éléments de " & T & _ " est de " & S
End Sub '-------------------------
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
'-------------------------
Sub test()
Dim S As Long, T As String
T = 12365
For a = 1 To Len(T)
S = S + Mid(T, a, 1)
Next
MsgBox "La somme des éléments de " & T & _
" est de " & S
End Sub
'-------------------------
"Jed" <Jed@discussions.microsoft.com> a écrit dans le message de news:
158252BB-9E93-41E4-A466-52F30A82AF69@microsoft.com...
Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
'------------------------- Sub test() Dim S As Long, T As String T = 12365 For a = 1 To Len(T) S = S + Mid(T, a, 1) Next MsgBox "La somme des éléments de " & T & _ " est de " & S
End Sub '-------------------------
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
MichDenis
Tu peux aussi créer une fonction personnalisée :
'------------------------ Sub test() MsgBox Selt(12345) End Sub '------------------------ Function Selt(T As String) As Long On Error Resume Next For a = 1 To Len(T) Selt = Selt + Mid(T, a, 1) Next End Function '------------------------
"MichDenis" a écrit dans le message de news:
'------------------------- Sub test() Dim S As Long, T As String T = 12365 For a = 1 To Len(T) S = S + Mid(T, a, 1) Next MsgBox "La somme des éléments de " & T & _ " est de " & S
End Sub '-------------------------
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Tu peux aussi créer une fonction personnalisée :
'------------------------
Sub test()
MsgBox Selt(12345)
End Sub
'------------------------
Function Selt(T As String) As Long
On Error Resume Next
For a = 1 To Len(T)
Selt = Selt + Mid(T, a, 1)
Next
End Function
'------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eeBfas6QHHA.1000@TK2MSFTNGP05.phx.gbl...
'-------------------------
Sub test()
Dim S As Long, T As String
T = 12365
For a = 1 To Len(T)
S = S + Mid(T, a, 1)
Next
MsgBox "La somme des éléments de " & T & _
" est de " & S
End Sub
'-------------------------
"Jed" <Jed@discussions.microsoft.com> a écrit dans le message de news:
158252BB-9E93-41E4-A466-52F30A82AF69@microsoft.com...
Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
'------------------------ Sub test() MsgBox Selt(12345) End Sub '------------------------ Function Selt(T As String) As Long On Error Resume Next For a = 1 To Len(T) Selt = Selt + Mid(T, a, 1) Next End Function '------------------------
"MichDenis" a écrit dans le message de news:
'------------------------- Sub test() Dim S As Long, T As String T = 12365 For a = 1 To Len(T) S = S + Mid(T, a, 1) Next MsgBox "La somme des éléments de " & T & _ " est de " & S
End Sub '-------------------------
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Jacques93
Bonjour Jed,
Sans passer par une chaîne :
Dim l As Long, r As Long, t As Long
l = 3537 r = 0: t = 0 t = l While t > 0 r = r + (t - ((t 10) * 10)) t = (t 10) Wend MsgBox r
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
-- Cordialement,
Jacques.
Bonjour Jed,
Sans passer par une chaîne :
Dim l As Long, r As Long, t As Long
l = 3537
r = 0: t = 0
t = l
While t > 0
r = r + (t - ((t 10) * 10))
t = (t 10)
Wend
MsgBox r
Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
l = 3537 r = 0: t = 0 t = l While t > 0 r = r + (t - ((t 10) * 10)) t = (t 10) Wend MsgBox r
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
-- Cordialement,
Jacques.
garnote
Bonjour Jed,
Si ton nombre se trouve dans la cellule A1 :
Sub Addition() Dim n As String Dim s As Long n = Range("A1").Value For i = 1 To Len(n) s = s + Mid$(n, i, 1) Next i MsgBox s End Sub
Serge
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Bonjour Jed,
Si ton nombre se trouve dans la cellule A1 :
Sub Addition()
Dim n As String
Dim s As Long
n = Range("A1").Value
For i = 1 To Len(n)
s = s + Mid$(n, i, 1)
Next i
MsgBox s
End Sub
Serge
"Jed" <Jed@discussions.microsoft.com> a écrit dans le message de news: 158252BB-9E93-41E4-A466-52F30A82AF69@microsoft.com...
Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
Sub Addition() Dim n As String Dim s As Long n = Range("A1").Value For i = 1 To Len(n) s = s + Mid$(n, i, 1) Next i MsgBox s End Sub
Serge
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Merci MichDenis. C'est exactement ce qu'il me faut. Je vais developper la dessus. Merci encore. C'est super sympa.
Cdlt
Tu peux aussi créer une fonction personnalisée :
'------------------------ Sub test() MsgBox Selt(12345) End Sub '------------------------ Function Selt(T As String) As Long On Error Resume Next For a = 1 To Len(T) Selt = Selt + Mid(T, a, 1) Next End Function '------------------------
"MichDenis" a écrit dans le message de news:
'------------------------- Sub test() Dim S As Long, T As String T = 12365 For a = 1 To Len(T) S = S + Mid(T, a, 1) Next MsgBox "La somme des éléments de " & T & _ " est de " & S
End Sub '-------------------------
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Merci MichDenis.
C'est exactement ce qu'il me faut. Je vais developper la dessus.
Merci encore. C'est super sympa.
Cdlt
Tu peux aussi créer une fonction personnalisée :
'------------------------
Sub test()
MsgBox Selt(12345)
End Sub
'------------------------
Function Selt(T As String) As Long
On Error Resume Next
For a = 1 To Len(T)
Selt = Selt + Mid(T, a, 1)
Next
End Function
'------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eeBfas6QHHA.1000@TK2MSFTNGP05.phx.gbl...
'-------------------------
Sub test()
Dim S As Long, T As String
T = 12365
For a = 1 To Len(T)
S = S + Mid(T, a, 1)
Next
MsgBox "La somme des éléments de " & T & _
" est de " & S
End Sub
'-------------------------
"Jed" <Jed@discussions.microsoft.com> a écrit dans le message de news:
158252BB-9E93-41E4-A466-52F30A82AF69@microsoft.com...
Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
Merci MichDenis. C'est exactement ce qu'il me faut. Je vais developper la dessus. Merci encore. C'est super sympa.
Cdlt
Tu peux aussi créer une fonction personnalisée :
'------------------------ Sub test() MsgBox Selt(12345) End Sub '------------------------ Function Selt(T As String) As Long On Error Resume Next For a = 1 To Len(T) Selt = Selt + Mid(T, a, 1) Next End Function '------------------------
"MichDenis" a écrit dans le message de news:
'------------------------- Sub test() Dim S As Long, T As String T = 12365 For a = 1 To Len(T) S = S + Mid(T, a, 1) Next MsgBox "La somme des éléments de " & T & _ " est de " & S
End Sub '-------------------------
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Jed
Merci Jacques;
Je commence a mieux cerner le problème grace a toutes vos infos.
Merci à tous. Cdlt Jed
Bonjour Jed,
Sans passer par une chaîne :
Dim l As Long, r As Long, t As Long
l = 3537 r = 0: t = 0 t = l While t > 0 r = r + (t - ((t 10) * 10)) t = (t 10) Wend MsgBox r
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
-- Cordialement,
Jacques.
Merci Jacques;
Je commence a mieux cerner le problème grace a toutes vos infos.
Merci à tous.
Cdlt
Jed
Bonjour Jed,
Sans passer par une chaîne :
Dim l As Long, r As Long, t As Long
l = 3537
r = 0: t = 0
t = l
While t > 0
r = r + (t - ((t 10) * 10))
t = (t 10)
Wend
MsgBox r
Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
Je commence a mieux cerner le problème grace a toutes vos infos.
Merci à tous. Cdlt Jed
Bonjour Jed,
Sans passer par une chaîne :
Dim l As Long, r As Long, t As Long
l = 3537 r = 0: t = 0 t = l While t > 0 r = r + (t - ((t 10) * 10)) t = (t 10) Wend MsgBox r
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
-- Cordialement,
Jacques.
Jed
Merci garnote,
Effectivement la valeur est en A1 et ta solution m'aide aussi beaucoup
Cdlt Jed
Bonjour Jed,
Si ton nombre se trouve dans la cellule A1 :
Sub Addition() Dim n As String Dim s As Long n = Range("A1").Value For i = 1 To Len(n) s = s + Mid$(n, i, 1) Next i MsgBox s End Sub
Serge
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Merci garnote,
Effectivement la valeur est en A1 et ta solution m'aide aussi beaucoup
Cdlt
Jed
Bonjour Jed,
Si ton nombre se trouve dans la cellule A1 :
Sub Addition()
Dim n As String
Dim s As Long
n = Range("A1").Value
For i = 1 To Len(n)
s = s + Mid$(n, i, 1)
Next i
MsgBox s
End Sub
Serge
"Jed" <Jed@discussions.microsoft.com> a écrit dans le message de news: 158252BB-9E93-41E4-A466-52F30A82AF69@microsoft.com...
Bonjour a tous,
J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres
composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7.
J'ai essayé split mais je galère un peu .
Je peux connaitre la longueur du nombre par len() mais comme faire une
boucle pour additionner les differents chiffres?
Merci de vos conseils.
Cdlt
Jed
Effectivement la valeur est en A1 et ta solution m'aide aussi beaucoup
Cdlt Jed
Bonjour Jed,
Si ton nombre se trouve dans la cellule A1 :
Sub Addition() Dim n As String Dim s As Long n = Range("A1").Value For i = 1 To Len(n) s = s + Mid$(n, i, 1) Next i MsgBox s End Sub
Serge
"Jed" a écrit dans le message de news:
Bonjour a tous, J'aimerai savoir comment codé une addition en vba qui prendrait les chiffres composant un nombre? Exemple : j'ai 3537 j'aimerai aditionné 3+5+3+7. J'ai essayé split mais je galère un peu . Je peux connaitre la longueur du nombre par len() mais comme faire une boucle pour additionner les differents chiffres? Merci de vos conseils. Cdlt Jed
Jed
Merci mais je voulais un truc en vba parceque j'ai plein de choses a faire encore avec.