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