Citrusmecanica
Messages postés2Date d'inscriptionjeudi 30 juin 2011StatutMembreDernière intervention13 janvier 2012
-
30 juin 2011 à 02:00
Citrusmecanica
Messages postés2Date d'inscriptionjeudi 30 juin 2011StatutMembreDernière intervention13 janvier 2012
-
1 juil. 2011 à 23:59
Bonjour,
Comment modifier le code ci-dessous pour que, une fois le tri automatique effectué, la cellule active revienne automatiquement en colonne A.
Merci pour votre aide.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("U:U")) Is Nothing Then
Range("A15:T199").Sort Key1:=Range("A15"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub