Discussion :

[Razekiel_]

Bonjour,

Je souhaiterais avoir un tri automatique d'une colonne par simple clique sur un bouton.
J'ai trouvé les codes en cherchant sur le net et sur le forum et pourtant j'ai une erreur.

Je ne m'y connais pas en VBA mais je sais que certains membres avaient pu m'apporter leur aide en prenant de leur temps.

J'espère ainsi que vous pourrez m'aider.

Code pour Associer un Code VBA à une cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
 
    'macro à mettre
 
    End If

Code pour faire un trie automatique que j'insère sous 'macor à mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Call Private Sub CommandButton1_Click()
    [C7:D660].Select
    Selection.Sort Key1:=Range("C7"), Order1:=xlAscending
    [C7].Select

J'ai combiné les deux pour avoir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
 
    'macro à mettre
Call Private Sub CommandButton1_Click()
    [C7:D660].Select
    Selection.Sort Key1:=Range("C7"), Order1:=xlAscending
    [C7].Select
    End If

Mais j'ai une erreur de synthaxe ou j'ai également eu le message qu' "un End Sub était attendu".

Je précise que j'ai mis ce code en faisant un clique droit/Visualiser le code sur la feuille que je souhaite.

J'ai des donnée sur la colonne C, celles-ci commencent en C7 (pour l'instant les données s'arretent en C19 mais je dois en rajouter un grand nombre), et je souhaite ajouter la cellule à cliquer pour le tri en C6.

Merci d'avance.

[jfontaine]

Bonjour,

Ci dessous un code qui tri la colonne ou on fait le double click, le tableau commençant ligne 7 (ligne de titre)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Range("A7:D" & Range("C" & Rows.Count).End(xlUp).Row).Sort Key1:=Cells(8, Target.Column), Order1:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

[Razekiel_]

Super, ca fonctionne impec.
UN grand merci pour ta rapidité et ton aide.

Pourrais tu juste m'expliquer pourquoi tu as écris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A7:D" & Range("C" & Rows.Count)

Juste à titre d'information si on veut "étendre la séelction" lors du tri que faudrait il rajouter au code?