Utiliser des résultats automatiques

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 5 Avril 2008

• #2

Re : Utiliser des résultats automatiques

Bonjour,

=SOUS.TOTAL(3;A2:A1000)

En VBA:

x = [subTOTAL(3,A2:A1000)]

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 5 Avril 2008

• #3

Re : Utiliser des résultats automatiques

Bonjour,
si tu appliques ton filtre sur la colonne A, par exemple, et que ton titre est en A1, tu peux retrouver la variable comme ceci :

par formule :

Code:

=SOUS.TOTAL(3;A:A)-1

en VBA :

Code:

x = [SUBTOTAL(3,A:A)] - 1

 

Vote positif 0 Vote négatif

I

Inside093

XLDnaute Nouveau

• 5 Avril 2008

• #4

Re : Utiliser des résultats automatiques

Pour commencer merci de la rapidité des réponses,

Ma ligne de titre est en ligne 7, est-ce qu'il est possible d'écrire
=SUBTOTAL(3,A7:A)

merci d'avance

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 5 Avril 2008

• #5

Re : Utiliser des résultats automatiques

Re-, tu mets A8 à la place de A2, et tu mets A1000 par exemple (si tu n'as pas plus de 1000 lignes)

 

Vote positif 0 Vote négatif

I

Inside093

XLDnaute Nouveau

• 5 Avril 2008

• #6

Re : Utiliser des résultats automatiques

Merci à tous pour ces réponses

 

Vote positif 0 Vote négatif

I

Inside093

XLDnaute Nouveau

• 7 Avril 2008

• #7

Re : Utiliser des résultats automatiques

Re- bonjour,

J'ai un filtre comme ci-dessous:
Selection.AutoFilter Field:=1, Criteria1:=">=01/01/2008", Operator:=xlAnd, _
Criteria2:="<=1/31/2008"

Je voudrais compter les lignes répondant à ce filtre.

J'ai bien essayé avec vos conseils de ranger le résultat dans la cell C6 de la feuille Tdb, mais le résultat est faux et il ne change pas quand je change la valeur du filtre, alors que le nombre de ligne change...

tmp5 = [SUBTOTAL(3,a7:a1000) ]
Worksheets("Tdb").Range("C6").Value = tmp5

Merci d'avance pour votre aide

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2008

• #8

Re : Utiliser des résultats automatiques

Bonjour

Et comme ça

Code:

Worksheets("Tdb").Range("C6").FormulaLocal = [COLOR=Blue]"=SOUS.TOTAL(3;A7[/COLOR][COLOR=Blue][B]:[/B]A1000)"[/COLOR]

 

Dernière édition: 7 Avril 2008

Vote positif 0 Vote négatif

I

Inside093

XLDnaute Nouveau

• 7 Avril 2008

• #9

Re : Utiliser des résultats automatiques

EUREKA.....!!!

Bon c'est peu être un exagéré...
mias j'ai trouvé pourquoi le résultat n'était pas bon, il fallait complèter comme suit:
Tmp5 = Worksheets(2).[subTOTAL(3,a6:a1000) ] - 1

merci pour tout à tous

 

Vote positif 0 Vote négatif