Tri automatique

Résolu
Citrusmecanica
Messages postés
3
Date d'inscription
jeudi 30 juin 2011
Statut
Membre
Dernière intervention
13 janvier 2012
- 30 juin 2011 à 02:00
Citrusmecanica
Messages postés
3
Date d'inscription
jeudi 30 juin 2011
Statut
Membre
Dernière intervention
13 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

2 réponses

ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
30 juin 2011 à 07:29
Bonjour,
En ajoutant avant ton End If :
Range("A" & Target.Column).Activate

tu te retrouves en colonne A, sur la ligne de la cellule cliquée.

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
3
Citrusmecanica
Messages postés
3
Date d'inscription
jeudi 30 juin 2011
Statut
Membre
Dernière intervention
13 janvier 2012

1 juil. 2011 à 23:59
Merci
0