Bonjour,
Je commence en VBA, mais je compte bien comprendre tout ce que je fait. Les explications accompagnant les codes sont donc les bienvenues!

Donc j'ai une fonction associé à un bouton, qui fonctionne si je suis dans visual basic éditor, et que ma page active est "Sommaire".

Aussi, j'aimerais créer une boucle qui exécutera mes "Sumif" pour les cellules
D6 à U.... jusqu'à la dernière ligne contenant une valeur dans la colonne A

Je vous remercie à l'avance pour votre aide!!!

Pascal

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub CommandButton19_Click()
 
    Dim TotalVar As Long     
    Worksheets("Sommaire").Range("D6").Select 
    With ActiveCell
 
        ActiveCell.Offset(1, 0).Range("A1").Select
        ActiveCell.Value = WorksheetFunction.SumIf(Worksheets("Données").Columns("C"), "=" & Worksheets("Sommaire").Range("A7"), Worksheets("Données").Columns("F"))
        .Offset(2, 0).Range("A1").Select
        ActiveCell.Value = WorksheetFunction.SumIf(Worksheets("Données").Columns("C"), "=" & Worksheets("Sommaire").Range("A8"), Worksheets("Données").Columns("F"))
 
        ActiveCell.Offset(-1, 1).Range("A1").Select
        ActiveCell.Value = WorksheetFunction.SumIf(Worksheets("Données").Columns("C"), "=" & Worksheets("Sommaire").Range("A7"), Worksheets("Données").Columns("G"))
 
        TotalVar = .Value
    End With
 
    End Sub