XL 2019 Condition en fonction d'une liste

[Mopire]

Bonjour à tous,

J'ai dans un onglet un calendrier avec la date, équipe, résultat, équipe, résultat. Dans les autres j'ai une liste d'équipe.
Je souhaite copier le calendrier dans chaque onglet correspondant à la liste.
Dans mon projet, le calendrier sera dans un autre fichier.

Je ne sais pas si c'est claire, j'ai toujours du mal à expliquer.

Merci d'avance à votre aide.

 

[job75]

Bonjour Mopire,

Dans la feuille calendrier, si chaque ligne correspond à une rencontre, pourquoi y a-t-il 2 résultats ?

A+

 

[job75]

Voyez le fichier joint et la macro affectée au bouton :

Sub Equipes()
Dim fichier$, feuille$, plage As Range, c As Range, w As Worksheet
fichier = "calendrier_test.xlsm" 'à adapter
feuille = "calendrier"
On Error Resume Next
Set plage = Workbooks(fichier).Sheets(feuille).[A1].CurrentRegion
If plage Is Nothing Then MsgBox "Le fichier '" & fichier & "' doi être ouvert et contenir la feuille '" & feuille & "'": Exit Sub
Application.ScreenUpdating = False
For Each c In Sheets("liste").[A3:A20] 'à adapter
    If c <> "" Then
        '---création de la feuille---
        On Error Resume Next
        Set w = Nothing
        Set w = Sheets(c.Value)
        On Error GoTo 0
        If w Is Nothing Then
            Set w = Sheets.Add(After:=Sheets(Sheets.Count))
            w.Name = c
        End If
        '---filtre avancé copié---
        w.Cells.Delete 'RAZ
        plage(2, 7) = "=OR(B2=""" & c & """,D2=""" & c & """)" 'critère
        plage.AdvancedFilter xlFilterCopy, plage(1, 7).Resize(2), w.Range("A1:E1")
    End If
Next
If plage.Parent.FilterMode Then plage.Parent.ShowAllData 'RAZ
plage(2, 7) = "" 'RAZ
Sheets("liste").Activate
End Sub

Elle utilise le filtre avancé qui est copié vers chacune des feuilles créées.

 

[Mopire]

Bonjour,

Merci job75, mais cela ne correspond pas à ceux que je veux faire. Si il y a deux résultats c'est que le deuxième est le résultat à la mi-temps.
Je ne pourrai pas modifier le fichier qui contiendra les calendriers car je récupère un fichier calendrier.csv avec tous les résultats et rencontre de toutes les ligues.
Et dans mon fichier où j'ai toutes mes ligues, il y a mes stats et le calendrier. Je récupère actuellement le calendrier via power query, mais avec plus de 50 ligues ça met trop longtemps à ce mettre a jours. Du coup je voudrais supprimer le tableau actuelle et le remplacer par le calendrier correspondant à la ligue. Je met en pièce jointe mon fichier pour plus de visuel.

 

[job75]

Bonsoir Mopire,

Le nouveau fichier n'a plus rien à voir avec celui du post #1.

Cette manière de faire n'est pas acceptable, je laisse tomber.

 

[Mopire]

Excusez moi si ma manière à été inacceptable. Dans mon premier post, j'ai créer un fichier simple afin d'expliquer mon problème. Comme mes explications n'est pas claire j'ai fait un autre fichier plus précis. Je suis encore désolé mais mon but n'étais pas de vous outrer !!