Placer cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Cancel = True
[A:E].Sort [A1], Header:=xlYes
End Sub
Elle s'exécute quand on fait un double-clic en colonne A.
Noter qu'une macro Worksheet_Change serait possible mais le tri se ferait dès qu'on entre une valeur ce qui serait casse-pied.
Bonjour et Merci JB
Le Bouton marche
Une autre question si je peux me permettre.
J'ai un Classeur XLSM qu'un correspondant doit remplir et dont les données sont sur un autre classeur xlsm.
Comment ouvrir automatiquement le second classeur en ouvrant le classeur à remplir?
Le problème :
J'ai intégré:
Private Sub Workbook_Open()
Dim Chemin As String
Dim NomFichier As String
Chemin = "C:\Users\darty\Documents\apcl planning\"
NomFichier = "liste apcl.xlsm"
Mais à l'ouverture du classeur il me signale le bug:
(Workbooks.Open Chemin & NomFichier) en erreur et je ne comprend pas mon erreur.
Alors si on peut m'aider!!