Discussion :

[Marilo30]

Bonsoir,

Pour mon taf, je suis en train de créer une formule somme.si.
Le range doit être mouvant, j'ai donc adapté mon code, comme ceci:

Code :

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

1
2
charges_mig = WorksheetFunction.SumIf(Sheets(page).Range("G8:" & Sheets(page).Cells(8, total_charges)), "MIG", Sheets(page).Range("G" & charges_directes & ":" & Sheets(page).Cells( _
            charges_directes, total_charges)))

Dans ce code, page = 24, total_charges = 17 et charges_directes = 30. Les variables sont bonnes et se sont bien calculées.
Mis bout à bout, cela donnerait:

Code :

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

charges_mig = WorksheetFunction.SumIf(Sheets(24).Range("G8:P8"), "MIG", Sheets(24).Range("G30:P30"))

Où mon code foire-t-il svp?

Merci d'avance

[anasecu]

Bonsoir,

Où mon code foire-t-il svp?

Je dirais que tes ranges ne sont pas ceux que tu crois : par exemple

charges_mig = WorksheetFunction.SumIf(Sheets(page).Range("G8:P" & Sheets(page).Cells(8, total_charges)), "MIG", Sheets(page).Range("G" & charges_directes & ":P" & Sheets(page).Cells( charges_directes, total_charges)))

[EricDgn]

Bonjour,

Voir si ce n'est pas ainsi:

Code :

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

1
2
charges_mig = WorksheetFunction.SumIf(Range(Sheets(Page).Range("G8"), Sheets(Page).Cells(8, total_charges)), "MIG", _
              Range(Sheets(Page).Range("G" & charges_directes), Sheets(Page).Cells(charges_directes, total_charges)))

Cordialement.

[deedolith]

Salut,

Fait plusieurs petites instructions plutôt qu'une grosse fourre-tout foireuse impossible à débugger:

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
    Dim Wb As Excel.Workbook
    Set Wb = ThisWorkbook
 
    Dim Ws As Excel.Worksheet
    Set Ws = Wb.Worksheets(page)
 
    Dim Plage As Excel.Range
    Set Plage = Ws.Range("G8:P" & Ws.Cells(8, total_charges))
 
    Dim Critere As String
    Critere = "MIG"
 
    Dim Somme_Plage As Excel.Range
    Set Somme_Plage = Ws.Range("G" & charges_directes & ":P" & Ws.Cells(charges_directes, total_charges))
 
    Dim charges_mig As Double    '// Je suppose que c'est un double, à corriger si necessaire
    charges_mig = Application.WorksheetFunction.SumIf(Plage, Critere, Somme_Plage)

[Marilo30]

Bonjour,

Voir si ce n'est pas ainsi:

Code :

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

1
2
charges_mig = WorksheetFunction.SumIf(Range(Sheets(Page).Range("G8"), Sheets(Page).Cells(8, total_charges)), "MIG", _
              Range(Sheets(Page).Range("G" & charges_directes), Sheets(Page).Cells(charges_directes, total_charges)))

Cordialement.

Bonjour à tous et merci pour vos réponses.
Désolé pour le délai de réponse, j'étais passé sur autre chose, j'ai enfin pu me dégager du temps pour retravailler sur mon document.

Eric, ton code était le bon, en gros il faut imbriquer 2 range dans un range pour que cela fonctionne, merci beaucoup