Microsoft 365 Tri Colonne VBA

Scorpio · 29 Janvier 2021

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 · 29 Janvier 2021

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 :

VB:

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 · 30 Janvier 2021

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 · 30 Janvier 2021

Bonjour Scorpio,

Scorpio à dit:
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.

Scorpio à dit:
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 · 30 Janvier 2021

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 · 30 Janvier 2021

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

Microsoft 365 Tri Colonne VBA

Scorpio

XLDnaute Impliqué

Pièces jointes

sylvanu

XLDnaute Barbatruc

Propriété Range.CurrentRegion (Excel)

Pièces jointes

Scorpio

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Scorpio

XLDnaute Impliqué

Discussions similaires