Microsoft 365 VBA: fonction pour désélectionner après le tri

[VBA_dev_Anne_Marie]

Bonjour,

Je n'arrive pas à désélectionner la plage après le tri.
Voici mon code :

Sub Tri()
    Dim FinTri As Integer
    With Sheets("BDD")
    FinTri = .Range("D" & .Rows.Count).End(xlUp).Row
    Application.CutCopyMode = False
    End With
    Sheets("BDD").Range("D11:G" & FinTri).Select
    Selection.Sort Key1:=Range("D11"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
End Sub

J'ai essayé de placer à la fin Application.CutCopyMode = False mais cela ne marche.
J'ai essayé aussi de resélectionner, Sheets("BDD").Range("D11:G" & FinTri).Select, pour enlever la sélection, cela ne marche pas non plus.

Merci pour votre aide !

 

[sylvanu]

Bonjour Anne Marie,
Essayez comme en PJ :

Sub Tri()
    Dim FinTri As Integer
    With Sheets("BDD")
    FinTri = .Range("D" & .Rows.Count).End(xlUp).Row
    Application.CutCopyMode = False
    End With
    Sheets("BDD").Range("D11:G" & FinTri).Select
    Selection.Sort Key1:=Range("D11"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    [A1].Select
End Sub

[A1], pour les fainéants, c'est Range("A1")

 

[VBA_dev_Anne_Marie]

Bonjour Anne Marie,
Essayez comme en PJ :

Sub Tri()
    Dim FinTri As Integer
    With Sheets("BDD")
    FinTri = .Range("D" & .Rows.Count).End(xlUp).Row
    Application.CutCopyMode = False
    End With
    Sheets("BDD").Range("D11:G" & FinTri).Select
    Selection.Sort Key1:=Range("D11"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    [A1].Select
End Sub

[A1], pour les fainéants, c'est Range("A1")

Merci Sylvanu !
Le code marche très bien !