Programmation VBA somme des chiffres d'un entier

Résolu/Fermé

Cassandra - Modifié par pijaku le 20/11/2015 à 11:09
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 facile - Télécharger - Outils professionnels
Vba attendre 1 seconde ✓ - Forum VB / VBA
Le nombre de tentatives de déverrouillage incorrectes est trop élevé samsung ✓ - Forum Samsung
En raison d'un nombre important d'échec de connexion snapchat ✓ - Forum Snapchat
Vba récupérer valeur cellule ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
19 nov. 2015 à 07:20

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
20 nov. 2015 à 02:08

Merci beaucoup !

Cass
22 nov. 2015 à 17:13

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

Accès a Snapchat temporairement désactivé

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel