Option Explicit

' ======================================================================
' =                                       DESSINE L'ENTETE DES PARTIES                                               =
' ======================================================================
' Dessine l'entete des parties.
' Ecrit "Partie N° (Incréménté a chaque tirage de nouvelles partie).
' Défini les couleurs et les bordures.
' ---------------------------------------------------------------------------------------------------------------------------

Sub Entete()
Dim LesP As Integer  ' sert a composer les 2e partie

Application.ScreenUpdating = False
With Sheets("Concours")
    If .Range("J1") = "En cours" Then
        LesP = Range("H1") + 4
    Else
        LesP = 1
    End If

    ' ----------------------
    ' Plage d'entete
    ' ----------------------
    'Range("A" & LesP & ":G" & LesP).Select
    
    With .Range("A" & LesP & ":G" & LesP)
        .RowHeight = 33 ' epaisseur de la ligne
        .Interior.Color = RGB(150, 240, 150) ' Vert
        '.Interior.Color = RGB(250, 200, 150) ' Orange (deuxieme couleur pour la consolante)
        .Borders.LineStyle = xlContinuous ' défini le style de bordure (continu)
        .Borders.Weight = xlMedium ' Défini l'épaisseur de la bordure (épaisse)
        .Borders(xlInsideVertical).LineStyle = xlNone ' Supprime les bordures verticales intérieures de la plage de cellules
    End With

    ' ----------------------------------
    ' Cellule du titre d'entete
    ' ----------------------------------
    With Range("D" & LesP)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Bold = True
        .Font.Name = "Calibri"
        .Font.Size = 18
        .Value = "Concours Partie N° " & Partie ' Ecrit le texte
    End With

    ' -----------------------------------------
    ' Plages des "N°" de joueurs
    ' -----------------------------------------
    With .Range("A" & LesP + 1 & ":G" & LesP + 1)
        .RowHeight = 18
        .Interior.Color = RGB(230, 250, 230)
        '.Interior.Color = RGB(150, 240, 150)
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlMedium
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Name = "Calibri"
        .Font.Size = 12
        .Font.Bold = True
        '.Value = "N°"
    End With
    .Range("A" & LesP + 1 & ",E" & LesP + 1) = "N°"
    .Range("B" & LesP + 1 & ",F" & LesP + 1) = "Equipes"
    .Range("C" & LesP + 1 & ",G" & LesP + 1) = "G/P"
    .Range("D" & LesP + 1) = "Terrain"
 
End With
Application.ScreenUpdating = False


' ======================================================================
' =                           DESSINE LA GRILLE POUR LES "Tete a tete "                                        =
' ======================================================================
'  Fixe la hauteur de la ligne 1 (Ligne de d'entete
'  Fixe la largeur pour chaque colonne
'  Défini le centrage horizontal et vertical
' ---------------------------------------------------------------------------------------------------------------------------
Sub Grille1()

Dim X As Integer
Dim Y As Byte

Application.ScreenUpdating = False

With Worksheets("Concours")
    Pl = 4 - 2                 
    Y = 2

    For X = Pl + Y To .Range("Dl_1") Step Tournois
            
        With .Range("A" & X & ":G" & X)
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .Font.Bold = True
            .Font.Name = "Calibri"
            .Font.Size = 12
            .Borders.LineStyle = xlContinuous
            .Borders.Weight = xlMedium
        End With
        
        .Range("B" & X & ",F" & X).ColumnWidth = 28
        .Range("D" & X) = "N°"
        
        X = X + 1
        
    Next X
    
End With
Application.ScreenUpdating = True

End Sub