Programme en VBA

[Ivania_s]

Bonjour,

Alors j'ai plusieurs questions... Mon proff me dit ceci :

- Écrire un programmequi fait la saisie de 2 Nombres N1 et N2 différents de 0, qui calcule le quotient exact et le reste de la division N1 et N2 et qui édite les valeurs calculées.
Exemple: N1=27 ; N2 = 6, alors le quotient est 4 et le reste est 3 donc (27:6=4 RESTE 3)

Il faut alors le mettre en programme VBA c'est à dire Sub ....
End sub

Je n'arrive pas à développer la question.

Est-ce que qqn pourrait m'aider stp 🙂?

 

[vgendron]

Re : Programme en VBA

Bonjour..
alors;. comment t'aider. sans le faire à ta place. j'imagine que ton prof a pour but de vous faire chercher et comprendre..
quelques pistes donc:
pour que le programme (macro) demande à l'utilisateur (toi) de saisir des valeurs N1 et N2: utiliser INPUTBOX
pour faire le calcul les fonctions ENT et MOD
pour afficher le résultat: MSGBOX

dans l'éditeur de macro VBA (à partir d'excel, tu fais ALT+F11) tu vas voir l'aide sur chacun de ces éléments:
et normalement, les exemples fournis devraient te permettre d'avancer à grands pas..

après. évidemment, on est la pour t'éclaircir..
bon courage et à bientôt ;-)

Edit: bonsoir Dranreb... hohoho. je viens tout juste de réaliser pour le pseudo... ;-)

 

[Dranreb]

Re : Programme en VBA

Bonsoir.
Où est ce que vous butez exactement ?
Ça devrait prendre 3 lignes de code en dehors de la Sub et de la End Sub
Quelques indices: opérateurs \ et Mod, …Box
À +

Bonsoir vgendron

 

[laurent950]

Re : Programme en VBA

Bonsoir,

Peut êtres une piste, corriger les erreurs eventuel :

Sub test()

Dim NB1 As Double
Dim NB2 As Double
Dim Res As Double
Dim Quotient As Double
Dim Reste As Double

Do
MsgBox "Info : Tant que la valeur NB1 est égale à Zero Resaisir"
NB1 = InputBox("Valeur", "Saisir un nombre 1", 0)
Loop While (NB1 = 0)

Do
MsgBox "Info : Tant que la valeur NB2 est égale à Zero Resaisir"
NB2 = InputBox("Valeur", "Saisir un nombre 2", 0)
Loop While (NB2 = 0)

' Division
Res = NB1 / NB2

' Cherche la position du caractere ","
pos = InStr(Res, ",")

' Quotient a Virgule
Quotient = Left(Res, pos - 1)
MsgBox "Le Quotient est : " & Quotient

' Rest a Droite de la virugle
Reste = Right(Res, pos - 1)
MsgBox "Le Reste est : " & Reste

End Sub

Laurent

 

[Yaloo]

Re : Programme en VBA

Bonsoir Ivania_s et bienvenu sur le forum,

Alors pour te mettre sur la voie (car si le proff le demande, il ne faut pas que l'on te mâche tout le boulot 😉 ):

Le quotient, c'est un arrondi donc Round

Le reste il faut utiliser Mod

A toi de faire le reste.

A te relire

Martial

Edit : Bonsoir à tous les participants, j'suis super à la bourre, va falloir que je rafraichisse plus souvent 🙂

 

[Habitude]

Re : Programme en VBA

Bonjour à tous.

A question posé, il est un peu tard pour un examen de conscience.