Bonsoir,
Je cherche à faire des tris automatiques sur plusieurs zones d'une même feuille.
J'ai trouvé un code qui fonctionne très bien sur le tri d'une zone. J’essaie de l'adapter mais je ne sais pas gérer les boucles ce qui provoque un message d'erreur.
Auriez vous une idée?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then 'tri sur nom de la zone A2:C10 nom = Target [A2:C10].Sort key1:=[A2] [A:A].Find(what:=nom).Select End If If Target.Column = 1 And Target.Count = 1 Then nom = Target 'tri sur nom de la zone E2:G10 [E2:G10].Sort key1:=[E2] [E:E].Find(what:=nom).Select 'tri sur nom de la zone A22:C30 nom = Target [A22:C30].Sort key1:=[A22] [A:A].Find(what:=nom).Select End If If Target.Column = 1 And Target.Count = 1 Then nom = Target 'tri sur nom de la zone E22:G30 [E22:G30].Sort key1:=[E22] [E:E].Find(what:=nom).Select End If End Sub
Partager