Ne pas tous trier

[DUCL44]

Bonjour le forum

Je viens de me lever et déjà j'ai une question

Je voudrais trier un tableau comme celui la

A1: 1 B1: Vélo C1: Decatlhon

A2: 1 B2: Cadre C2: Cannondale
A3: 2 B3: Selle C3: San marco
A4: 3 B4: Groupe C4: Shimano ultréga

A5: 1 B5: Cadre C5: Colnago
A6: 2 B6: Roue C6: mavic
A7: 2 B7: Groupe C7: Campagnolo record

Et voila ce que je veux obtenir:

A1: 1 B1: Cadre C1: Cannondale
A2: 2 B2: Selle C2: San marco
A3: 3 B3: Groupe C3: Shimano ultréga

A4: 1 B4: Cadre C4: Colnago
A5: 2 B5: Groupe C5: Campagnolo record
A6: 2 B6: Roue C6: mavic

A7: 1 B7: Vélo C7: Decatlhon

Le tri ce fait si il y a un 1 en colonne A et ce qui il ya en dessos reste
Si en dessous il y a deux 2 alors il se tri par la colone C alphabetiquement
Merci de votre aide je pense que c pas facile
Je sais comment trier mais la je seche

Merci et @+ sur le forum

DUCL

 

[DUCL44]

Salut le forum

Personne n'a d'idée

non?

Tanpis

@+

DUCL

 

[jp]

Bonsoir DUCL44, bonsoir le Forum,

Il faudrait une explication plus "explicite". En effet, dans ton exemple, il semble n'avoir que 2 cas qui répondent à la question..

Il serait plus judicieux de mettre ton exemple, comme ici présenté, dans une feuille Excel (colonnes A à C), et colonnes F à H (c'est bien il n'y a quelques lignes) , la solution que tu souhaites obtenir. Cela sera sans aucun doute plus facile à traiter.

Merci de ta réponse, et bonne soirée à tous.

jp

 

[DUCL44]

Salut jp et le forum

Désolé pour la réponse très tardive

Voila le fichier exemple avec en feuil 1 le départ et en 2 ce qu'il faudrait obtenir

Merci pour les réponses

DUCL44

 

[DUCL44]

Probleme avec le zip

Le revoila

@+

DUCL444

 

[andré]

Salut DUCL44,

Tu crées une colonne supplémentaire à gauche (nouvelle colonne A) dans laquelle tu mets en A2 la formule : SI(B2=1;D2;A1&"a") que tu copies vers le bas.
Tu tries sur la colonne A, sans ligne de titre.

Vois si cela te convient, sinon n'hésite pas à faire signe, j'aime les problèmes qui tiennent plus de la logique que de la formule.

Ândré.

 

[DUCL44]

Bonjour André

Impeccable, mais peut on faire de meme en VBA sans creer de nouvelle collone

Merci de ton aide (la formule marche super)


DUCL44

 

[C@thy]

Bonjour DUCL fourty-four

Tu trouveras des exemples et des idées dans le fichier à télécharger sur les dates et heures (dans les nouveautés) dans les onglets qui commencent par classement ou classer

 

[andré]

Resalut DUCL44,

Le VBA n'est pas ma tasse de thé.
Je ne sais pas pourquoi, mais je donne la préférence aux formules, peut-être parce qu'elles sont plus faciles à controler lorsqu'il y a quelque chose qui ne fonctionne pas correctement.

Ândré.

 

[DUCL44]

Re

Merci pour ta réponse andré

Moi je suis plutôt VBA 🙂 mais bon ta formule me convient parfaitement c'était juste pour savoir. (Peu importe la maniere pourvu que l'on obtienne le résultat souhaité;-) )

Encore merci

@+

DUCL44

 

[DUCL44]

Bonsoir
andré
Est- il possible en VBA de lui faire écrire la formule proposé par andré (càd =SI(A2=1;C2;D1&"a") en colonne D dans la premire cellule et de l'étirer à toutes les cellules puis d'effectuer le tri et enfin de supprimer le contenude la colonne D.

J'ai essayer d'écrire activecell.text="=SI(A2=1;C2;D1&"a")" mais visiblement il n'aime pas les points virgules

Merci de vos réponses

@+

DUCL44

 

[Mytå]

salut DUCL44 et le forum

par macro regarde de se coté la si cela pourrait te convenir

Option Explicit
Sub Triage()

Dim fin As Integer

fin = Range("a65535").End(xlUp).Row

Range("D2").FormulaR1C1 = "=IF(RC[-3]=1,RC[-1],R[-1]C&""a"")"
Range("D2").AutoFill Destination:=Range("D2😀" & fin), Type:=xlFillDefault

Range("A1😀" & fin).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Columns("D😀").Delete Shift:=xlToLeft

End Sub

Mytå

 

[DUCL44]

Bonjour tous le monde

Merci de ton aide myta

Mais j'ai encore un petit probleme.

si deux lignes de niveau 1 sont identique alors la ca ne fonctionne plus

A part ca c'est nickel

J'ai encore besoin d'un petit coupde main

Merci a vous

Bonne journée

DUCL44

 

[andré]

Salut DUCL44,

Deux petites remarques :

Il me semble que ce n'est pas la colonne D qu'il faut supprimer, mais bien la colonne A.

Ensuite, pourquoi n'emploies-tu pas l'enregistreur de macros ?

Ândré.

 

[C@thy]

salut Ducl44,

remplace .text par .formula, en effet ce n'est pas du texte mais bien une formule de calcul.

Cela dit, André a raison, la meilleure macro c'est de ne pas en écrire, si excel peut faire sans.