XL 2019 Résolu - Selection et tri par macro.

Phil69970

XLDnaute Barbatruc

• 10 Avril 2021

• #2

Bonjour @Paulle, le forum

Si j'ai tout compris ....
Je te propose ce fichier :

@Phil69970

 

Pièces jointes

• Trie sur Col 1999 V1.xlsm

  47.8 KB · Affichages: 2

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 11 Avril 2021

• #3

Bonjour Phil69970,
Merci pour ta réponse.
Je n'ai pas été très clair dans mes explications.
Je voudrai qu'à chaque fois que je rajoute des valeurs, le tri se fasse sur l'avant dernière colonne de la sélection.
Là la colonne AL.

 

Pièces jointes

• Trie sur Col 1999 V2.xlsm

  54.2 KB · Affichages: 5

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Avril 2021

• #4

Bonjour.
Et en spécifiant Key:=Selection.Columns(Selection.Columns.Count - 1)
et d'ailleurs aussi .SetRange Selection ça n'irait pas ?
Édition: Les instruction du début sont à supprimer bien entendu: on repart de la sélection laissée par la Sub SelectionPlage.
Remarque: Si tout devait être fait dans une seule macro on pourrait éviter de sélectionner quoi que ce soit et utiliser à la place des variables As Range.

 

Dernière édition: 11 Avril 2021

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 11 Avril 2021

• #5

Bonjour et merci.
Le tout peut être fait avec une seule macro.
Tes propositions, je ne sais pas les appliquer.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 11 Avril 2021

• #6

Bonjour @Paulle , Dranreb

Je n'avais pas du tout compris.... 🙃 😵
Je te propose ce fichier


@Phil69970

 

Pièces jointes

• Trie sur Col 1999 V2.xlsm

  45 KB · Affichages: 6

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Avril 2021

• #7

Je viens de faire ça :

VB:

Sub TrierAvDCol()
   With ActiveSheet.Sort
      .SortFields.Clear
      .SortFields.Add Key:=ActiveSheet.[XFD2].End(xlToLeft)(3, 1), _
         SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
      .SetRange ActiveSheet.[A5:AW5].Resize(ActiveSheet.[A1000000].End(xlUp).Row - 4)
      .Header = xlNo: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin
      .Apply
      End With
   End Sub

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 11 Avril 2021

• #8

Phil, si j'ajoute des données, la macro va sur débogage.

Dranreb, quand les données dépassent la colonne AW,la macro va sur débogage.

 

Pièces jointes

• Trie sur Col 1999 V2b.xlsm

  58.3 KB · Affichages: 3

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Avril 2021

• #9

Oh, triez les ligne entières alors :

VB:

.SetRange ActiveSheet.Rows(5).Resize(ActiveSheet.[A1000000].End(xlUp).Row - 4)

Votre exemple n'allait que jusqu'a la colonne AW, les 2 1ère colonnes des trois derniers triplets étant vides.
Ou sinon mettez tout ça sous forme de tableau et triez celui-ci.

 

Vote positif 0 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 11 Avril 2021

• #10

Re

Tu es sur car si je prends le fichier exemple et que je rajoute des données dessus cela fonctionne

@Phil69970

 

Pièces jointes

• Trie sur Col 1999 V2.xlsm

  45.2 KB · Affichages: 4

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 11 Avril 2021

• #11

Oui Phil ça fonctionne. J'ai du me mélanger dans les fichiers. Encore merci.

Merci Dranreb ça fonctionne aussi.

Bonne journée à vous deux.

 

Vote positif 0 Vote négatif