conseilVBA
Messages postés23Date d'inscriptionlundi 11 avril 2011StatutMembreDernière intervention19 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.