Discussion :

[boulser]

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.

[boulser]

Bonjour tout le monde,

Dans ma feuille "Equipe", les cellules pour les données de l'équipe 19 étaient vides, attente des play off (jupiler pro league Belgique). Ce que je ne comprends pas, c'est qu'il n'y avait aucun problème avec 16 équipes, par contre avec la 6ème et la 10ème, j'avais ce problème.

J'ai donc mis des données (zzzzz) dans ces cellules restant vides et tout fonctionne à merveille.

Quelqu'un peut-il m'expliquer ?

Merci d'avance.

[aziz1015]

Bonjour,

qu'est ce que vous essayez de faire concrètement ?

De mettre à jour les données les données dans l'Accueil, ensuite de faire des filtres pour créer plusieurs onglets ?

J'ai juste besoin de comprendre ce que vous essayez de faire puisque votre code est trop long et je ne vois que des filtres et pas de copies.

[boulser]

Bonjour, Aziz1015,

Lorsque dans la feuille "Accueil", d'après les données que j'entre en "D8" (Nom d'une équipe), en frappant sur ma touche ENTER, cela doit m'ouvrir la page des statistiques "StatsEquipe..." de cette équipe et les trier "TriStatsE...Classement" . Pour pouvoir les consulter match par match et avoir les totaux. Meilleur Butteur, Meilleur Passeur, carton jaune etc.