Commande macro Tri par ordre alphabétique
Fermé
SOFJ
-
Modifié par SOFJ le 24/01/2013 à 11:56
SOFJ Messages postés 3 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 24 janvier 2013 - 24 janv. 2013 à 14:12
SOFJ Messages postés 3 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 24 janvier 2013 - 24 janv. 2013 à 14:12
A voir également:
- Commande macro Tri par ordre alphabétique
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms - Forum Excel
- Trier par ordre alphabétique excel - Guide
- Invite de commande - Guide
- Macro logiciel - Télécharger - Organisation
5 réponses
marc07
Messages postés
590
Date d'inscription
dimanche 3 avril 2011
Statut
Membre
Dernière intervention
18 octobre 2014
194
24 janv. 2013 à 12:04
24 janv. 2013 à 12:04
Bonjour,
il te suffit simplement de de rajouter a la macro (Range("A5:M65536").Select
comme ceci
Sub Tri()
'
''Macros par Jarmouni Sofiane le 24 Jan 13
' Tri Macro
' Tri automatique des lignes
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("A5:M65536").Select
ActiveWindow.SmallScroll Down:=-14
ActiveWorkbook.Worksheets("Mouvement des flux").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Mouvement des flux").Sort.SortFields.Add Key:= _
Range("A5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Mouvement des flux").Sort
.SetRange Range("A5:M65536")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
il te suffit simplement de de rajouter a la macro (Range("A5:M65536").Select
comme ceci
Sub Tri()
'
''Macros par Jarmouni Sofiane le 24 Jan 13
' Tri Macro
' Tri automatique des lignes
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("A5:M65536").Select
ActiveWindow.SmallScroll Down:=-14
ActiveWorkbook.Worksheets("Mouvement des flux").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Mouvement des flux").Sort.SortFields.Add Key:= _
Range("A5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Mouvement des flux").Sort
.SetRange Range("A5:M65536")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
SOFJ
Messages postés
3
Date d'inscription
jeudi 24 janvier 2013
Statut
Membre
Dernière intervention
24 janvier 2013
24 janv. 2013 à 12:14
24 janv. 2013 à 12:14
Merci beaucoup, ça marche du tonnerre !
Il a simplement fallu que je reconfigure la touche de raccourci pour exécuter la macro, mais en dehors de ça nickel.
Thumbs up comme on dit ;)
Merci encore.
Il a simplement fallu que je reconfigure la touche de raccourci pour exécuter la macro, mais en dehors de ça nickel.
Thumbs up comme on dit ;)
Merci encore.
marc07
Messages postés
590
Date d'inscription
dimanche 3 avril 2011
Statut
Membre
Dernière intervention
18 octobre 2014
194
24 janv. 2013 à 12:53
24 janv. 2013 à 12:53
tu peut aussi faire en sorte que ton trie se fasse automatiquement a un rajout que tu fait sur ton classeur regarde ici cela est super bien expliquer
http://www.polykromy.com/blog/excel-video-f10.html
au plaisir de t'avoir aider
marc
http://www.polykromy.com/blog/excel-video-f10.html
au plaisir de t'avoir aider
marc
SOFJ
Messages postés
3
Date d'inscription
jeudi 24 janvier 2013
Statut
Membre
Dernière intervention
24 janvier 2013
24 janv. 2013 à 13:01
24 janv. 2013 à 13:01
Ça ne marche plus!
J'ai eu la "bonne idée" d'aller modifier le titre de ma feuille, j'ai pris la précaution d'aller le modifier aussi dans le champ de la commande macro dans le VBA aussi, et il ne veut toujours pas marcher.
Voila ce qui est affiché :
Ps : Merci pour le lien ;)
J'ai eu la "bonne idée" d'aller modifier le titre de ma feuille, j'ai pris la précaution d'aller le modifier aussi dans le champ de la commande macro dans le VBA aussi, et il ne veut toujours pas marcher.
Voila ce qui est affiché :
Sub Tri()
'
''Macros par Jarmouni Sofiane le 24 Jan 13
' Tri Macro
' Tri automatique des lignes
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("A5:M65536").Select <= Voilà l'erreur
ActiveWindow.SmallScroll Down:=-14
ActiveWorkbook.Worksheets("Trésorerie").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Trésorerie").Sort.SortFields.Add Key:= _
Range("A5"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Trésorerie").Sort
.SetRange Range("A5:M65536")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Ps : Merci pour le lien ;)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
marc07
Messages postés
590
Date d'inscription
dimanche 3 avril 2011
Statut
Membre
Dernière intervention
18 octobre 2014
194
24 janv. 2013 à 13:11
24 janv. 2013 à 13:11
si tu n'a pas fait d'erreur dans le nom de "Trésorerie" alors essaye de fermer ton classeur et de l'enregistrer puis ouvre a nouveau peut etre que l'évenement dois s'enregistrer a nouveau afin qu'il fonctionne
SOFJ
Messages postés
3
Date d'inscription
jeudi 24 janvier 2013
Statut
Membre
Dernière intervention
24 janvier 2013
24 janv. 2013 à 14:12
24 janv. 2013 à 14:12
Je confirme, ça remarche merci pour tout !