Tri automatique

[niala]

Bonjour,
Je voudrai que le tri automatique (alphabétique en partant du nom)s'effectue quand je rajoute un nouveau nom, prénom etc

Merci pour votre aide.

 

[job75]

Re : Tri automatique

Bonsoir niala,

Placer cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le 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+

 

[niala]

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

 

[niala]

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

 

[BOISGONTIER]

Re : Tri automatique

Bonsoir,

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

JB

 

[job75]

Re : Tri automatique

Re,

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

Avec un bouton ActiveX :

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

Avec un bouton Formulaire lui affecter la macro :

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

Edit : bonsoir JB.

A+

 

[niala]

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?

 

[job75]

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+

 

[niala]

Re : Tri automatique

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

 

[job75]

Re : Tri automatique

Re,

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

A+

 

[niala]

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