Discussion :

[Loupion]

Bonjour,

J'essaie de creer une macro pour un Sumifs. Cependant cela bugg avant meme qu elle ne puisse se lancer car j ai un message d erreur " data out of range"

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
20
21
22
23
24
25
26
27
28
29
Sub Test2()
 
Dim BU As Range, Month As Range, Scenario As Range, Brand As Range, Axe As Range, Category As Range, Scenario2 As Range, Amount As Range
Dim BUdata As Range, Monthdata As Range, Scenariodata As Range, Branddata As Range, Axedata As Range, Categorydata As Range, Scenario2data As Range
Dim Result As Double
 
 Set Month = ThisWorkbook.Sheets("Sheet1").Range("B:B")
 Set BU = ThisWorkbook.Sheets("Sheet1").Range("D:D")
 Set Scenario = ThisWorkbook.Sheets("Sheet1").Range("E:E")
 Set Brand = ThisWorkbook.Sheets("Sheet1").Range("H:H")
 Set Axe = ThisWorkbook.Sheets("Sheet1").Range("I:I")
 Set Category = ThisWorkbook.Sheets("Sheet1").Range("A:A")
 Set Scenario2 = ThisWorkbook.Sheets("Sheet1").Range("E:E")
 Set Amount = ThisWorkbook.Sheets("Sheet1").Range("K:K")
 
 
Set Monthdata = ThisWorkbook.Sheets("Sheet6").Range("C5")
 Set BUdata = ThisWorkbook.Sheets("Sheet6").Range("A1")
 Set Scenariodata = ThisWorkbook.Sheets("Sheet6").Range("C6")
 Set Branddata = ThisWorkbook.Sheets("Sheet6").Range("A8")
 Set Axedata = ThisWorkbook.Sheets("Sheet6").Range("B8")
 Set Categorydata = ThisWorkbook.Sheets("Sheet6").Range("B1")
 Set Scenario2data = ThisWorkbook.Sheets("Sheet6").Range("C4")
 
 
Worksheets("Sheet6").Range("C8").Value = WorksheetFunction.SumIfs(Amount, Month, Monthdata, BU, BUdata, Scenario, Scneriodata, Brand, Branddata, Axe, Axedata, Category, Categorydata)
 
 
End Sub

sur la premiere ligne est l erreur et j imagine que les autres aussi

Merci

[illight]

Bonjour,


J'ai fait un copier/coller de ta macro dans un fichier vierge, et je n'ai eu aucune erreur. As-tu beaucoup de données dans ton fichier ?

[Loupion]

Oui la feuille sur laquelle je prend les donnees et une base de donnees avec plusieures miliers de ligne.

Je ne comprend pas pourquoi j obtient ce message d erreur qui ne me permet pas d avancer dans le code.

Aucune autre idee pour debuger cela?

[Marc-L]

Bonjour, bonjour !

Beaucoup de fonctions de feuilles de calculs sont limitées en nombre d'éléments.

Il n'est vraiment pas difficile de trouver la limite d'une fonction particulière
puis de scinder le calcul en n opérations en conséquence …

Déjà il serait logique de ne traiter que les plages avec des données au lieu de colonnes entières aux trois quarts vides !

[Loupion]

Bonjour Marc L

Donc vous suggerez de delimiter le range en identifiant la derniere ligne de la plage de donnee si je comprend bien.

Loupion

[Marc-L]

Déjà l'effectuer directement dans une cellule
- vu qu'ici c'est le forum des formules de calculs et non pas celui dédié au VBA ! -
avec une plage de données réelle au lieu de colonnes entières …