XL 2010 Somme plage erronée [RESOLU]

[cathodique]

Bonjour,

Encore un souci.

Sub Totalisation()
    Dim dl As Long, plage As Range
    With Sheets("synthese")
        dl = .Cells(.Rows.Count, 2).End(xlUp).Row
        Set plage = .Range("C12:C" & dl)
        .Cells(dl + 1, 2) = "Total"
        .Cells(dl + 1, 3) = Application.WorksheetFunction.Sum(plage) 'somme fausse
        .Cells(dl + 1, 4) = Application.WorksheetFunction.Sum(plage.Offset(0, 1)) 'somme juste
        .Cells(dl + 1, 5) = .Cells(dl + 1, 4) - .Cells(dl + 1, 3)
       
        'mise en forme
        .Range(Cells(dl + 1, 2), Cells(dl + 1, 5)).Borders.Weight = xlThin
        .Range(Cells(dl + 1, 2), Cells(dl + 1, 5)).Interior.ColorIndex = 9
        .Range(Cells(dl + 1, 2), Cells(dl + 1, 5)).Font.ThemeColor = xlThemeColorDark1
        .Range(Cells(dl + 1, 2), Cells(dl + 1, 5)).Font.Bold = True
        .Cells(dl + 1, 4).NumberFormat = "#,##0.00 $"
        .Cells(dl + 1, 4).NumberFormat = "#,##0.00 $"
        .Cells(dl + 1, 5).NumberFormat = "#,##0.00 $"
    End With
End Sub

Voilà, après avoir extrait le tableau, j'ai voulu rajouter une ligne pour avoir le total des dépenses, recettes et le solde. Bizarrement, Sum(plage) donne un résultat faux et Sum(plage.offset(0,1) donne un résultat juste. Rien compris. Une explication serait salutaire.

Merci par avance.

 

[Jacky67]

Bonsoir,
Place ceci
MsgBox plage.Address
Après la ligne
Set plage = .Range("C12:C" & dl)
et tu comprendras pourquoi

 

[cathodique]

Salut Jacky67,

Saturé, j'aurai probablement trouvé ma grossière erreur mais sûrement pas aujourd'hui.

Il y a des jours comme ça, c'est comme rouler le soir sans feux.

Il vaut mieux garer. Allez c'est bon pour aujourd'hui, j’éteins le truc.

Merci beaucoup, tu épargnes mes petites neurones.

Bonne soirée.