Help syntaxe Subtotal

[Sofhy]

Bonjour à tous,

Via une macro, j'utilise des filtres.
Suite à ça, je voudrais faire la somme de la colonne "O".
Donc j'utilise la formule =sous.total(9;O:O) afin de n'avoir que la somme des données filtrées.

En Vba, comment je fais pour lui dire que je veux la colonne O. J'ai essayer plusieurs syntaxes, mais ce n'est pas encore ça...

Sub sous_total
Dim a as decimal
Sheets("Matrice").select
a = "=SUBTOTAL(9,[COLOR="Red"][B]"le nom de la colonne O"[/B][/COLOR])"
Sheets("Index").select
Range("A2") = a
End Sub

Merci par avance pour votre aide,
Sofhy

 

[Beast464]

Re : Help syntaxe Subtotal

Chez moi ca marche comme ceci :

Sheets("Sheet1").Range(Maplage).FormulaR1C1="SUBTOTAL(9,Sheet1!C15)"

 

[Efgé]

Re : Help syntaxe Subtotal

Bonjour Sofhy,
Essai ça:

[COLOR=BLUE]Sub[/COLOR] sous_total()
Sheets("Index").Range("A2").FormulaLocal = "=sous.total(9;O:O) "
[COLOR=BLUE]End Sub[/COLOR]

Cordialement

 

[Sofhy]

Re : Help syntaxe Subtotal

Merci pour vos réponses, mais je dois être neuneu aujourd'hui !
Je n'arrive pas à adapter vos codes. Je n'ai même pas l'excuse de dire "c'est vendredi et il est tard". Non, nous sommes mercredi et c'est le matin ...

@Beast464
Lorsque je fais :
Sheets("Sheet2").Range("A2").FormulaR1C1="SUBTOTAL(9,Sheet1!C15)"
(En sachant que Sheet2 = Index et Sheet1 = Matrice)
Et bien en A2, il m'affiche le texte SUBTOTAL(9,Sheet1!C15)

@Efgé
Lorsque je fais :
Sheets("Index").Range("A2").FormulaLocal = "=sous.total(9;O:O) "
Il me fait le sous total de la feuille Index et non matrice, et bien sur, je n'ai pas réussi à intégrer "sheets("matrice")

Merci par avance pour vos corrections.
Sofhy

 

[Beast464]

Re : Help syntaxe Subtotal

Oups j'ai oublie un = ...xD

Sheets("Sheet2").Range("A2").FormulaR1C1= "=SUBTOTAL (9,Sheet1!C15)"

Faut que tu mettes le nom de la feuille et le Range aue tu veux aussi.

Soit :

Sheets("Matrice").Range("A2").FormulaR1C1= "=SUBTOTAL (9,Sheet1!C15)"

 

[Efgé]

Re : Help syntaxe Subtotal

Re
Si j'ai bien compris:

[COLOR=blue]Sub[/COLOR] sous_total()
Sheets("Index").Range("A2").FormulaLocal = "=SOUS.TOTAL(9;Matrice!O:O)"
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[Sofhy]

Re : Help syntaxe Subtotal

Re,

@Beast464
Tu le mets où le "= ...xD" ? par ce que du coup, il me rapporte toujours le texte "Subtotal..."
Je progresse en syntaxe, mais c'est pas encore ça 😀

@Efgé
Ca fonctionne.

Grâce à vous, j'aurai deux méthodes.
Nickel.
Merci

 

[Beast464]

Re : Help syntaxe Subtotal

On a la même méthode : la seule chose qui change c'est le style R1C1 ou le "Local".

J'avais inclus le = manquant dans ma citation

 

[Sofhy]

Re : Help syntaxe Subtotal

Avec un train de retard ... merci