VBA Aide pour tri et regroupement complexe

Version imprimable

31/08/2017, 09h54
jojo86

3 pièce(s) jointe(s)

VBA Aide pour tri et regroupement complexe

Bonjour,
J'ai un fichier avec beaucoup de ligne que je dois trier en respectant une logique un peu complexe...
Je n'arrive pas à l'automatiser.

Je vais essayer de m'expliquer.
En entrée j'ai une table
Pièce jointe 307951

Je dois créer une liste de valeurs de la colonne "Candidat" sans doublons mais qui me remonte pour chaque "Candidat" les candidats qui le précédent lui même...
Exemple :
Je commence à la ligne 1 et je trouve Robert.
Pour tous les Articles de la liste (colonne A), je constate que Robert est en position 1 alors pas de problème, J'ajoute Robert dans un nouveau tableau. Robert peut être supprimé du tableau d'origine :
Pièce jointe 307959

Ensuite, le candidat suivant est Toto
Mais ça devient compliqué car pour l'Article2, Toto est précédé de Tata et Tata est lui même précédé de Titi pour l'Article 3, qui lui même pourrait être précédé par un autre et cet autre pourrait être précédé par un autre etc etc etc etc.....
Pièce jointe 307961

Je ne suis même pas sur d'avoir réussi à m'expliquer clairement... C'est tordu comme truc, mais dans le doute je viens jeter une bouteille à la mer si quelqu'un à une idée.
Merci d'avance pour votre aide.
31/08/2017, 10h42
Invité

Citation:

Envoyé par jojo86

Bonjour,

J'ai essayé de piger votre raisonnement. Pourquoi Jean-Louis n'est pas avant Robert ?

Pièce jointe 307989
31/08/2017, 11h24
jojo86

1 pièce(s) jointe(s)

Bonjour,
Merci de vous être intéressé à mon problème.
En réalité, la colonne candidat correspond à des opérations de travaille qui doivent suivre l'ordre d'apparition que nous voyons sur le 1er tableau. C'est un enchaînement d'opération logique.
Nous constatons que Robert est en 1ere position sur tous les Articles c'est donc Robert qui doit commencer à travailler le premier. Jean-louis ne peu donc pas être devant lui puisque dans tous les cas, c'est Robert qui est le 1er.
Ensuite vient Toto mais Toto pour Article2 est précédé de Tata cela signifie que Tata doit forcement être avant Toto. Mais Tata est précédé de Titi pour Article3 Donc Titi doit forcement être avant Tata, mais Titi pourrait être précédé d'un autre candidat pour un autre article et cette autre candidat pourrait lui aussi être précédé par un autre article etc...

Si tu veux raisonner en partant de la fin, il faut donc partir de Richard, puis pour chaque candidat, il faut regarder si ce candidat est présent pour un autre article et si ce candidat est suivi d'un autre candidat pas encore traité dans la nouvelle liste...
Richard est le premier en partant du bas pour article3 et article1 Richard est donc le 1er.
Ensuite vient Maurice mais Maurice pour Article 1 est suivi de Jean-Louis et Jean-Louis pourrait lui même être suivi d'un autre candidat pour un autre article etc etc...

En inverse, l'ordre serait :

Pièce jointe 308017
31/08/2017, 18h52
Michel

1 pièce(s) jointe(s)

Je n'ai pas la solution mais une méthode:
construire autant de colonnes qu'il y a d'articles;
La personne choisie est une de celles en tête de colonnes.
La bonne est en tête ou absente dans les autres. On l'ajoute à notre nouvelle liste
Lorsqu'on l'a trouvé, on la supprime de toutes les colonnes (assez facile elle ne peut être que le premier élément d'une colonne).
Et on recommence
Pièce jointe 308176
etc (remarque j'ai oublié de régler le correcteur or tôt graphique d'où les petites vagues sous les mots)
31/08/2017, 19h38
Michel

petite remarque supplémentaire.
Il manque des éléments de décision dans ce problème.
Soit deux listes non vides; si le premier de la liste 1 est le deuxième de la liste 2 et inversement le deuxième de la liste1 est le premier de la liste 2 le choix est impossible.
On pourrait aussi avoir plusieurs candidats possibles (en tête et présents uniquement dans deux listes distinctes par exemple)
02/09/2017, 12h51
eriiic

1 pièce(s) jointe(s)

Bonjour,

Une proposition en vba, mes tentatives par formules n'ayant rien donné. A tester...
65000 candidats maxi.

Théoriquement si plusieurs candidats se trouvent à égalité leur rang est complété par une décimale. Ex :
1
2
3
3.2
3.3
6
7
Non testé, je te laisse le soin de construire une telle liste pour le faire si le besoin existe.
eric

edit : 14:40 fichier changé, prise en compte du séparateur décimal régional
15:00 : contrôle et correction d'un bug si égalité entre candidats
02/09/2017, 13h26
Invité
Citation:

Envoyé par eriiic

Bonjour Eric,

J'ai testé ton code. J'ai dû modifier cette ligne, Cdbl provoque une incompatibilité de type.
Code:

1 2 dictOrdre(k) = IIf(i = 0, j, j - 1 & "." & i + 1)
Sinon bravo :applo:
02/09/2017, 13h43
eriiic

Merci :-)

Pas bien gênant puisque le rang peut être indiqué sous forme de chaine mais j'aimerai bien comprendre cette erreur que je n'ai pas eue.
Dans quelles condition CDbl(j - 1 & "." & i + 1) peut-il la faire avec i et j Long et >=0 ?
Si tu peux prendre le temps de détailler stp.
C'est surtout que je ne voudrais pas que ça cache une autre erreur de conception plus dommageable.
J'ai retouché cette partie en dernière minute car j'ai pris le temps de tester le 2.2 etc finalement. Je suis passé à coté de qq chose, je ne vois pas quoi et ça je n'aime pas ;-)
02/09/2017, 14h01
Invité

Citation:

Envoyé par eriiic

J'ai repris ton fichier d'origine :

Pièce jointe 308557

K = "Robert"
dictNbPred(k) =0
dictOrdre(k) = vide
i= 0
j=1
02/09/2017, 14h41
eriiic

Ah... Je pense que tu as la , en séparateur décimal, je ne vois que ça.
Je m'étais mis en tête que vba utilisait toujours le ., il faut croire que non.
J'ai modifié le fichier en ligne avec

Code:

CDbl(j - 1 & Application.International(xlDecimalSeparator) & i + 1))

Merci pour la remonté d'info :-)
02/09/2017, 14h46
Invité

Citation:

Envoyé par eriiic

ça roule.

Merci.
Finalement j'ai testé plus complètement la partie en cas d'égalité des candidats.
Il restait un bug, j'ai ressorti l'initialisation de j qui n'avait rien à faire dans la boucle.
Cette partie devient donc :

Code:

1
2
3
4
5
6
7
8
9
10
11
        ' mini predédécesseurs
        predMini = Application.Min(dictNbPred.items)
        i = 0
        j = dictOrdre.Count + 1    ' rang
        For Each k In dictNbPred
            If dictNbPred(k) = predMini Then
                ' on le classe si il a nombre mini de prédécesseurs
                dictOrdre(k) = IIf(i = 0, j, CDbl(j & Application.International(xlDecimalSeparator) & i + 1))
                i = i + 1
            End If
        Next k

fichier du post #6 mis à jour

05/09/2017, 10h57
eriiic

J'ai l'impression d'avoir perdu une bonne heure là...
Merci jojo86
19/09/2017, 14h50
jojo86

Citation:

Envoyé par eriiic

J'ai l'impression d'avoir perdu une bonne heure là...
Merci jojo86

Bonjour, merci de votre aide ! Je reviens juste de congés, j'avais décroché avec cette question pendant mes congés.
Je regarde tout de suite ton travail.