XL 2019 Condition en fonction d'une liste

Mopire

XLDnaute Junior
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.
 

Pièces jointes

  • calendrier_test.xlsx
    50.1 KB · Affichages: 3
Dernière édition:

job75

XLDnaute Barbatruc
Voyez le fichier joint et la macro affectée au bouton :
VB:
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.
 

Pièces jointes

  • calendrier_test.xlsm
    51.6 KB · Affichages: 5

Mopire

XLDnaute Junior
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.
 

Pièces jointes

  • PS_1.xlsm
    492.3 KB · Affichages: 6

Mopire

XLDnaute Junior
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 !!
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO