Bonjour tout le monde.
Dans mon classeur, j'ai la feuille "Accueil" en "D8" si je saisi une données, lors de la frappe Enter, une autre feuille doit s'ouvrir, se trier. Le problème est que pour la partie AccueilVersStatsEquipe6, la bonne feuille s'ouvre, se trie, mais après une autre feuille s'ouvre qui ne correspond plus.
Voici les code vba que j'ai créer dans la feuille Accueil:
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("D4")) Is Nothing Then
        Call AccueilQuelleJournée
    End If
    If Not Application.Intersect(Target, Range("D6")) Is Nothing Then
        Call AccueilVersCL
    End If
    If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe1
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe2
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe3
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe4
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe5
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe6
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe7
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe8
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe9
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe10
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe11
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe12
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe13
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe14
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe15
    End If
    If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe16
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe17
    End If
    If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe18
    End If
If Not Application.Intersect(Target, Range("D8")) Is Nothing Then
     Call AccueilVersStatsEquipe19
    End If
End Sub
Dans un module:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub AccueilVersStatsEquipe6()
If Range("D8") = Sheets("Equipes").Range("D9") Then
    Sheets("StatsEquipe6").Activate
    ActiveSheet.Range("D7").Select
End If
Dans ma feuille StatsEquipe6:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Worksheet_Activate()
    TriStatsE6Classement
End Sub
Et dans un module:
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Sub TriStatsE6Classement()
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Add Key:=Range("P7:P47"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("StatsEquipe6").Sort
        .SetRange Range("O7:P47")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Add Key:=Range("P52:P92"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("StatsEquipe6").Sort
        .SetRange Range("O52:P92")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Add Key:=Range("P97:P137"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("StatsEquipe6").Sort
        .SetRange Range("O97:P137")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Add Key:=Range("P142:P182"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("StatsEquipe6").Sort
        .SetRange Range("O142:P182")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Add Key:=Range("P187:P227"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("StatsEquipe6").Sort
        .SetRange Range("O187:P227")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("StatsEquipe6").Sort.SortFields.Add Key:=Range("P232:P272"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("StatsEquipe6").Sort
        .SetRange Range("O232:P272")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("D7").Select
End Sub
Quelqu'un peut-il m'aider.
Merci d'avance.