SOUS.TOTAL en VBA

[Pias]

Bonsoir le forum,

Dans la cellule B 10008 de la Feuil Basestocks, j’ai la formule =SOUS.TOTAL(9;B9:B10007) que fonctionne très bien avec le filtre.

Est-ce qu’il est possible de obtenir le même résultat dans la cellule B10008 avec le VBA?

Merci d’avance.
Pias

 

[H@nnoun]

Bonsoir Pias
il y a peut etre mieux mais essai cette formule


Sheets("Basestocks").Select
Range("B10008").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-9999]C:R[-1]C)"


j'espere que ca ira

@+ H@NNOUN

 

[Pias]

Bonjour le forum, et H@nnoun

Ta formule va très bien.
Un grand merci, et passe une bonne journée.

Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[Pias]

Bonjour le forum,
-----------------------------------------------------------------------------------
Sub Sous-Total()
Sheets("Basestocks").Select
Range("B10008").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-9999]C:R[-1]C)"
End Sub
------------------------------------------------
Comme je dis dans le post précèdent avec la formule donner par H@NNOUN on obtient un Sous-Total dans la cellule ("B10008").

Est-ce que quelqu’un peut me dire si en VBA est possible d’obtenir un Sous –Total mais dans la première ligne vide de la colonne ?
Ça donnera quelque chose comme ça :

Sub Sous-Total()
Sheets("Basestocks").Select
Range(Dans la dernière ligne vide de la colonne B).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-9999]C:R[-1]C)"
End Sub

Merci d’avance

Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[jmps]

Bonjour Pias,

La ligne concernée est en gras.

Sub Sous-Total()
  Sheets("Basestocks").Select
  Range("B65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-9999]C:R[-1]C)"
End Sub

Cela te convient-il ?

Bon après-midi.

José

 

[Pias]

Salut, José
Merci pour ta réponse c’est presque ça, mais le problème si situe au niveau de la formule.
Comment faire la formule de façon à que elle donne le Sous-Total, indépendamment qu’elle se situe en B :10 ou en B :10008.

Si quelqu’un a la solution ça serait sympa, merci d’avance
Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[emg]

Bonjour à tous

Un petit fichier que j’utilise couramment et qui je pense te donnera une idée de ce que l’on peut faire en VBA pour la fonction Sous.Total.

Voila consulte le code que j’ai commenté au maximum

Gérard

 

[jmps]

Bonjour Pias,

Voici une formule qui semble fonctionner. J'ai considéré que tes données commencent en B9 (R9C en notation R1C1 dans le code). Sinon il te suffit de modifier cette adresse.

Sub Sous-Total()
  Sheets("Basestocks").Select
  Range("B65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R9C:R[-1]C)"
End Sub

Bonne journée.

José

 

[jmps]

Oups !

Bonjour Gérard. Je t'ai pas vu arriver, j'ai un peu trainé avant de faire envoyer.

A+

José

 

[Pias]

Bonjour José, Gérard et le Forum

José ta formule fonctionne parfaitement un tout grand merci.

Merci aussi a toi Gérard pour ton fichier avec les commentaires très utiles, grâce a toi j’appris un peut plus. Pas mal cette façon d’utiliser la fonction Sous.Total.

Passé tous les deux un excellent après-midi.

Amicalement

...On se lasse de tout sauf d’apprendre !..