SOUS.TOTAL en VBA

H

H@nnoun

Guest

• 9 Novembre 2004

• #2

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

 

Vote positif 0 Vote négatif

P

Pias

Guest

• 9 Novembre 2004

• #3

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 !..

 

Vote positif 0 Vote négatif

P

Pias

Guest

• 23 Novembre 2004

• #4

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 !..

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 23 Novembre 2004

• #5

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é

 

Vote positif 0 Vote négatif

P

Pias

Guest

• 23 Novembre 2004

• #6

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 !..

 

Vote positif 0 Vote négatif

E

emg

Guest

• 24 Novembre 2004

• #7

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

 

Pièces jointes

• SousTotal.zip

  36.8 KB · Affichages: 93
• SousTotal.zip

  36.8 KB · Affichages: 84
• SousTotal.zip

  36.8 KB · Affichages: 90

Vote positif 0 Vote négatif

J

jmps

Guest

• 24 Novembre 2004

• #8

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é

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 24 Novembre 2004

• #9

Oups !

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

A+

José

 

Vote positif 0 Vote négatif

P

Pias

Guest

• 24 Novembre 2004

• #10

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 !..

 

Vote positif 0 Vote négatif