Discussion :

[dodo28]

bonsoir
je voudrai inserer la somme automatique en bas de mon tableau.

Ce code m insere une ligne avec la mention FAUX dans le bas de la colonne.

Code :

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

1
2
3
4
5
Sub sommeAutomatic()
 
    Range("j65536").End(xlUp).Offset(1, 0) = FormulaR1C1 = "=SUBTOTAL(109,[ s² jfs])"
 
End Sub

Merci

[tirex28]

Bonsoir,

Ce que fait ta procedure c'est affecter le resultat de l'expression

FormulaR1C1 = "=SUBTOTAL(109,[ s² jfs])"

à la 1ere cellule vide de ta colonne J.

Essaye plutot:

Code :

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

1
2
3
4
5
Sub sommeAutomatic()
 
    Range("j65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=SUBTOTAL(109,[ s² jfs])"
 
End Sub

qui définit la formule à inscrire dans la 1ere cellule vide de la colonne J.

Cordialement,

Tirex28/

[LeForestier]

Re,
Voir mes réponses dans ton topic précédant.
http://www.developpez.net/forums/d72...obleme-filtre/

J'ai quand même trouver une solution pour tes calculs en fin de liste...
1°) appliquer un filtre par exemple H01
2°) sur la première ligne vide, dans les cellules où tu veux les totaux tu met des "Somme automatique"
3°) dans la macros que j'ai mis sur l'autre topic tu modifie la ligne..

Code :

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

    Rows("15:" & Range("A65536").End(xlUp).Row + 1).Delete

par

Code :

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

    Rows("15:" & Range("A65536").End(xlUp).Row - 1).Delete

Les formules seront chaque fois positionnées aux bons endroits.
A+

[dodo28]

je te remercie beaucoup
à plus