Calcul_Retard_par_Filtre_via_UseForm

[aubelix]

Bonjour à tout le Forum.

Je reviens vers vous pour vous exposer mon problème:
Par calcul et filtre automatique, je sais faire les calculs et les extractions.
Mais j'aurais aimé :
Pouvoir faire un filtre sur place via un USERFORM.
Plus rapide qu'un choix par filtre automatique.

Uniquement 3 clicks de souris
1) Choix du type Min ou Maj
2) NB_JOURS RETARD (en cochant les options)
Sollicité très souvent, je dois répondre en temps réel.
Le fichier peut contenir plus de 5000 lignes
Les manip sont fastidieuses via le filtre automatique et surtout récurrentes.

J'ai commencé à construire l'USF. Pouvez-vous me donner un début de réponse...
Merci pour votre aide.
Cordialement.

 

[jp14]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonjour

Ci joint le fichier avec une procédure qui calcule.
Comme il faut balayer tout le fichier autant faire tous les calculs.

A terminer pour les deux derniers textbox.

A tester

JP

 

[aubelix]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonsoir JP14 et tout le Forum et merci pour ton aide.
Ton travail est excellent, il ma permis de voir comment tu procèdes par calcul
pour afficher les données. Je crois que je me suis mal exprimé :

Je voulais en laçant l'userform que j'ai crée et en cochant les checkbox des jours de retard
filtre sur place les fiches correspondantes
j'ai enregistré par l'enregistreur de macro la procédure ci-dessous en cliquant sur le bouton
"Lancer l'extraction:


on Error Resume Next
Range("R1").Select
Selection.AutoFilter Field:=18, Criteria1:=">3", Operator:=xlAnd, _
Criteria2:="<=10"
End Sub


Mais je ne sais pas comment lui placer la variable des checkbox cochés.
En sachant que je ne cocherai comme je l'ai écrit :

1) Min ou Maj
2) une ligne des critères ci-dessous

J<=0
J>0 J<=3
J>3 J<=10
J>10 J<=30
J>30 J<=50
J>50

J'espère que je me suis bien exprimé.

Dans l'attente de ton aide.

Cordialement

 

[Bebere]

Re : Calcul_Retard_par_Filtre_via_UseForm

bonsoir Aubelix,Jp
une proposition pour filtrer
rmq:
enlever j de label.caption
fait min et <=0,min et >0 et<=3
mis checkbox.triplestate=false
à bientôt

 

[aubelix]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonjour Bebere et tout le Forum.

Merci pour ta réponse. Elle fonctionne très bien.
J'ai complété le code en m'inspirant de tes exemples.

- Est-il ppossible de mettre un message si "Min ou Maj" non cochés
- D'afficher en msgbox les quantités trouvées après le filtrage ?

Par avance merci de ton aide.

Cordialement.

 

[Bebere]

Re : Calcul_Retard_par_Filtre_via_UseForm

bonjour Aubelix,Jp,le forum
voilà les changemets demandés
j'ai supprimé les labels et mis leurs valeurs dans les chekbox.caption ad hoc
pour ta doc dans module2 du code sur le filtre automatique
à bientôt

 

[aubelix]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonjour Bebere.

Mille Mercis pour ton aide. Tout fonctionne très bien.

En revanche, l'exemple de JP14, ne me donne pas les valeurs que j'ai recopiées
comme j'ai pu. Voir mon code que JP14 à mis en commentaire...
Je n'ai pas compris son code.

Bon week-end à tous.

Cordialement.

 

[jp14]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonjour

Bonjour Bebere.
En revanche, l'exemple de JP14, ne me donne pas les valeurs que j'ai recopiées
Cordialement.

Effectivement il y a une erreur dans la procédure, elle ne comptabilise que les valeurs égales à 0.

A modifier

'Si la valeur de la cellule 
Select Case cellule.Value
    Case Is <= 0 ' est inférieure ou égale à zéro on compte.

On retouve les 143 lignes
Bon week end
JP

 

[Bebere]

Re : Calcul_Retard_par_Filtre_via_UseForm

Salut
en exemple une autre façon de faire
remis ton code et mis commentaires
consulter l'aide,svp
à bientôt

 

[aubelix]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonsoir Bebere

Ci-dessous résultat de ma feuille.
"NB_JOURS
RETARD" "TYPE
MIN MAJ"
J<=0 897 4
J>0 J<=3 7 37
J>3 J<=10 84 2
J>10 J<=30 16 11
J>30 J<=50 1 11
J>50 0 160
S/TOTAL 1005 225
TOTAL 1230

Il y'a des différences sur l'USF.
Pourtant les conditions dans ton code sont réunies.

Cordialement

 

[Bebere]

Re : Calcul_Retard_par_Filtre_via_UseForm

bonjour
changé + 1 par.range("e" & cellule)'qté
corrigé ton code'mis en commentaires
à bientôt

 

[aubelix]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonjour Bebere.
Encore une fois mille mercis à toi et JP14 pour votre aide.
Je l'ai testé et tout fonctionne...
Bon dimanche à tous.
Cordialement.

 

[aubelix]

Re : Calcul_Retard_par_Filtre_via_UseForm

Bonsoir à tout le Forum.

J'ai remplacé le msgbox de comptage des quantités filtrées par un Userform.
Quel est la syntaxe pour faire apparaître "Total" dans un Textbox.
J'ai essayé : TextBox1.Value = Total
Mais je n'obtiens rien.
Par avance merci de votre aide.

Cordialement.

 

[aubelix]

Bonjour Tout le Forum.

Je me permets de relancer la question concernant l'affichage
du Total dans un Textbox d'un USF à la place de la msgBox ?
Merci pour votre aide.
Cordialement.

 

[Bebere]

Re : Calcul_Retard_par_Filtre_via_UseForm

bonsoir le forum
Aubelix à la place de la ligne msgbox,tu mets ce qui suit

With UserForm2
.TextBox1 = Total
.Show 0
End With

à bientôt