Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionpublic sub test() dim i as integer i = 1 call test2(i) msgbox i end sub public sub test(byval i as integer) i = i + 1 msgbox i end sub
public sub test() dim i as integer i = 1 call test2(i) msgbox i end sub public sub test(byref i as integer) i = i + 1 msgbox i end sub
call test2(i)
Public Function Minutes100enMinutes60(minutes As Integer) As String Minutes100enMinutes60 = Format((Int(minutes * 60)) / 100, "00") End Function
public sub test msgbox Minutes100enMinutes60(15) end sub
public sub test dim i as integer for i = 0 to 10 if i = 8 then call trouver(i) end if next i end sub public sub trouver(i as integer) msgbox i end sub