XL 2016 Erreur 438 avec fonction WorksheetFunction.SumIfs

[maroon]

Bonjour,

J'ai essayer le code suivant qu'on m'a aidé à écrire mais il y une erreur 438: "Propriété ou méthode non géré par cette objet".

Sub Maroon()
Dim ws As Worksheet, ws2 As Worksheet
Dim rng As Range
Dim Dercol As Long, Derlig As Long, Col As Long

Set ws = Worksheets("BASE")
Set ws2 = Worksheets("RECAP")

With ws

    Derlig = .Range("A" & Rows.Count).End(xlUp).Row
    Dercol = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    Set rng = .Cells(2, 1).Resize(Derlig - 1, Dercol)

End With
    

For Col = 2 To Dercol
    ws2.Cells(3, Col + 1).Value = WorksheetFunction.SumIfs(rng.colums(Col), rng.Columns(1), "AN") _
                                 + WorksheetFunction.SumIfs(rng.colums(Col), rng.Columns(1), "AN_M") _
                                 + WorksheetFunction.SumIfs(rng.colums(Col), rng.Columns(1), "AN_P")
Next Col

      
  
End Sub

Est-ce quelqu'un pourrait m'aider car je n'arrive pas à trouver le problème!😳

Merci d'avance pour votre aide!

 

[sylvanu]

Bonjour Maroon,
Ce n'est pas "colums" mais "Columns". 😉
( Astuce : Quand VBA reconnait un mot clé, il met la première lettre en majuscule.
colums n'a pas de majuscule, donc il faut comprendre qu'il n'est pas reconnu )

 

[maroon]

Nonnnnn!! Ca fait un moment que je cherche et je l'avais pas vu!!
Merci beaucoup Sylvanu pour votre aide! et pour l'astuce😉
Maintenant ça fonctionne!!😀