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