Bonjour,

Voici un exemple (ma question) avec ces macros (Excel 2007)
J'aimerai récupérer par le pgm appelant la valeur modifiée du paramètre par le pgm appelé
C'est à dire que numbeeps ait la valeur 7 dans Message (msg1)

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
20
21
Private numbeeps As Integer
 
Sub Main()
numbeeps = 5
Multibeep (numbeeps)
Message
End Sub
 
Sub Multibeep(numbeeps)
For counter = 1 To numbeeps
Beep
Next counter
numbeeps = 7
Message
End Sub
 
Sub Message()
msg1 = numbeeps
msg2 = " = valeur de numbeeps"
MsgBox msg1 & " " & msg2
End Sub
Merci