Microsoft 365 VBA code filtre auto en boucle - plusieurs critères

tnion à dit:

je souhaite le lancer en boucle dès que j'ajoute des nouvelles données,

Cliquez pour agrandir...

Phil69970 à dit:

@tnion


Encore quelques précision :


1) A chaque ajout de données il faut donc effacer la colonne E et recommencer ?

2) Tu rajoutes des données
Tous les trimestres, tous les mois, tous les jours ou bien 1 ou 10 ou x fois par jour ?

3) 66 % de 14 ==> 9.24 tu arrondi au plus prés je pense

4) Combien d'usine au total colonne C ==> 2 comme dans l'exemple ?
Combien de classe de production au total colonne colonne B ==> 4 comme dans l'exemple ?
Pour les trimestres je sais il y en a 4 par an 😉

Si j'ai d'autres questions on verra plus tard.....

@Phil69970

Cliquez pour agrandir...

bhbh à dit:

Bonjour,
Bonjour @Phil69970 🙂
En attendant la solution de Phil, voici une solution via Power Query (en natif dans ta version), et sans VBA (mais on peut en rajouter, pour automatiser, s'il le faut)
Dans le fichier joint, à droite de ton Tableau (transformé en Tableau Structuré, nommé "T_Data"), le résultat de la requête. Pour arriver à ce résultat :
- Regrouper par Date (aa-tt), Usine et Class Prod, en calculant le nombre de chaque groupe ( multiplié par 2/3 arrondi, pour avoir les 66%¨)
- Déterminer le rang par rapport à l'IP par Groupe
- Si le rang est inférieur aux 66%, on rajoute un 1
A partir de cette requête, on peut très facilement extraire un TCD
Cependant, ta dernière précision pourrait nécessiter des ajustements ("autres critères de productivité")
Si cela te semble "jouable"...
Bonne journée

Cliquez pour agrandir...

Phil69970 à dit:

Re

Je te propose ce fichier

Merci de ton retour

@Phil69970

Cliquez pour agrandir...

bhbh à dit:

Bonjour,
(Bravo pour les recherches personnelles!!!)
Un peu d'explications

VB:

let
    Source = Excel.CurrentWorkbook(){[Name="T_Data"]}[Content],
    PermutCol = Table.ReorderColumns(Source,{"Date (aa-tt)", "N° lot", "Classe prod", "Usine", "IP", "66% IP par usine par prod", "Trimestre", "Annéé longue", "Année court"}),
    // Cette étape ne sert à rien. Je m'en sers juste pour être sûr de l'orthographe des noms de colonne (absence d'espace...)
    // J'aurais pu la supprimer..
    GroupBy = Table.Group(PermutCol, {"Date (aa-tt)", "Classe prod", "Usine"}, {{"Nombre", each Number.Round(Table.RowCount(_)*2/3), Int64.Type},{"Tbl", each _, type table [IP=number]}}),
    //Ici, je regroupe par Trimestre, Classe et Usine. La colonne "Nombre" calcule les occurences par groupe.
    //Je multiplie par 2/3 pour avoir les 66% qui serviront à la suite - Ex, si 12 occurences, ça donne 8
    //La colonne "tbl" comporte la Table afférente à chaque Groupe. Clique dans la cellule (pas sur le nom), et dessous, tu auras la composition
    AjtRang = Table.AddColumn(GroupBy, "Rang", each Table.AddRankColumn([Tbl],"Rang",{"IP", Order.Descending},[RankKind = RankKind.Ordinal])),
    //Ici, je calcule le classement par groupe, selon l'IP, et en cas d'égalité, c'est numéroté à suivre (on ne saute pas de 1 à 3 si 2 premiers ex-aequo, mais on le pourrait, en passant en RankKing.Competition)
    ExpandRang = Table.ExpandTableColumn(AjtRang, "Rang", {"N° lot", "IP", "Rang"}, {"N° lot", "IP", "Rang"}),
    // On développe la colonne précédemment créee
    Best66 = Table.AddColumn(ExpandRang, "66% IP par usine par prod", each if [Rang] <= [Nombre] then 1 else null),
    // on recrée la colonne 66% avec calcul si le classement est <= au calcul de l'étape GroupBy
    SupprCol = Table.SelectColumns(Best66,{"N° lot", "Classe prod", "Usine", "IP", "66% IP par usine par prod", "Date (aa-tt)"}),
    // on ne garde que les colonnes qui nous intéressent (on supprime le reste, donc on s'affranchit des autres colonnes)
    Filtre = Table.SelectRows(SupprCol, each ([#"66% IP par usine par prod"] = 1))
    // Filtre sur les 66%
in
    Filtre

Et ta "naïveté", comme tu le dis, bien au contraire, pour un néophyte, je trouve que tu as bien travaillé...
PS, désolé pour le code, il faudrait que je demande à l'admin de pouvoir injecter du code "M" (les // correspondent à l'apostrophe dans le VBA (i-e des commentaires), et apparaissent en vert dans le code)

PS2, demande effectuée

Cliquez pour agrandir...

bhbh à dit:

Cependant, ta dernière précision pourrait nécessiter des ajustements ("autres critères de productivité")

Cliquez pour agrandir...

tnion à dit:

je souhaiterais savoir s'il y a possibilité de modifier le code afin de prendre en compte que les nouveaux lignes une fois que le macro a tourné 1 fois ?

Cliquez pour agrandir...

tnion à dit:

ils vont cliquer ailleurs en attendant et bloquer le fichier 😳

Cliquez pour agrandir...

Derlig2 = Ws2.Range("H" & Rows.Count).End(xlUp).Row
Dlig_Usine = Ws2.Range("B" & Rows.Count).End(xlUp).Row
Dlig_ClasProd = Ws2.Range("D" & Rows.Count).End(xlUp).Row

Cliquez pour agrandir...