Pas de tri après un BeforeRightClick

[Claudy]

Bonjour à tous,
dans ma procédure ci dessous,
le tri ne se fait pas,
pas de message d'erreur, aucune protection...comprend pas!
Avez vous une petite idée?
Merci,
Claudy

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Selection.Interior.ColorIndex = 33
Sheets("Doubles").Range("A1000").End(xlUp).Offset(1, 0) = Selection.Value
Sheets("Doubles").Select

Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

 

[mromain]

Re : Pas de tri après un BeforeRightClick

bonjour Claudi,


essaye avec ce code :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Selection.Interior.ColorIndex = 33
Sheets("Doubles").Range("A1000").End(xlUp).Offset(  1, 0) = Selection.Value
Sheets("Doubles").Select

[B]Sheets("Doubles").[/B]Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

PS: sans fichier, je n'ai pas pu tester le code...

a+

 

[ROGER2327]

Re : Pas de tri après un BeforeRightClick

Bonjour Claudy, mromain

Comme on ne sait pas dans quelle feuille est placée cette procédure, difficile d'avoir une certitude. A tout hasard :

[COLOR="DarkSlateGray"]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Selection.Interior.ColorIndex = 33
With Sheets("Doubles")
        .Range("A1000").End(xlUp).Offset(  1, 0) = Selection.Value
        .Select '[COLOR="SeaGreen"][B]Est-ce nécessaire ?[/B][/COLOR]
        .Range("A:A").Sort Key1:=[COLOR="Red"][B].[/B][/COLOR]Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End With
End Sub[/COLOR]

PS: sans fichier, je n'ai pas pu tester le code...

Idem pour moi.​

Bonne journée !
ROGER2327

 

[Claudy]

Re : Pas de tri après un BeforeRightClick

Ok, merci pour la réponse rapide, en fait j'ai contourné le prob en faisant un tri en activant l"Doubles":

Private Sub Worksheet_Activate()
Range("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Mais question à propos de mon BeforeRightClick:

Comment désactiver le menu contextuel qui s'affiche ?
Merci a+
Claudy

 

[Dull]

Re : Pas de tri après un BeforeRightClick

Salut claudy, mromain, Roger, le Forum

Essaye en début de procédure

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True'...

Bonne Journée