TRIER tableau dans feuille

Bonjour,

J'ai créer un formulaire de saisie de données parcelles. Les données saisies dans mon formulaire sont retranscrites dans la feuille "Source". A chaque ajout d'une intervention j'aimerais que mon tableau se situant dans la feuille "Source" ce trie automatiquement en fonction de l'année puis du mois et enfin du jours. J'essaye avec ce code(que j’insère au niveau du bouton ajouté) mais j'ai un message d'erreur "la méthode sort de la classe range a échoué"

Merci d'avance pour votre aide

Bonjour

Tes dates ne sont pas stockées en date mais en texte : TextBox7 doit être converti en date

ActiveCell.Offset(0, 3) = CDate(TextBox7)

Mais un contrôle de la validité de la date serait utile

Ensuite un simple tri de la date suffit. Ton tableau devrait être correctement nommé : Tableau14 ne veut rien dire. En le renommant Source

    With ActiveWorkbook.Worksheets("Source").ListObjects("Source")
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("Source[[#All],[Date]]"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With

Merci le code fonctionne parfaitement. Comment écrire le code pour qu'il trie par année puis par parcelle ?

Merci d'avance

RE

Utilise 2 critères, un sur l'année et un sur la parcelle, éventuellement un 3ème sur la date

Oui ça parait logique maintenant que tu le dis, merci beaucoup en tout cas