Incrémenter la colonne dans l'objet "Range"

Bonjour,

J'ai un problème avec l'objet "Range". J'aimerais savoir comment on peut incrémenter les colonnes?

Dans mon code j'ai:

DerLig = .Range("A" & Rows.Count).End(xlUp).Row
Dercol = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column

Puis dans mes lignes suivantes:

Sheets("RECAP").Cells(3, j + 1).Value = Application.WorksheetFunction.SumIfs(Sheets("BASE").Range("B2:B" & DerLig), Sheets("BASE").Range("A2:A" & DerLig), "AN") _

Mon problème c'est que j'aimerais incrémenter la colonne, donc appliquer la fonction à la colonne B2, puis B3... jusqu'à la dernière colonne non vide "Dercol". (Les résultats pour chaque colonne sont aussi écrits dans une nouvelle colonne "j + 1")

Est-ce que quelqu'un pourrait m'aider???!!!

Bonjour,

Pour le principe.

Cdlt.

Public 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.Columns(Col), rng.Columns(1), "AN")
    Next Col

End Sub

Bonjour,

Merci pour votre aide!

J'ai essayé avec le code que vous m'avez envoyé mais il y a une erreur 438 "propriété ou méthode non gérée par cet 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

J'ai tenté de modifier certaines choses mais ça me donne toujours le même message.

Vous voyez d'où ça peut venir?

Merci encore!

C'est bon en fait c'est juste qu'il y avait une faute de frappe à "colums" au lieu de "columns"!

Ça marche!!

Merci encore pour votre aide ça m'a beaucoup fait avancer!!