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

[Paulle]

Bonsoir,

J'ai réussi à faire une macro pour la sélection qui correspond à ce que je veux à condition de ne pas avoir de cellules vides dans l'avant dernière colonne, ici AJ.

Ensuite je voudrai que le tri se fasse sur l'avant dernière colonne de la sélection Cas 1 ici AI.

Merci pour votre aide.

Ce que je fais actuellement.

 

[Phil69970]

Bonjour @Paulle, le forum

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

@Phil69970

 

[Paulle]

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.

 

[Dranreb]

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.

 

[Paulle]

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

 

[Phil69970]

Bonjour @Paulle , Dranreb

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


@Phil69970

 

[Dranreb]

Je viens de faire ça :

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

 

[Paulle]

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.

 

[Dranreb]

Oh, triez les ligne entières alors :

.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.

 

[Phil69970]

Re

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

@Phil69970

 

[Paulle]

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.