XL 2019 tri automatique

[PRUDHOMME12]

Bonjour à tous
Encore moi
Maintenant je cherche à faire le tri automatique d'une colonne

 

[soan]

Bonjour PRUDHOMME12,

en VBA, c'est avec .Sort (regarde l'Aide VBA pour plus d'infos là-dessus )

soan

 

[PRUDHOMME12]

Merci Soan, ça je maitrise mais il faut toujours que j'intervienne. Ce que je veux c'est un tri automatique car les infos viennent d'une autre feuille.

 

[soan]

alors pour t'aider davantage, il faudrait que tu joignes un fichier Excel (sans données confidentielles).​

 

[PRUDHOMME12]

J'ai joint mon fichier

 

[soan]

@PRUDHOMME12

ta sub actuelle est celle-ci :

Sub Tri()
  Sheets("FM").Range("A2:A5924").Copy
  Sheets("Feuil2").Range("J2:J5924").PasteSpecial xlPasteValues
End Sub

donc elle commence par copier les noms de la colonne A de la feuille "FM" sur "Feuil2", à partir de la cellule J2, dans le but de faire un tri dessus, probablement par ordre croissant ; mais sur la feuille "FM", en colonne A, il n'y a aucun nom ! ​

---

edit : en fait, c'était une simple erreur de transmission de fichier ; le demandeur a joint un nouveau fichier avec quelques données ; et j'ai pu faire la macro à partir de ce 2ème fichier : voir le post #8. ​

soan

 

[PRUDHOMME12]

Désolé pour l'erreur mais tout peut arriver et à tous le monde

 

[soan]

@PRUDHOMME12

ok, effectivement, s'il s'agit d'une simple erreur, ça peut arriver à tout l'monde.

note que sur "Feuil2", la colonne J est entièrement vide ; fais Ctrl e ➯ travail effectué : ça a copié tous les noms de la feuille "FM", colonne A, en "Feuil2", colonne J ; puis ça les a triés par ordre croissant. ​

---

code VBA de Module1 :

Option Explicit

Sub Tri()
  Dim n&
  With Worksheets("FM")
    n = .Cells(Rows.Count, 1).End(xlUp).Row: If n < 3 Then Exit Sub
    Application.ScreenUpdating = 0: n = n - 1: .[A2].Resize(n).Copy
  End With
  With Worksheets("Feuil2")
    .[J2].PasteSpecial xlPasteValues
    .[J2].Resize(n).Sort .[J2], 1
    .Select: [A1].Select
  End With
End Sub

soan

 

[PRUDHOMME12]

Toujours nickel encore merci

 

[soan]

merci pour ton retour ! d'autre part, j'ai modifié mon post #6.

soan