Programmation VBA somme des chiffres d'un entier
Résolu
Cassandra
-
Cass -
Cass -
Bonjour,
J'ai crée un programme mais il ne fonctionne pas , j'aimerais savoir si quelqu'un pourrait m'aider :
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
-
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-
-
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
-
