filtre sous VBA

[hidozo]

Bonjour,

J'ai fait ce filtre sous VBA,

ActiveSheet.Range("$A$1:$BD$10000").AutoFilter Field:=44, Criteria1:= _
"Modèle 'Au bon moment'"
mais :

1 - comment faire pour que le Criteria1 soit égal à la valeur sélectionnée dans une combobox ?

2 - comment lister plusieurs combobox ?

3 - je veux afficher un réultat après calcul. le filtre va m'enlever des lignes donc je vais faire un subtotal qui va rendtrer pour un calcul. Par contre comment faire pour que le subtotal s'affiche à chaque choix des combobox ? Je voudrais éviter d'avoir un bouton valider.

Merci pour votre aide

Cordialement

hidozo

 

[skoobi]

Re : filtre sous VBA

Bonsoir,

pour la question 1:
ActiveSheet.Range("$A$1:$BD$10000").AutoFilter Field:=44, Criteria1:= Combobox1.Value
A condition que le code soit dans l'USF, sinon il faudra préciser Userform1 devant.

2 - comment lister plusieurs combobox ?

C'est-à-dire?

 

[hidozo]

Re : filtre sous VBA

Bonsoir,

merci pour la réponse 1, ça marche enfin.

en fait mon filtre doit se faire par rapport à plusieurs types de critères qui se trouvent dans des colonnes différentes.
1 colonne pour EvaluationBis
1 pour Action
1 pour Pièces
...

Une fois que j'ai fais mes choix (avec ta réponse à la question 1), il ne me reste plus qu'à (normalement) valider pour récupérer le soustotal (et ça je ne sais pas comment faire)

Et après rentrer ce soustotoal dans un calcul

Hidozo

 

[skoobi]

Re : filtre sous VBA

Re,

un fichier exemple nous permettra de mieux comprendre.

 

[hidozo]

Re : filtre sous VBA

Bonsoir,

Oui, je sais, mais il est trop gros

Comment utiliser la formule soustotal en VBA, voila ma question.

la question, je viens de réussir à le faire

Cordialement

 

[BOISGONTIER]

Re : filtre sous VBA

Bonjour

x = [Subtotal(3,a:a)] pour compter le nb d'enregistrements
x = [Subtotal(9,c:c)] pour faire la somme sur la colonne C

JB

 

[hidozo]

Re : filtre sous VBA

Bonjour,

Après de noumbreuses tentatives, j'ai enfin réussi et dodo à 1h45 !!!! lol

En fait j'ai fait les calculs dans Excel et je récupère le résultat. Je n'arrive pas encore (ou plutôt, j'ai pas encore la réflexeion pour faire les calculs sous VBA, mais cela ne saurait tarder).

Il faut que je fasse des graphiques sous VBA maintenant !!!!



Merci pour votre aide.