Créer une liste de tri avec + de 255 caractères

Question

"" Petite présentation de mon activité, mon problème et moi : je suis salarié d'une entreprise exploitant une très vieille GMAO (Gestion de la Maintenance Assistée par Ordinateur) qui dans mon cas me sert à établir le plan de maintenance préventif des différentes machines du parc. Tout les matins, un rapport (fichier Excel) contenant des milliers de lignes est extrait du logiciel GMAO. Seulement, ce fichier étant illisible, je souhaite à partir d'Excel créer une version amélioré de ce plan de maintenance en "temps réel" (avec des graphiques, courbes, indicateurs, ...), pour des questions de lisibilités pour nos collaborateurs de terrains via des écrans d'affichages dans les ateliers. (Ce n'est que temporaire, une nouvelle GMAO tout intégrée devrait se déployer d'ici quelques années) "" Voilà c'était le contexte du sujet, si ça vous intéresse je pourrais vous donner plus de détails :) Pour en venir au problème : Dans la gestion de mon parc machine (après avoir filtré mon fichier machine par machine), je dois trier les éléments suivant un ordre précis. Par exemple, pour la première machine, je dois trier selon cet ordre : SMX-JOURNALIER SMX-HEBDOMADAIRE SMX-MENSUEL SMX-MENSUEL2 SMX-MENSUEL-DEP SMX-TRIMESTRIEL1 SMX-TRIMESTRIEL2 SMX-TRIMESTRIEL3 SMX-TRIMESTRIEL4 SMX-TRIMESTRIEL5 SMX-SEMESTRIEL1 SMX-SEMESTRIEL2 SMX-SEMESTRIEL3 SMX-SEMESTRIEL4 SMX-SEMESTRIEL5 SMX-SEMEST-DEP SMX-ANNUEL1 SMX-ANNUEL2 SMX-ANNUEL3 SMX-ANNUEL4 SMX-ANNUEL5 SMX-ANNUEL6 SMX-ANNUEL7 SMX-ANNUEL8 SMX-ANNUEL9 SMX-ANNUEL10 SMX-BIENNAL1 SMX-BIENNAL2 SMX-BIENNAL3 SMX-QUAD-ANNUEL1 SMX-QUAD-ANNUEL2 SMX-QUAD-ANNUEL3 SMX-QUAD-ANNUEL4 SMX-QUINQUENNAL SMX-QUINQUENNAL2 SMX-P10-1 SMX-P10-2 Seulement Excel est bloqué à 255 caractères et je n'arrive pas à contourner ce problème. Sachant que ceci n'est que pour une machine, je dispose encore de pas mal de tri à faire dans le même genre (qui ne sont pas tous identiques). De plus, j'essaye de réaliser un code VBA générique où les changements seront pratiquement minimes voir inexistants entre chaque rapport pour chaque machine. Voici ce que j'avais commencé à faire (ne marche pas) : Sub trier(N As String, FP As Worksheet) 'Feuille de paramétrage (contenant le code VBA) pour exploitation du rapport FP.Activate FP.Range("B19:B55").Select 'Plage où il y a la liste de tri dans l'ordre Application.AddCustomList ListArray:=Range("B19:B55") 'Feuille où il y a le rapport (N correspond au Nom du classeur précédemment inséré) Workbooks(N).Activate Workbooks(N).Worksheets(1).Activate Columns("A:P").Select Workbooks(N).Worksheets(1).Sort.SortFields.Clear Workbooks(N).Worksheets(1).Sort.SortFields.Add2 Key:=Range("D2:D65536"), _ SortOn:=xlSortOnValues, Order:=xlAscending, _ CustomOrder:= _ "SMX-JOURNALIER,SMX-HEBDOMADAIRE,SMX-MENSUEL,SMX-MENSUEL2,SMX-MENSUEL-DEP,SMX-TRIMESTRIEL1" & _ "SMX-TRIMESTRIEL2,SMX-TRIMESTRIEL3,SMX-TRIMESTRIEL4,SMX-TRIMESTRIEL5,SMX-SEMESTRIEL1,SMX-SEMESTRIEL2" & _ "SMX-SEMESTRIEL3,SMX-SEMESTRIEL4,SMX-SEMESTRIEL5,SMX-SEMEST-DEP,SMX-ANNUEL1,SMX-ANNUEL2,SMX-ANNUEL3" & _ "SMX-ANNUEL4,SMX-ANNUEL5,SMX-ANNUEL6,SMX-ANNUEL7,SMX-ANNUEL8,SMX-ANNUEL9,SMX-ANNUEL10,SMX-BIENNAL1" & _ "SMX-BIENNAL2,SMX-BIENNAL3,SMX-QUAD-ANNUEL1,SMX-QUAD-ANNUEL2,SMX-QUAD-ANNUEL3,SMX-QUAD-ANNUEL4" & _ "SMX-QUINQUENNAL,SMX-QUINQUENNAL2,SMX-P10-1,SMX-P10-2" _ , DataOption:=xlSortNormal With Workbooks(N).Worksheets("Rapport1").Sort .SetRange Range("A2670:M65536") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub J'espère avoir été clair et que vous pourrez m'aider dans mon problème. Je ne peux pas partager les fichiers pour des raisons de confidentialités liés à l'entreprise. Merci pour votre aide, ou vos conseils...

X Cellus · Accepted Answer

A nouveau,

Sub TRIER()
Lig = 1 'Au départ Lig doit être égal à 1 et non 2
Application.ScreenUpdating = False
LigList = Range("A" & Rows.Count).End(xlUp).Row
LigAct = Workbooks("actions-realisees-prevention.xls").Sheets("Rapport1").Range("A" & Rows.Count).End(xlUp).Row

For T = 2 To LigList
    Windows("parametres.xlsm").Activate
    Cible = Range("A" & T)

    Windows("actions-realisees-prevention.xls").Activate
    Columns("A:K").Select
    ActiveWorkbook.Worksheets("Rapport1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Rapport1").Sort.SortFields.Add2 Key:=Range("D" & Lig & ":D" & LigAct), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        Cible & "", DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Rapport1").Sort
        .SetRange Range("A" & Lig & ":K" & LigAct)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

For C = LigAct To 2 Step -1
If Range("D" & C) Like Cible Then Lig = C: Exit For
Next C

Next T
Application.ScreenUpdating = True
End Sub

Voici le code pour s'adapter à toute feuille. Changer uniquement les noms des fichiers ou feuilles concernées. Ou les variabiliser.

Bonne continuation

xorsankukai · Answer

Bonjour limp_63 , le forum, Vois ci ceci peut t'aider.... source: https://contexturesblog.com/archives/2010/12/15/excel-autofilter-with-criteria-in-a-range/ Cordialement...

X Cellus · Answer

Bonjour Itmp_63, Xorsankukai, Quelle limite de 255 caractères parles tu? Inscris Type en 1ière ligne d'un colonne et sur la 2ième ligne de cette même colonne. =REPT("MARIN";52)&REPT("MATIN";52) Soit 520 caractères. Donc une différence à partir du 262 caractères Puis sur la 3ième ligne de cette même colonne. Ou tu peux appliquer une couleur de police rouge pour la remarquer du texte précédent. =REPT("MARIN";104) Tu n'auras aucun souci de tri (A&gt;Z) ou (Z&gt;A) Donc à préciser... Rends anonyme une de tes sorties (en plaçant n'importe quelles données) et poste le fichier. A suivre.....

xorsankukai · Answer

Re, Oups, effectivement, j'ai répondu trop vite, désolé, Bonjour X Cellus , Je pense que le problème soulevé est le suivant: En créant une liste personnalisée pour le tri: Cordialement...

78chris · Answer

PowerQuery intégré à ta version Excel pourrait sans doute servir ici. Il t'aiderait à nettoyer la source et trier sans problème Peux tu joindre un exemple du fichier source et un exemple de résultat voulu...

X Cellus · Answer

A nouveau,

Tri effectué selon la liste ordonnée transmise. Est-ce le tri que tu souhaites obtenir?

Sub TRIER()
Lig = 2
Application.ScreenUpdating = False
For T = 2 To 38
    Windows("parametres.xlsm").Activate
    Cible = Range("A" & T) 'Range("A2").select

    'Range(Selection, Selection.End(xlDown)).Select
    'Application.AddCustomList Array(Range("A" & T))

    Windows("actions-realisees-prevention.xls").Activate
    Columns("A:M").Select
    ActiveWorkbook.Worksheets("Rapport1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Rapport1").Sort.SortFields.Add2 Key:=Range("D" & Lig & ":D3740"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        Cible & "", DataOption:=xlSortNormal

        ' "SMX-JOURNALIER,SMX-HEBDOMADAIRE,SMX-MENSUEL,SMX-MENSUEL2,SMX-MENSUEL-DEP,SMX-TRIMESTRIEL1,SMX-TRIMESTRIEL2,SMX-TRIMESTRIEL3,SMX-TRIMESTRIEL4,SMX-TRIMESTRIEL5,SMX-SEMESTRIEL1,SMX-SEMESTRIEL2,SMX-SEMESTRIEL3,SMX-SEMESTRIEL4,SMX-SEMESTRIEL5,SMX-SEMEST-DEP,SMX-ANNUEL1,SMX-ANNUEL2,SMX-ANNUEL3,SMX-ANNUEL4,SMX-ANNUEL5,SMX-ANNUEL6,SMX-ANNUEL7,SMX-ANNUEL8,SMX-ANNUEL9,SMX-ANN" & _
        ' "UEL10,SMX-BIENNAL1,SMX-BIENNAL2,SMX-BIENNAL3,SMX-QUAD-ANNUEL1,SMX-QUAD-ANNUEL2,SMX-QUAD-ANNUEL3,SMX-QUAD-ANNUEL4,SMX-QUINQUENNAL,SMX-QUINQUENNAL2,SMX-P10-1,SMX-P10-2" & _
        ' "", DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Rapport1").Sort
        .SetRange Range("A" & Lig & ":K3740")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

For C = 3740 To 2 Step -1
If Range("D" & C) Like Cible Then Lig = C: Exit For
Next C

Next T
Application.ScreenUpdating = True
End Sub

A suivre...

Jean-Eric · Answer

Une proposition Power Query, comme suggéré par 78chris. Cdlt. Nota: @78chris, Je t'ai mis un vote négatif à l'insu de mon plein gré !.....

78chris · Answer

Intégré cela veut dire que c'est déjà dedans sauf s'ils ont forcé à l'installation pour conserver l'ancienne gestion de données. Jean-Eric a donné un exemple. Comme on ne sait pas les autres actions que tu fais entre le fichier brut et le résultat on ne peut aller plus loin dans la démarche mais il est quasi certain que tout peut être fait en requête...

78chris · Answer

Même pas vu. Je crois que je m'en remettrais...

X Cellus · Answer

En fait j'ai déplacé une ligne de code en début de macro et mal copié. C'est Lig = 1 qu'il faut prendre. La boucle, elle, commence bien à 2, soit le début de liste du fichier paramêtres. Changer aussi le 3740 (ici adapté à l'exemple) lorsque le nombre de lignes différent. Sub TRIER() Lig = 1 Application.ScreenUpdating = False...