Microsoft 365 Tri Colonne VBA

[Scorpio]

Bonjour à tous,
Dans ce classeur, en feuille 2, j'ai un code qui trie chaque colonne en faisant Clic sur chaque cellules de titre, de A1:H1
Mais, J'ai ajouté une ligne au dessus de la ligne de titre, et le code ne trie pas juste, il compte également la ligne que j'ai ajouté.
Donc a partir de A2 à H2
Est-ce que un membre sympa pourrais de me donner s'il vous plâit, un coup de pouce, merci à vous.
A+++++

 

[sylvanu]

Bonsoir Scorpio,
CurrentRegion prend toute la plage où des données sont présentes, donc dans votre cas ça commence en A1.

Propriété Range.CurrentRegion (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

En PJ un essai en redimensionnant la plage de tri à la colonne désirée avec :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Set titre = [A2:H2] 'ajout de colonnes
  DL = Cells(65500, Target.Column).End(xlUp).Row
  Set Plage = Range(Cells(3, Target.Column), Cells(DL, Target.Column))
  If Not Intersect(titre, Target) Is Nothing And Target <> "" Then
    OrdreTri = IIf(Target.Interior.ColorIndex = 3, xlDescending, xlAscending)
    Plage.Sort Key1:=Cells(1, Target.Column), Order1:=OrdreTri, Header:=xlGuess
    m = IIf(Target.Interior.ColorIndex = 15, 16, 15)
    titre.Interior.ColorIndex = 34
    Target.Interior.ColorIndex = m
  End If
  Cancel = True
End Sub

 

[Scorpio]

Salut sylvanu,
Merci de ton aide, le code fonctionne très bien mais seulement pour chaque colonnes séparée.
Il faudrait que le tri soit fait sur toute la plage
A+++

 

[sylvanu]

Bonjour Scorpio,

j'ai un code qui trie chaque colonne en faisant Clic sur chaque cellules de titre

D'après ça j'avais compris qu'un clic sur une entête triée la colonne considérée.

Il faudrait que le tri soit fait sur toute la plage

Donc un clic sur une entête doit :
1- Trier colonne par colonne indépendamment les unes des autres ?
2- Trier tout le tableau en gardant les lignes liées ? Si oui sur quelle colonne s'effectue le tri ?

 

[sylvanu]

Un essai en PJ où le tri se fait sur toutes les colonnes en conservant les lignes entières et comme critère de tri la colonne où l'entête est cliquée.
A discuter.

 

[Scorpio]

RE sylvanu,
Super, on est bon, je te remercie
A++++