Rester sur la cellule modifiée après un tri Résolu

Question

Bonjour, 

J'ai un code pour trier plusieurs colonnes (tri sur les colonnes A et C) lorsqu'on modifie ou on ajoute une ligne. Le problème est que dès que l'on encode quelque chose, la macro trie le tout mais reste sur la cellule où la modification a été faite. Serait-il possible que la macro retrouve la cellule que l'on vient de modifier et se positionne sur celle-ci ? Par ex, si je modifie la cellule A2 et que celle-ci se retrouve en A82 après le tri, il faudrait que la cellule active soit la A82.
Je précise que je n'y comprends pas grand chose à VBA...

Etant au boulot, je n'ai pas accès à cjoint.com, je mets donc le code tel quel.


Merci d'avance pour vos idées ;-)

fadmaam


Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ref As Range
Set ref = ActiveCell
Range("A2:AC1000").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
Select Case ref.Value
End Select
End Sub

Frenchie83 · Answer

Bonjour
Attention dans votre texte, vous parlez des colonnes de A à C
mais dans la macro, vous avez A à AC
 j'ai retenu le premier cas, si ce n'est pas ça, dites le moi
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 3 Or Target.Row = 1 Then Exit Sub
    Valeur = Target
    Range("A2:C1000").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
    :=xlSortNormal
    Set C = Columns("A:C").Find(Valeur, LookIn:=xlValues)
    C.Select
End Sub
Cdlt

Frenchie83 · Answer

Voilà
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Column > 29 Or Target.Row = 1 Then Exit Sub
    Valeur = Target
    Range("A2:AC" & [A10000].End(xlUp).Row).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
    :=xlSortNormal
    Set C = Columns("A:AC").Find(Valeur, LookIn:=xlValues)
    C.Select
End Sub
Cdlt

Rester sur la cellule modifiée après un tri

2 réponses

Discussions similaires

Newsletters