XL 2016 aide macro

[michokette]

Bonjour
j'ai, en cherchant sur le net, construit un fichier excel avec macros
celui ci est composé d'une macro portant sur le tri (double click sur cellule h2 et i2) et résultat dans feuille filtre et une autre qui me fait le total de la feuille filtre
je souhaiterai ajouter le texte Total Somme en colonne A en face donc du résultat de la somme
Que faut-il donc modifier a la macro Total colonne pour arriver a cela
En vous remerciant par avance

 

[Gégé-45550]

Bonjour,
Votre question est assez difficile à comprendre.
Où (quelle feuille) souhaitez-vous ajouter du texte ? De façon statique ou dynamique ?
Dans le fichier joint, la colonne A de chaque onglet est déjà peuplée et la macro Total_colonnes n'est jamais appelée, donc on ne sait pas sur quelles .cells elle opère, d'où ma question.
Cordialement,

 

[sylvanu]

Bonjour Michokette, Gégé,
Au hasard, essayez :

Sub Total_colonnes()
With Sheets("filtre")
    FinLigne = .UsedRange.Rows.Count
    fincolonne = .UsedRange.Columns.Count
    Cells(FinLigne + 1, "A") = "Total : "
    For col = 2 To 3
        Cells(FinLigne + 1, col) = Format(Application.WorksheetFunction.Sum(.Range(.Cells(2, col), .Cells(FinLigne, col))), "0.00")
    Next
End With
End Sub

J'ai limité les colonnes à 2 et 3, car les colonnes D et E sont des chaines de caractères.

 

[michokette]

Bonjour Michokette, Gégé,
Au hasard, essayez :

Sub Total_colonnes()
With Sheets("filtre")
    FinLigne = .UsedRange.Rows.Count
    fincolonne = .UsedRange.Columns.Count
    Cells(FinLigne + 1, "A") = "Total : "
    For col = 2 To 3
        Cells(FinLigne + 1, col) = Format(Application.WorksheetFunction.Sum(.Range(.Cells(2, col), .Cells(FinLigne, col))), "0.00")
    Next
End With
End Sub

J'ai limité les colonnes à 2 et 3, car les colonnes D et E sont des chaines de caractères.

Bonjour Sylvanu

Tout d'abord, permettez moi de vous souhaiter une bonne et heureuse année 2023

Merci de vous être penché sur mon problème, et merci surtout pour votre solution qui marche parfaitement

Bien cordialement

 

[michokette]

Bonjour,
Votre question est assez difficile à comprendre.
Où (quelle feuille) souhaitez-vous ajouter du texte ? De façon statique ou dynamique ?
Dans le fichier joint, la colonne A de chaque onglet est déjà peuplée et la macro Total_colonnes n'est jamais appelée, donc on ne sait pas sur quelles .cells elle opère, d'où ma question.
Cordialement,

Bonjour Gégé
Oui je reconnais que je n'ai pas été très explicite
Merci quand même d'avoir jeté un coup d'œil à mon problème
Sylvanu à reussi à me trouver une solution
Bien cordialement