Tri automatique

job75

XLDnaute Barbatruc

• 5 Février 2014

• #2

Re : Tri automatique

Bonsoir niala,

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.

A+

 

Vote positif 0 Vote négatif

N

niala

Guest

• 5 Février 2014

• #3

Re : Tri automatique

Bonjour et Merci
J'ai intégré la macro mais le double clic ne fonctionne pas
Où fais-je l'erreur?

Non Non ça marche
Mille merci

 

Pièces jointes

• LISTE.xlsx

  10.7 KB · Affichages: 39
• LISTE.xlsx

  10.7 KB · Affichages: 44
• LISTE.xlsx

  10.7 KB · Affichages: 44
• LISTE.xlsm

  16.2 KB · Affichages: 40
• LISTE.xlsm

  16.2 KB · Affichages: 44
• LISTE.xlsm

  16.2 KB · Affichages: 41

Dernière modification par un modérateur: 5 Février 2014

Vote positif 0 Vote négatif

N

niala

Guest

• 5 Février 2014

• #4

Re : Tri automatique

Encore une petite question:
Et si je veux valider les changements au moyen d'un bouton?
quelle est la marche à suivre?
Bonne soirée
Alain

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 5 Février 2014

• #5

Re : Tri automatique

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Tri/TriDynamique.xls

JB

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Février 2014

• #6

Re : Tri automatique

Re,

Je suis sûr qu'en réfléchissant plus de 30 secondes vous auriez trouvé.

Avec un bouton ActiveX :

Code:

Private Sub CommandButton1_Click()
[A:E].Sort [A1], Header:=xlYes
End Sub

Avec un bouton Formulaire lui affecter la macro :

Code:

Sub Tri()
[A:E].Sort [A1], Header:=xlYes
End Sub

Edit : bonsoir JB.

A+

 

Dernière édition: 5 Février 2014

Vote positif 0 Vote négatif

N

niala

Guest

• 6 Février 2014

• #7

Re : Tri automatique

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?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Février 2014

• #8

Re : Tri automatique

Bonjour niala,

Nième question sans aucun rapport avec le fil, et il y a plein d'exemples sur le forum.

A+

 

Vote positif 0 Vote négatif

N

niala

Guest

• 6 Février 2014

• #9

Re : Tri automatique

Bonjour JOB75
Je vous prie de m'excuser pour vous avoir dérangé.
Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Février 2014

• #10

Re : Tri automatique

Re,

Pas de souci mais si vous ne travaillez pas un peu vous n'apprendrez pas grand-chose d'Excel.

A+

 

Vote positif 0 Vote négatif

N

niala

Guest

• 6 Février 2014

• #11

Re : Tri automatique

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"

Application.ScreenUpdating = False
Workbooks.Open Chemin & NomFichier
ThisWorkbook.Activate
Application.ScreenUpdating = True

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!!

 

Vote positif 0 Vote négatif