Tri automatique Excel
Résolu/Fermé
Solmon
Messages postés
1
Date d'inscription
lundi 20 décembre 2010
Statut
Membre
Dernière intervention
20 décembre 2010
-
20 déc. 2010 à 17:22
Solmon - 21 déc. 2010 à 09:05
Solmon - 21 déc. 2010 à 09:05
A voir également:
- Tri automatique Excel
- Liste déroulante excel - Guide
- Trier sur excel - Guide
- Si et excel - Guide
- Message automatique thunderbird - Guide
- Word et excel gratuit - Guide
2 réponses
tchernosplif
Messages postés
600
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
21 juin 2015
245
Modifié par tchernosplif le 20/12/2010 à 21:55
Modifié par tchernosplif le 20/12/2010 à 21:55
Bonjour,
sur un onglet, clic droite, visualiser le code et coller ceci:
( tri à chaque fois qu'une cellule sera validée dans la feuille)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
tri
End Sub
Sub tri()
Range("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
sur un onglet, clic droite, visualiser le code et coller ceci:
( tri à chaque fois qu'une cellule sera validée dans la feuille)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
tri
End Sub
Sub tri()
Range("A:B").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub