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.