Faire l'addition d'une variable et recuperer sa valeur dans une texbox

al1908bn Messages postés 11 Date d'inscription jeudi 23 décembre 2004 Statut Membre Dernière intervention 12 août 2007 - 4 févr. 2006 à 11:08
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 4 févr. 2006 à 11:15
salut ,ma question et de savoir comment faire l'addition d'un nombre et recuperer sa valeur dans une textbox,exemple:
ma variable est un chiffre ex : 123456789 ,entrer dans un text box
comment recuperer 1+2+3+4+5+6+7+8+9 dans un autre textbox
merci!!

1 réponse

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
4 févr. 2006 à 11:15
Salut:
Dim t As String
Dim i As Integer
Dim somme As Long
t = "123456789"
For i = 1 To Len(t)
somme = somme + CInt(Mid(t, i, 1))
Next
MsgBox somme


Et voila,

@+
Julien
0
Rejoignez-nous