Trop d'arguments dans une fonction excel

Fermé
conseilVBA Messages postés 23 Date d'inscription lundi 11 avril 2011 Statut Membre Dernière intervention 19 mai 2011 - 16 mai 2011 à 12:57
Bonjour,

Alors voila j'ai écrit une macro
Function Pressionvapeureau(Pe, Hr, HakgAS, HakgAH, HaNm3, Ham3, TV, EkgAS, EkgAH, ENm3, Em3, M, Mr, Qm3AH, QNm3AH, Qm3AS, QNM3AS, Qm3eau, QNm3eau, QkgAH, QkgAS, Qkgeau, PAH, PAS, Peau, P2, Pe2, Pvs2, T2, Hr2, HakgAS2, HakgAH2, HaNm32, Ham32, TV2, EkgAS2, EkgAH2, ENm32, Em32, M2, Mr2)

If Not IsEmpty(T) And Not IsEmpty(Hr) Then
Pressionvapeureau = Pvs2 * Hr2
Else
If Not IsEmpty(HakgAS) Or Not IsEmpty(HakgAH) Or Not IsEmpty(EkgAS) And Not IsEmpty(T) Or Not IsEmpty(Ham3) And Not IsEmpty(Mr) Or Not IsEmpty(QkgAS) And Not IsEmpty(Qkgeau) Or Not IsEmpty(Ham3) And Not IsEmpty(Qm3AH) And Not IsEmpty(QkgAH) Or Not IsEmpty(T) And Not IsEmpty(QkgAS) And Not IsEmpty(PAS) Then
Pressionvapeureau = (HakgAS2 * Mas * P2) / (1000 * Mh2o + HakgAS2 * Mas)
Else
If Not IsEmpty(HaNm3) Or Not IsEmpty(M) And Not IsEmpty(TV) Or Not IsEmpty(T) And Not IsEmpty(Ham3) Or Not IsEmpty(T) And Not IsEmpty(Mr) Or Not IsEmpty(Mr) And Not IsEmpty(Qm3AH) And Not IsEmpty(QNm3AH) Or Not IsEmpty(Qm3AH) And Not IsEmpty(QkgAH) And Not IsEmpty(T) Or Not IsEmpty(Qm3AH) And Not IsEmpty(Qm3eau) Then
Pressionvapeureau = TV2 * P2
Else
If Not IsEmpty(Pe) Then
Pression vapeureau = Pe
Else
Pressionvapeureau = "donnée manquante"
End If


End Function


Mais quand je vais sur excel et que j'appelle cette fonction, excel m'empêche de rentrer tous les arguments dont j'ai besoin.

Savez vous comment je pourrai faire?

Merci
A voir également: