trie automatique par date

[cartmom]

Bonjour à tous !

Tout est dans le titre!

J'ai 5 colonnes dont celle de la date est placé en 4eme position et souhaiterais que les données soit classé par ordre croissant dès que je saisie la date. Et non de cliquer à chaque fois sur "tri croissant".

Merci d'avance.

 

[ROGER2327]

Re : trie automatique par date

Bonjour cartmom, bienvenue,

En l'absence d'un classeur d'exemple, voyez l'essai joint.

Code dans le module de feuille :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 4 Then
      Application.EnableEvents = False
      Range(Cells(1, 1), Cells(Rows.Count, 4).End(xlUp).Offset(0, 1)).Sort _
         Key1:=Range("D1"), Order1:=xlAscending, Header:=xlYes, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal
      Application.EnableEvents = True
   End If
End Sub[/B][/COLOR]

ROGER2327
#3945

Dimanche 8 Tatane 137 (Susception du Croc à Merdre, SS)
3 Thermidor An CCXVIII
2010-W29-3T14:35:50Z

 

[cartmom]

Re : trie automatique par date

oui voila exactement à quoi ressemble mon tableau.

Pourriez-vous m'indiquer où se trouve le module de feuille ??

Je suis allé dans macro puis j'en ai créez une s'intitulant tri puis j'ai copiez votre code dans le "module1" mais cela ne fonctionne pas..

J'ai trouvé ou cela se trouvait!
Merci tout fonctionne impeccablement