XL 2016 aide macro

michokette · 30 Décembre 2022

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 · 30 Décembre 2022

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 · 30 Décembre 2022

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

Code:

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 · 2 Janvier 2023

sylvanu à dit:
Bonjour Michokette, Gégé,
Au hasard, essayez :

Code:

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 · 2 Janvier 2023

Gégé-45550 à dit:
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

XL 2016 aide macro

michokette

XLDnaute Nouveau

Pièces jointes

Gégé-45550

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

michokette

XLDnaute Nouveau

michokette

XLDnaute Nouveau

Discussions similaires