[VBA] définition plage de données

Function MaSommeSi(Col1 As String, Code As String, Col2 As String) As Integer
Dim Pla1, Pla2 As Range
Dim Chem, Fich, Ong As String
Dim Wb As Workbook

On Error GoTo erreur_fonction
Chem = Range("Chemin").Cells & "\"
Fich = Range("fichier").Cells
Ong = Range("onglet").Cells

' recherche du fichier si chargé en mémoire
For Each Wb In Workbooks
    If Wb.Name = Fich Then Exit For
Next Wb
' -----------------------------------------
' si fichier non chargé en mémoire, on procède à son ouverture ------
If Wb Is Nothing Then
    Set wb_save = ActiveWorkbook      'sauvegarde du classeur activé
    Workbooks.Open (Chem & Fich)
    Set Wb = ActiveWorkbook
    wb_save.Activate                  'réactivation du classeur sauvegardé
End If
' -------------------------------------------------------------------------------

Set Pla1 = Wb.Worksheets(Ong).Columns(Col1 & ":" & Col1)
Set Pla2 = Wb.Worksheets(Ong).Columns(Col2 & ":" & Col2)

MaSommeSi = Application.WorksheetFunction.SumIf(Pla1, Code, Pla2)
Exit Function

erreur_fonction:
    MsgBox Err.Description

End Function

si par exemple col1 = colonne A, col2 = colonne B, code = 1, il faut entrer =MaSommeSi("A";1;"B")

par ailleurs, il faut charger le fichier en mémoire car l'ouverture du fichier ne se fait pas en mode fonction. Donc modifier le code ainsi

Function MaSommeSi(Col1 As String, Code As String, Col2 As String) As Integer
Dim Pla1, Pla2 As Range
Dim Chem, Fich, Ong As String
Dim Wb As Workbook

On Error GoTo erreur_fonction
Chem = Range("Chemin").Cells & "\"
Fich = Range("fichier").Cells
Ong = Range("onglet").Cells

' recherche du fichier si chargé en mémoire
For Each Wb In Workbooks
    If Wb.Name = Fich Then Exit For
Next Wb
If Wb Is Nothing Then
    MsgBox "erreur : classeur " & Fich & " non chargé"
    Exit Function
End If

Set Pla1 = Wb.Worksheets(Ong).Columns(Col1)
Set Pla2 = Wb.Worksheets(Ong).Columns(Col2)

MaSommeSi = Application.WorksheetFunction.SumIf(Pla1, Code, Pla2)
Exit Function

erreur_fonction:
    MsgBox Err.Description

End Function
 

pour tenir compte de l'apport d'Eriic, le code doit donc être modifié ainsi :

Function MaSommeSi(Col1 As String, Code As String, Col2 As String) As Integer

Application.Volatile

Dim Pla1, Pla2 As Range
Dim Fich, Ong
Dim Wb As Workbook
Dim nom As Name
On Error GoTo erreur_fonction

For Each nom In ActiveWorkbook.Names
    If nom.Name = "fichier" Then Fich = Range("fichier").Cells
    If nom.Name = "onglet" Then Ong = Range("onglet").Cells
Next nom
    If IsEmpty(Fich) Then Fich = ActiveWorkbook.Name
    If IsEmpty(Ong) Then Ong = ActiveSheet.Name

' recherche du fichier si chargé en mémoire
For Each Wb In Workbooks
    If Wb.Name = Fich Then Exit For
Next Wb
If Wb Is Nothing Then
    MsgBox "erreur : classeur " & Fich & " non chargé"
    Exit Function
End If

Set Pla1 = Wb.Worksheets(Ong).Columns(Col1)
Set Pla2 = Wb.Worksheets(Ong).Columns(Col2)

MaSommeSi = Application.WorksheetFunction.SumIf(Pla1, Code, Pla2)
Exit Function

erreur_fonction:
    MsgBox Err.Description

End Function