Bonjour,
J'ai ce code simple, mais je souhaiterais que ces 2 fonctions fonctionne correctement :
Sub Test()
Dim A as integer
Dim B as integer
Dim C as integer
Dim D as boolean
D = False
A = cells(1,1).value
B = cells(2,1).value
C = calcul(A, B)
D = valide(C,D)
if D = True then
msgbox("VALIDE")
else
msgbox("INVALIDE")
end if
End Sub
Function calcul(A,B)
'calcul à faire + retourner'
AxB
End Function
Function valide(ByVal C As String, ByRef D As Boolean)
if C = 2 then
D = true
else
D = false
end if
End Function
La fonction calcul devrait permettre d'effectuer le calcul et la valide permet de changer D (boolean) en true ou false selon un simple test.
Comment communiquer des variables à des fonctions et retourner un boolean, ou alors communiquer des variables et retourner les variables modifié ?
D'avance merci pour votre aide.