Comment sortir d'une sélection en VBA ?

Bonjour Forum !

J'ai besoin d'un conseil.

J'ai créé une macro qui effectue un tri sur une plage nommée.

Sub Données_PLANIF_trier_par_date()
    Application.Goto Reference:="PLANIF"
    Selection.Sort Key1:=Range("o21"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("P2").Select
End Sub

La ligne avec

Range("P2").Select

est là pour éviter qu'à la fin de la macro, la plage de cellules reste sélectionnée.

Mais cette méthode n'est pas géniale parce qu'elle modifie l'affichage.

Comment faire pour déselectionner la plage "PLANIF" en fin de macro, sans changer l'affichage ?

Merci !

Bonjour gloub,

En fait déselectionner une cellule revient à sélectionner une autre cellule.

Essaie en remplaçant :

Range("P2").Select

par le code suivant :

Range("PLANIF").Resize(1, 1).Select

Bonjour à tous,

Une autre solution :

ActiveCell.Select

Cordialement,

Bonjour,

Bonjour Sébastien et VBA-New

Euh, et sans rien sélectionner?

Sub Données_PLANIF_trier_par_date()
Range("PLANIF").Sort Key1:=Range("o21"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End Sub

Peut-être???

Bonne journée à tous

Merci à tous pour vos réponses, je suis débloqué.

Quelques détails :

La méthode de vba-new me renvoie un message d'erreur,

mais celle de Sébastien fonctionne, donc ça me va.

...et "et sans rien sélectionner", eh ben tout reste sélectionné !

Re-,

...et "et sans rien sélectionner", eh ben tout reste sélectionné !

Ah bon???

Tu as bien enlevé la 1ère ligne de ton code?

Cette ligne est à supprimer :

Application.Goto Reference:="PLANIF"

Merci cousinhub, j'avais pas tout capté.