Discussion :

[gerald57]

Bonjour j'écrit exactement l'exemple d'un livre et ca ne marche pas une idée?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim nbr1, nbr2, res As Integer
 
nbr1 = 5
nbr2 = 5
res = addition(nbr1, nbr2)
MsgBox (res)
 
 
End Sub
Function addition(val1 As Integer, val2 As Integer) As Integer
 
 
Dim res As Integer
res = val1 + val2
 
 
 
End Function

[patbou]

bonsoir,

en vba contrairement a bcp de langage , il faut declarer le type après chaque variable sinon la variable est de type variant

Code :

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

1
2
3

Dim nbr1 as integer, nbr2 as integer, res As Integer

[fring]

Bonjour,

Première petite remarque concernant la déclaration de tes variables

Code :

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

Dim nbr1, nbr2, res As Integer

écrit comme ça, cela correspond à nbr1 As Variant, nbr2 As Variant, res As Integer. Le type doit être précisé pour chaque variable sinon elle prend par défaut le type Variant. Cela fonctionnera aussi mais prendra de la mémoire inutilement.

Donc la bonne méthode est

Code :

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

Dim nbr1 As Integer, nbr2 As Integer, res As Integer

Concernant le premier code, la solution est

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim nbr1 As Integer, nbr2 As Integer, res As Integer
 
nbr1 = 5
nbr2 = 5
 
res = addition(nbr1, nbr2)
MsgBox res
 
End Sub

Concernant ta fonction, essaye ceci :

Code :

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

1
2
3
4
5
Function addition(val1 As Integer, val2 As Integer) As Integer
 
addition = val1 + val2
 
End Function

EDIT : je n'avais pas compris ce que tu voulais faire, j'ai corrigé le code en fonction