Discussion :

[Maxence45]

Bonjour , j'ai écrit la macro suivante dans VBE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub pap()
    Dim a As Integer
    a = multiplication(a, 10)
    a = soustraction(a, 10)
    a = quotient(a, 10)
    a = addition(a, 10)
    a = multiplication(a, soustraction(a, 9))
    a = addition(a, 10)
    a = quotient(a, 2)
    a = quotient(a, 10)
    MsgBox a
End Sub

quand je positionne mon curseur dvt sub pap et que j'appuie sur F8 çà me met la ligne sur fond jaune , celà veut dire quoi ? que dois je faire ensuite ?

et quand j'appuie sur F5 çà me renvoit dans une fenêtre Microsoft Excel le chiffre 0 , je pense avoir une idée du pq mais quelqu'un aurait il une explication ?

merci

[Invité]

Bonjour

Ta routine ne risque pas de fonctionner, elle vient d'où la valeur a ?

[Maxence45]

ben a n'a pas de valeur on m'a juste dit de tester çà comme çà...

[Invité]

Ton a a la valeur 0.

En faisant F5 tu dois avoir dans une boite de dialogue le résultat de la fonction quotient(0,10), soit la dernière.

[Maxence45]

ok j'ai compris le truc mais le F8 il sert à rien alors finalement , vu que le F5 m'exécute la ligne... ?

[Invité]

F8 c'est pour exécuter du code pas à pas, F5 c'est pour l'exécuter.
Apprends d'abord à utiliser la barre de menu avant d'utiliser les raccourcis claviers.

[Pierre Fauconnier]

ben a n'a pas de valeur on m'a juste dit de tester çà comme çà...

C'est de l'arithmétique de base, et du VBA de base!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim a as integer

signifie que tu déclares que tu vas utiliser une variable appelée a et qu'elle est de type integer (voir via ).

VBA affecte une valeur par défaut aux variables typées (déclarées avec as ...). Pour les types numériques, cette valeur par défaut est zéro (0).
Donc, au début de ta procédure, A vaut 0. Cela explique le résultat de ta procédure.

Pour pouvoir tester un calcul cohérent, attribue une valeur à A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub pap()
    Dim a As Integer ' déclare une variable a de type integer
    a = 4 ' attribue à la variable a la valeur 4
    a = multiplication(a, 10)
    a = soustraction(a, 10)
    a = quotient(a, 10)
    a = addition(a, 10)
    a = multiplication(a, soustraction(a, 9))
    a = addition(a, 10)
    a = quotient(a, 2)
    a = quotient(a, 10)
    MsgBox a
End Sub

Si les fonctions utilisées ([Bmultiplication, addition, soustraction, quotien[/B] sont correctes, tu auras une réponse <> 0 dans le message en fin de procédure.

Ok?