Data Out of Range

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][/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

Bonjour,

1) le nom des feuilles est bien "sheet1" et "sheet6" ?

2) dans ton instruction sumifs, tu as une faute de frappe sur scenariodata.

ce serait plus facile si tu nous mettais ton fichier.

je ne parviens pas a joindre le fichier ...

LEs deux feuilles existent. Elles ont un nom specifique mais je ne pense pas que cela resolve le probleme si je remplace sheet 1 par le nom de la feuille .

Bonjour,

As-tu essayé de remplacer :

ThisWorkbook

par

ActiveWorkbook

Oui j avais deja essaye cette option en regardant d autres posts sur le forum traitant du meme sujet.

Cela ne resoud pas le probleme j obtient le meme message d erreur

Re,

Très sincèrement ... avec une copie de ton fichier ... cela ne prendrait que quelques secondes ...

Je ne parviens pas a envoyer de fichier....

Loupion a écrit :

je ne parviens pas a joindre le fichier ...

LEs deux feuilles existent. Elles ont un nom specifique mais je ne pense pas que cela resolve le probleme si je remplace sheet 1 par le nom de la feuille .

Comme les instructions sont écrites, il est impératif de mettre le nom correct de chaque feuille. Sinon tu recevras un message d'erreur "subscript out of range", qui est probablement celui que tu reçois. d'après mes recherches le message "Data out of range" n'existe pas en excel.

Pour l'envoi d'un fichier qui dépasse 300k, utilise cjoint.com et mets le lien dans la réponse.

Salut H2so4

C est tout bon, il fallait effectivement que j ai le nom de la feuille et que je les mette en activeworkbook.

Ce probleme est donc resolu et je peux continuer

Merci