Programmation VBA somme des chiffres d'un entier [Résolu/Fermé]

Signaler
-
 Cass -
Bonjour,
J'ai crée un programme mais il ne fonctionne pas , j'aimerais savoir si quelqu'un pourrait m'aider :

Sub SommeChiffres()

    Dim N As Integer
    Dim U As Integer
    Dim r As Integer
    Dim S As Integer


    U = N
    S = 0
N = InputBox(" donner la valeur de n", " question", "")

        
        While U > 10
            r = U Mod 10
            S = S + r
            U = U \ 10
        Wend
  
Call MsgBox(" la réponse est " & réponse, 0, "S")

End Sub





1 réponse

Messages postés
15270
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 août 2020
1 325
Bonjour,

Sub SommeChiffres()
    Dim N As Integer
    Dim U As Integer
    Dim r As Integer
    Dim S As Integer

    N = InputBox(" donner la valeur de n", " question", "")
    U = N
    S = 0

    While U > 0
        S = S + U Mod 10
        U = U \ 10
    Wend
    Call MsgBox(" la réponse est : " & S, 0)
End Sub
Merci beaucoup !
Bonjour , j'ai un probleme avec ce programme là pouvez vous m'aider a trouver l'erreur s'il vous plait !

Sub TableauMaxMin()
Dim T() As Integer
Dim Max As Integer
Dim Min As Integer
Dim i As Byte
Dim n As Byte

n = CInt(InputBox("donner la valeur de n ", " question", "5"))
ordre = CInt(InputBox("donner la valeur maximale ", " question", "100"))
ReDim T(1 To n) As Integer

Max = 0
Min = 32767

For i = 1 To n
T(i) = Int(ordre * Rnd)
'Rnd permet d'obtenir un valeur aléatoire en 0 et 1
Selection.Offset(0, 1).Value = T(i)

If T(i) > Max Then
Max = T(i)
ElseIf T(i) < Min Then
Min = T(i)
End If
Next

Call MsgBox(" la valeur maximum est " & Max, " la valeur minimum est " & Min)

End Sub