Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Somme plage erronée [RESOLU]

  • Initiateur de la discussion Initiateur de la discussion cathodique
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cathodique

XLDnaute Barbatruc
Bonjour,

Encore un souci.
VB:
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.
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
703
Réponses
2
Affichages
432
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
3
Affichages
834
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…