Discussion :

[tlhousni]

J’ai créé une petite macro pour effectuer un sous-total dans la cellule Q1,

Le problème est que le tableau à un nombre de lignes qui varie selon l’extraction du Business Object.

Code :

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

Range("Q1").FormulaLocal = "=SOUS.TOTAL(2;N2:N41699)"

si l'extraction dépasse les 41699 lignes, les résultats seront erronées.

Merci de me donner un code qui prend en compte le changement de nombre des lignes.

[78chris]

Bonjour

C'est ton 3ème post sur le même sujet.

On t'a déjà répondu et donné des solutions

https://www.developpez.net/forums/d1...e/#post9154223

https://www.developpez.net/forums/d1...ction-etendue/

[Al__22]

Bonjour,

Code :

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

Range("Q1").FormulaLocal = "=SOUS.TOTAL(2;N:N)"

La prochaine fois merci de chercher un peu ou de prendre en compte les réponses qui t'ont déjà été donnée avant de poser (ou reposer dans ce cas) ta question
Bonne journée

[tlhousni]

je suis tout nouveau, merci de pardon mon ignorance je ferais plus d'effort pour m'adapter aux règles.

Pour ta réponse Al__22 elle est bonne, mais reste le risque de calculer tous les données de la colonne (N:N) même ceux qui sont à l’extérieur de mon

tableau, Par contre Ci-dessous la parfaite réponse à mon besoin, merci tout de même vous êtes tous très gentils.

Code :

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

1
2
3
4
5
Dim a As Long
 
a = Range("N2").End(xlDown).Row
 
Range("Q1").FormulaLocal = "=SOUS.TOTAL(2;N2:N" & a & ")"