问非活动工作表中Excel中UDF更新中的错误

EN

Public Function Test(Donnees As Range)

Dim Nombre_Cellules, Temp As Double
Dim Format_Donnees As String

Temp = 0


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                                                                                   '
'       Parametres utiles generaux                                                  '
'                                                                                   '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Nb_Lignes = Donnees.Rows.Count
Nb_Colonnes = Donnees.Columns.Count
Premiere_Ligne = Donnees.Row
Premiere_Colonne = Donnees.Column
Derniere_Ligne = Donnees.Row + Nb_Lignes - 1
Derniere_Colonne = Donnees.Column + Nb_Colonnes - 1



'On definit la frequence et la taille associee
If Nb_Lignes = 1 Then
    Format_Donnees = "Colonnes"
    Nombre_Cellules = Nb_Colonnes
End If
If Nb_Colonnes = 1 Then
    Format_Donnees = "Lignes"
    Nombre_Cellules = Nb_Lignes
End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                                                                                   '
'       Verifications des parametres et messages d'erreurs                          '
'                                                                                   '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'On verifie que la plage renseignée est soit sur une seule ligne soit sur une seule colonne
If (Nb_Lignes <> 1 And Nb_Colonnes <> 1) Then
        MsgBox _
            "La plage de données considérée est incorrecte, il ne peut s'agir que " & vbNewLine & _
            Chr(149) & " de données sur une seule ligne ou " & vbNewLine & _
            Chr(149) & " de données sur une seule colonne" _
            , , "Parametres incorrects"
        Test = CVErr(xlErrRef)
        Exit Function
End If


'On verifie que toute la période qui sert au calcul contient bien des valeurs numériques et ne contient pas de valeurs vides
If Format_Donnees = "Lignes" Then
    For i = 0 To Nombre_Cellules - 1
        If Not IsNumeric(Cells(Premiere_Ligne + i, Premiere_Colonne).Value) Then
            MsgBox _
            "La plage de donnée considérée est incorrecte" & vbNewLine & _
            "Toutes les cellules nécessaires au calcul dans la colonne ne sont pas numériques" _
            , , "Parametres incorrects"
            Test = CVErr(xlErrRef)
            Exit Function
        End If
        If (Cells(Premiere_Ligne + i, Premiere_Colonne).Value = "") Then
            MsgBox _
            "La plage de donnée considérée est incorrecte" & vbNewLine & _
            "Une cellule de la colonne considérée est vide et semble avoir une valeur manquante" _
            , , "Parametres incorrects"
            Test = CVErr(xlErrRef)
            Exit Function
        End If
    Next
End If
If Format_Donnees = "Colonnes" Then
    For i = 0 To Nombre_Cellules - 1
        If Not IsNumeric(Cells(Premiere_Ligne, Premiere_Colonne + i).Value) Then
            MsgBox _
            "La plage de donnée considérée est incorrecte" & vbNewLine & _
            "Toutes les cellules nécessaires au calcul dans la ligne ne sont pas numériques" _
            , , "Parametres incorrects"
            Test = CVErr(xlErrRef)
            Exit Function
        End If
        If (Cells(Premiere_Ligne, Premiere_Colonne + i).Value = "") Then
            MsgBox _
            "La plage de donnée considérée est incorrecte" & vbNewLine & _
            "Une cellule de la ligne considérée est vide et semble avoir une valeur manquante" _
            , , "Parametres incorrects"
            Test = CVErr(xlErrRef)
            Exit Function
        End If
    Next
End If


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                                                                                   '
'                           Calculs a proprement parler                             '
'                                                                                   '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


If Format_Donnees = "Lignes" Then
    For i = 0 To Nombre_Cellules - 1
        Temp = Temp + Cells(Premiere_Ligne + i, Premiere_Colonne).Value
    Next
End If
If Format_Donnees = "Colonnes" Then
    For i = 0 To Nombre_Cellules - 1
        Temp = Temp + Cells(Premiere_Ligne, Premiere_Colonne + i).Value
    Next
End If

Test = Temp
End Function