' ======== Calcule la norme d'un vecteur de dimension 3 en ligne ou en colonne - Résultat dans cellule unique
Function NormeVec(Vec As Variant)
Application.Volatile
Dim V As Variant, Reponse As Variant
' ----- Vérification
MsgBox Application.Caller(2).Address & " " & Application.Caller(2).Rows.Count & " " & Application.Caller(2).Columns.Count
If Application.Caller.Rows.Count > 1 Or Application.Caller.Columns.Count > 1 Then
Reponse = MsgBox("La plage de résultat doit être une cellule unique!", vbOKOnly & vbCritical, "Erreur")
Exit Function
End If
' ----- Traitement etc...
End Function
' ========= Effectue le produit vectoriel de 2 vecteurs de dimension 3 en ligne ou en colonne - Résultat : en colonne ou en ligne
Function ProdVec3(Vec1 As Variant, Vec2 As Variant, Optional VraiSiResultEnLigne As Boolean)
Application.Volatile
Dim V1 As Variant, V2 As Variant, Reponse As Variant
Dim TabRes(3) As Double
' ----- Vérification
MsgBox Application.Caller.Address & " " & Application.Caller.Rows.Count & " " & Application.Caller(2).Columns.Count
If Application.Caller.Rows.Count <> 3 Or Application.Caller.Columns.Count <> 3 Then
Reponse = MsgBox("La plage de résultat doit être une cellule unique!", vbOKOnly & vbCritical, "Erreur")
Exit Function
End If
' ----- Traitement etc ....
End Function