XL 2016 Erreur 438 avec fonction WorksheetFunction.SumIfs

maroon

XLDnaute Junior
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".
VB:
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!:oops:

Merci d'avance pour votre aide!
 
Solution
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 )

Discussions similaires

Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088