Microsoft 365 Feuille de route Tournoi

[tintin.86]

Bonjour à tous
N'étant pas un grand spécialiste d'Excel ,j ai essayé de créer un fichier (avec les bons conseils que j'ai trouvé sur le forum et les vidéos de professionnels d'Excel pour cette occasion je remercie tout le monde pour leurs bons conseils) pour un tournoi de fléchettes Electroniques.

Avec l'aide de JHA (qui m'a créer une macro pour faire les feuilles de routes de chaque joueurs ) je remercie JHA car ca marche bien

Ma demande sur ce fichier :

les feuilles de routes de chaque joueurs se mettre sur un onglet individuel ,serait-il possible de pouvoir rassembler les feuilles de route des joueurs par poule sur un seul onglet nommé poule 1,poule 2 etc avec les feuilles de routes des 8 joueurs qui composent la poule ?

je sais pas trop si je m'exprime bien

merci par avance pour le temps que vous m'accorder sur ce fichier

Tintin.86

 

[JHA]

Bonjour à tous,

Tu as certainement fait erreur sur la personne car je suis une bille en VBA.

JHA

 

[vgendron]

Bonjour

sans trop de détail sur ce que tu souhaites exactement, voici une proposition

Sub SynthPoule()
Dim WsFdr As Worksheet
Dim FeuilleSynth As Worksheet
Dim Poule As Range


For Each WsFdr In ActiveWorkbook.Sheets
    If WsFdr.Name Like "fdr *" Then
        With WsFdr
            If Not FeuilleExiste(CStr(.Range("A1"))) Then
                Sheets.Add after:=Sheets(Sheets.Count)
                ActiveSheet.Name = .Range("A1")
            End If
            Set FeuilleSynth = Sheets(CStr(.Range("A1")))
            Set Poule = .Range("A1:C11")
        End With
       
        With FeuilleSynth
            LastLine = .UsedRange.Rows.Count + 1
            'LastCol = .UsedRange.Columns.Count
            Poule.Copy Destination:=.Cells(LastLine, 1)
        End With
    End If
Next WsFdr
End Sub


Function FeuilleExiste(NomFeuille As String) As Boolean
    FeuilleExiste = False
    For Each ws In ActiveWorkbook.Sheets
        If ws.Name = NomFeuille Then
            FeuilleExiste = True
            Exit Function
        End If
    Next ws
End Function

 

[vgendron]

et pour placer les tableaux comme sur ta feuille "feuille397"

Sub SynthPoule()
Dim WsFdr As Worksheet
Dim FeuilleSynth As Worksheet
Dim Poule As Range
Const NbEnLigne = 3 'nb de tableaux de poule a mettre cote à cote

Application.ScreenUpdating = False
For Each WsFdr In ActiveWorkbook.Sheets
    If WsFdr.Name Like "fdr *" Then
        With WsFdr
            If Not FeuilleExiste(CStr(.Range("A1"))) Then
                Sheets.Add after:=Sheets(Sheets.Count)
                ActiveSheet.Name = .Range("A1")
            End If
            Set FeuilleSynth = Sheets(CStr(.Range("A1")))
            Set Poule = .Range("A1:C11")
        End With
        
        With FeuilleSynth
            If .UsedRange.Rows.Count = 1 Then
                Lastline = 1
                LastCol = 1
            Else
                Lastline = .Range("A" & .Rows.Count).End(xlUp).Row - 9
                LastCol = .Cells(Lastline, .Columns.Count).End(xlToLeft).Column + 3
                If LastCol = NbEnLigne * 4 + 1 Then
                    LastCol = 1
                    Lastline = Lastline + 12
                End If
            End If
            Poule.Copy Destination:=.Cells(Lastline, LastCol)
        End With
    End If
Next WsFdr
Application.ScreenUpdating = True
End Sub


Function FeuilleExiste(NomFeuille As String) As Boolean
    FeuilleExiste = False
    For Each ws In ActiveWorkbook.Sheets
        If ws.Name = NomFeuille Then
            FeuilleExiste = True
            Exit Function
        End If
    Next ws
End Function

 

[tintin.86]

Bonjour vgendron
Merci pour ce que tu a fait mais je suis pas très doué pour l'intégré a mon fichier
j'ai réussi a mettre ton premier code c'est comme je voulais si je peux me permettre il faudrait une ligne entre chaque tableau

Vraiment félicitation pour ce joli travail je te remercie beaucoup
tintin.86

 

[vgendron]

SI je peux me permettre.. tout ton code est assez indigeste et relativement redondant..
8 macros pour imprimer les poules 1 à 8 de la feuille "Match de poule"

et le pire, c'est qu'elles n''imprime pas tout... tes tableaux de poules ont surement grandi (plus de lignes) depuis l'écriture de ces macros..

20 modules qui contiennent chacun une macro dont on ne sait pas trop ce qu'elle fait.. c'est pas terrible non plus..
un peu d'ordre dans toutt ca, ne serait pas du luxe

 

[tintin.86]

oui je sais mais n'étant pas très bon voir nul avec les macro j'essaye des choses qui sont pas toujours bien

je manque beaucoup de pratique et l'anglais et moi on fait très bon ménage mais je persévère

mais pour un pro comme toi le fichier doit être un sacré foutoir
merci pour le temps que tu ma accorder

tintin.86

 

[vgendron]

Normalement, avec ce fichier, ca devrait etre plus clair

vérifie que ca fonctionne encore, parce que je n'ai pas la meme version excel que toi, et je n'a pas les fonctions de filtre utilisées dans ton fichier

 

[tintin.86]

Bonsoir Vgendron

oui c'est vraiment plus clair merci ca fonctionne super bien

merci pour tout le temps passé dessus

les prochains fichier que je essayerai de faire je prendrai model dessus afin que ce soit plus net

encore merci pour tout

tintin.86