Classement dans feuille 2 suivant feuille 1

[libellule85]

Bonsoir le forum,

voici mon petit problème j'ai une liste dans la colonne A de la feuille 1 qui classe automatiquement par ordre alphabétique les noms entrés au fur et à mesure.
J'ai collé cette liste avec liaison dans la colonne B de la feuille 2 car dans la colonne A de la feuille 2 j'aimerais mettre un code correspondant au nom, et que ce code suive le même nom si j'entre un nouveau nom différent en feuille 1.

Je vous joins un fichier pour que celà soit plus clair.

D'avance merci beaucoup pour votre aide

 

[Victor21]

Re : Classement dans feuille 2 suivant feuille 1

Bonsoir.

Dites-nous en plus : comment les codes de la colonne A Feuil2 sont-ils générés ? Y a-t'il une logique pour les affecter aux noms, et dans ce cas, laquelle ?

 

[libellule85]

Re : Classement dans feuille 2 suivant feuille 1

Bonsoir Victor21,

Tout d'abord merci pour ta réponse, en ce qui concerne le code sur la feuille 2 c'est moi qui le met une fois le nom entré. Il n'y a pas de logique pour celui-ci (c'est à dire qu'il ne peut pas être défini par macro, car c'est moi qui défini dans quel groupe se trouvera la personne).

 

[Victor21]

Re : Classement dans feuille 2 suivant feuille 1

Re,

Je vous conseille dans ce cas de mettre le code en feuille 1.

 

[libellule85]

Re : Classement dans feuille 2 suivant feuille 1

Re,
Pas de problème mais il faut que je modifie la macro de tri dans la feuille 1.

 

[libellule85]

Re : Classement dans feuille 2 suivant feuille 1

Re,

je n'arrive pas à modifier la macro de tri (ci-dessous) pour que le code en A suivent le nom en B, et que le classement dépende du nom et non du code par exemple :

6 AAA
2 Bébé

Sub tri()
    Range("A3:Z500").Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range( _
        "B3"), Order2:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    End Sub

D'avance merci

 

[Victor21]

Re : Classement dans feuille 2 suivant feuille 1

Re,

Pas de fichier, pas de test, mais si vous voulez trier d'abord sur la colonne B, essayez en remplaçant :

.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3"),

par

.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("A3"),

 

[libellule85]

Re : Classement dans feuille 2 suivant feuille 1

Re,

Merci pour ta réponse, pour info la macro de tri était dans mon fichier du post #1 et c'est pour celà que je n'ai pas remis de fichier

 

[DoubleZero]

Re : Classement dans feuille 2 suivant feuille 1

Bonjour, libellule85, Victor21 🙂, le Forum,

Si tu acceptes d’effleurer le papillon...

Un onglet masqué (Toto), suppression des formules en Feuil2.

Reste à attribuer un numéro en colonne A pour les nouveaux "clients".

A bientôt 🙂

 

[libellule85]

Re : Classement dans feuille 2 suivant feuille 1

Bonjour DoubleZero,

Merci beaucoup pour ta réponse c'est sympa

Bonne journée