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

VBA_dev_Anne_Marie · 12 Septembre 2022

Bonjour,

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

VB:

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 · 12 Septembre 2022

Bonjour Anne Marie,
Essayez comme en PJ :

VB:

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")

sylvanu · 12 Septembre 2022

Bonjour Anne Marie,
Essayez comme en PJ :

VB:

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 · 12 Septembre 2022

sylvanu à dit:

Bonjour Anne Marie,
Essayez comme en PJ :

VB:

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 !

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

VBA_dev_Anne_Marie

XLDnaute Occasionnel

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Discussions similaires