Programmation VBA somme des chiffres d'un entier

Résolu

Cassandra -
Cass - 22 nov. 2015 à 17:13

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

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
Vba attendre 1 seconde ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Cassandra

Merci beaucoup !

Cass

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

GTO saison 2 ?

Great Teacher Onizuka SAISON 2

ou trouver la saison 2 de gto ?

Votre réponse

Discussions similaires