Discussion :

[facteur]

Je travaille, chaque jour, sur un tableau excel avec des filtres atomatiques.
Sur le filtre, de la colonne A, je selectionne le dernier crtitere et je cree des sous totaux de la colonne de la clonne B a la colonne E.
Je souhaiterais automatiser cette tache mais j'ai deux soucis :
*la cellule ou est creer le sous totale n'est jamais la meme d'un jour sur l'autre
*le nom du derniere critere de la colonne A peut etre different d'un jour sur l'autre

je m'en remet a vous pour trouver une solution

Merci d'avance

Madjid

[Le Pierre]

bonjour

places tes sous totaux juste au dessus de ton tableau (en A1, A2, ...)

dans chaque cellule utilise la fonction : SOUS.TOTAL(no_fonction;réf1;réf2;...) avec no_fonction = 9 pour la somme

seules les cellules visibles sont totalisées.

tu aurais par exemple en A1 : SOUS.TOTAL(9;A3:A65536)

à plus

[facteur]

Salut Pierre,

Merci pour ta reponse, mais j'aurais aime inserer dans ma maco la formule des sous totaux avec une variable "a" qui correspondrait au numero de la derniere ligne de la colonne A de mon tableau excel ( en effet, d'un jour a l'autre, mon tableau n'a jamais le meme nombre de ligne). Ainsi comme formule se sous totaux j'aurais une formule du style:

Code :

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

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[a]C:R[-3]C)"

Cette formule serait ensuite inserer dans la deuxieme cellule vide de la colonne H.

Code :

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

Range("H2").End(xlDown).Offset(2, 0).Select

Serais tu me donner la formule VBA qui permet de trouver le numero de la dernier ligne non vide de la colonne A d'un tableau excel>

Merci par avance Pierre

[Abed_H]

Serais tu me donner la formule VBA qui permet de trouver le numero de la dernier ligne non vide de la colonne A d'un tableau excel>

Code :

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

ligne = Cells(Rows.Count, "A").End(xlUp).Row

Bonne chance

Abed_H

[Le Pierre]

bonjour

le code d'Abed_H est parfait.
tu pourrais prendre ceci pour utiliser la variable N° de ligne :

Code :

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

1
2
3
4
5
6
Sub test()
    LigFin = Cells(Rows.Count, "A").End(xlUp).Row
    LigDeb = 2
    Cells(1, 1).Select
    ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[" & LigDeb & "]C:R[" & LigFin - 1 & "]C)"
End Sub

à plus

[facteur]

merci énormément pour tous ces infos.

je les teste et vous envoie une réponse.

A plus pierre et Abed