Discussion :

[MolikDLuffy]

Bonjour,

J'ai un petit problème concernant le vba et l'utilisation de la fonction SOMME.SI.ENS (SUMIFS).

Comme vous pouvez le voir ci-dessous en image, j'utilise 3 feuilles (2016 / 2017 / ecart). Mon classeur actif est "ecart" sur la feuille "TYPE A".



Mon calcul est tout simple, je dois récupérer la somme total 2016 dans le classeur 2016 en fonction du type et du nom. De même pour 2017. Cela me permettra de calcul les écarts.

Le problème c'est que je ne sais pas comment jongler entre les classeur en VBA...

Pourriez-vous m'aider?

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
Sub test()
Dim ligne As Long
Dim wb16 As Workbook
Dim wb17 As Workbook
Dim ecart As Workbook
 
Set wb16 = Workbooks("2016.xlsx")
Set wb17 = Workbooks("2017.xlsx")
Set ecart = ActiveWorkbook
 
For ligne = 2 To 10000
Cells(ligne, 3) = Application.WorksheetFunction.SumIfs(wb16.Sheets("2016").Range("C:C"), wb16.Sheets("2016").Range("B:B"), "A", wb16.Sheets("2016").Range("A:A"), Sheets("TYPE A").Cells(ligne, 1))
Next ligne
 
 
 
End Sub

Pour information : Je dois utiliser une boucle car le vrai fichier comporte plus de 400 000 lignes.

[Menhir]

Pour information : Je dois utiliser une boucle car le vrai fichier comporte plus de 400 000 lignes.

C'est un point de vue que je ne partage pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Range("C2:C10000").FormulaLocal = "=SOMME.SI.ENS([2016]2016!C:C;[2016]2016!A:A;$A2;[2016]2016!B:B;$B2)"
Range("D2:D10000").FormulaLocal = "=SOMME.SI.ENS([2017]2017!C:C;[2017]2017!A:A;$A2;[2017]2017!B:B;$B2)"
ActiveSheet.Calculate   ' on ne sait jamais...
Range("C2:D10000").Copy
Range("C2:D10000").PasteSpecial(xlPasteValues)

Il doit sans doute être possible de faire les deux premières lignes en une mais j'ai un peu la flemme de faire des tests.

[MolikDLuffy]

Merci Menhir pour ta rapidité d'exécution (comme d'habitude).

Je vois par A plus B que ton point de vue concernant la non obligation d'utiliser une boucle peut marche.

Merci

[Menhir]

Il faudrait quand même que tu fasses en sorte de faire disparaitre ces disgracieux "10000".
Par exemple, tu peux copier en A:B du fichier destination les A:B des deux fichiers sources et supprimer les doublons avec un RemoveDuplicates.
Comme ça tu pourras connaitre le nombre de lignes à renseigner et le mettre à la place des 10000.