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
Partager