Tri auto

[platinium]

Bonsoir;
Vraiment super ce site!!!
Voila je viens vous solliciter pour résoudre ce qui me tracasse depuis des heures. J'ai un fichier ou je saisie mes donnée en feuil1(carnet),comment arriver a trier au fur et a mesure que je saisie dans les feuil2 3 4 (départ,transit, et arrivée)
Merci
je joint mon fichier:

 

[Cousinhub]

Re : Tri auto

bonsoir, regarde le fichier joint, et reviens si problème

 

[platinium]

Re : Tri auto

Bonsoir,

Merci bhbh,c'est exactement ce que je veut, il manque seulement le tri dans les feuil2 3 4

 

[Cousinhub]

Re : Tri auto

Re-,
quel tri?
il vaut mieux faire le tri sur la feuille 1 puis extraire.
rajoute cette ligne (en rouge):

Sub voyage()
[COLOR="Red"]Range("base").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess[/COLOR]
For Each sh In Array("Départ", "Transit", "Arrivée")
    With Sheets(sh)
    Range("base").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
        "A1:C1"), Unique:=True
    End With
Next sh
End Sub

 

[platinium]

Re : Tri auto

Merci bhbh;

c'est vraiment super !!!