Colonnes par ordre croissant

Bonjour à tous

Voila je désirerais avoir un classement croissant par colonnes

voici un exemple

j'ai déjà vu ce genre d'exemple dans le forum mais je n'arrive pas à le mettre en pratique

Merci d'avance

Cordialement

Gabinos

Bonjour

Code à placer dans la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim LastRow As Integer

If Not Application.Intersect(Target, Range("B3:F3")) Is Nothing Then
col = Target.Column

On Error Resume Next

LastRow = ActiveSheet.Range("B65536").End(xlUp).Row
Range("B3:F" & LastRow).Sort Key1:=Cells(3, col)

End If
End Sub

Amicalement

Nad

Bonjour Nad

et Merci

Je mais cela en application dans mon fichier.

l'exemple est top, parfait

Est 'il possible de modifier de façon qui si je clic sur la colonne" D "ordre décroissant s'affiche , nouveau clic ordre croissant revient

Merci Nad

Cdt

Gabinos

Bonjour le Forum

Nad

Ta formule VBA fonctionne bien

Mais j'aimerais juste une modif Sur la Colonne "D" avoir croissant/décroissant par chaque clic sur cette colonne

Merci d'avance , ce n'est pas urgent

Bon Dimanche

Gabinos

Bonjour

En modifiant le code de Nad

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRow As Long
Dim Sens As Integer, Col As Integer

  If Not Application.Intersect(Target, Range("B3:F3")) Is Nothing Then
    Application.ScreenUpdating = False
    Col = Target.Column
    On Error Resume Next
    LastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
    Sens = xlAscending
    If Cells(3, Col) < Cells(LastRow, Col) Then
      Sens = xlDescending
    End If
    Range("B3:F" & LastRow).Sort Key1:=Cells(3, Col), Order1:=Sens, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
  End If
End Sub

Bonjour le Forum

Merci Nad et Banzaï64

pour la modification demandée

ça fonctionne nickel

Toujours à notre écoute , et rapide

Cordialement

Gabinos