Tri automatique Excel
Résolu
Solmon
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Solmon -
Solmon -
Bonjour,
Je tiens un tableau Excel comprenant une première colonne avec des dates et une seconde qui me donne la différence entre la date d'aujourd'hui et les dates entrées dans la première colonne.
Je souhaiterai qu'à chaque fois que j'entre une date dans la première colonne un tri automatique se fasse dans ces deux colonnes (sans passer par la fonction de tri habituelle).
Est-ce possible?
Mille fois merci d'avance !
Je tiens un tableau Excel comprenant une première colonne avec des dates et une seconde qui me donne la différence entre la date d'aujourd'hui et les dates entrées dans la première colonne.
Je souhaiterai qu'à chaque fois que j'entre une date dans la première colonne un tri automatique se fasse dans ces deux colonnes (sans passer par la fonction de tri habituelle).
Est-ce possible?
Mille fois merci d'avance !
A voir également:
- Tri automatique Excel
- Comment faire un tri personnalisé sur excel - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
2 réponses
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