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
A voir également:
- Vba nombre entier
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Excel compter cellule couleur sans vba - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Nombre de page - Guide
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