En bas clic droit ou il y a les onglets et afficher la feuille championnat tu n'a pas accès?
Dim annul As Integer
Private Sub CommandButton2_Click()
Dim b As Integer
Msg = "Attention voulez-vous vraiment effacer les données" ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "ATTENTION !!! " ' Définit le titre.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L’utilisateur a choisit Yes.
annul = 1
Sheets("création").Visible = True
Sheets("création").Select
Sheets("création").Range("B1,B11,E11").Select
Selection.ClearContents
Sheets("création").Range("H11:J26").Select
Selection.ClearContents
Sheets("championnat").Visible = True
Sheets("championnat").Select
b = Sheets("championnat").Range("A65536").End(xlUp).Row
Sheets("championnat").Range("A3:F" & b).Select
Selection.ClearContents
Sheets("championnat").Range("J1:K1").Select
Selection.ClearContents
Sheets("equipe").Visible = True
Sheets("equipe").Select
Sheets("equipe").Range("A2:A21").Select
Selection.ClearContents
Sheets("saisie").Visible = True
Sheets("saisie").Select
Sheets("saisie").Range("I2:Q21").Select
Selection.ClearContents
Sheets("saisie").Range("C19:F23").Select
Selection.ClearContents
Sheets("saisie").Range("A20:F27").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
annul = 0
Sheets("création").Visible = False
Sheets("championnat").Visible = False
Sheets("saisie").Visible = False
Sheets("choix").Visible = True
Sheets("equipe").Visible = False
Sheets("choix").Select
Sheets("choix").Range("A1").Select
Else ' L’utilisateur a choisi No.
Exit Sub ' Effectue une action.
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Sheets("championnat").Visible = True
jc = Sheets("championnat").Range("J5")
ComboBox1.ListFillRange = "championnat!I1:I" & jc & ""
ComboBox2.ListFillRange = "championnat!I1:I" & jc & ""
Sheets("championnat").Select
A = Sheets("championnat").Range("J4").Value / 2
Sheets("championnat").Visible = False
Sheets("saisie").Select
If annul = 0 Then
For compt = 19 To 18 + A
If ActiveCell.Address() = "$C$" & compt & "" Then
UserForm1.Show
ElseIf ActiveCell.Address() = "$D$" & compt & "" Then
UserForm1.Show
End If
Next compt
End If
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Click()
Sheets("championnat").Visible = True
journée = Sheets("championnat").Range("J1")
m = Sheets("championnat").Range("J4") / 2
journées = (journée * m) + 2
h = journées - m + 1
Sheets("championnat").Select
Sheets("championnat").Range("A" & h & ":F" & journées & "").Select
Selection.Copy
Sheets("saisie").Select
Sheets("saisie").Range("A19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("championnat").Visible = False
Sheets("saisie").Select
Sheets("saisie").Range("A1").Select
End Sub
Private Sub ComboBox2_Click()
Application.ScreenUpdating = False
Sheets("championnat").Visible = True
jour = Sheets("championnat").Range("K1")
m = Sheets("championnat").Range("J4").Value / 2
h = (jour * m) + 2
ActiveWorkbook.Names.Add Name:="Eqr", RefersToR1C1:= _
"=championnat!R2C3:R" & h & "C6"
ActiveWorkbook.Names.Add Name:="Eqv", RefersToR1C1:= _
"=championnat!R2C4:R" & h & "C6"
ActiveWorkbook.Names.Add Name:="Nul", RefersToR1C1:= _
"=championnat!R2C14:R" & h & "C15"
ActiveWorkbook.Names.Add Name:="Perdant", RefersToR1C1:= _
"=championnat!R2C13:R" & h & "C13"
ActiveWorkbook.Names.Add Name:="Vainqueur", RefersToR1C1:= _
"=championnat!R2C12:R" & h & "C12"
Macro1
Sheets("saisie").Range("A1").Select
End Sub
Private Sub CommandButton1_Click()
Sheets("championnat").Visible = True
If Sheets("championnat").Range("J1").Value = "" Then
MsgBox ("Attention vous n'avez pas choisi la journée !")
GoTo saut
End If
journée = Sheets("championnat").Range("J1")
m = Sheets("championnat").Range("J4").Value / 2
n = Sheets("championnat").Range("J5").Value
journées = (journée * m) + 2
h = journées - m + 1
l = 18 + m
Sheets("saisie").Select
Sheets("saisie").Range("A19:F" & l & "").Select
Selection.Copy
Sheets("championnat").Visible = True
Sheets("championnat").Select
Sheets("championnat").Range("A" & h & "").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
saut:
Sheets("championnat").Visible = False
Sheets("saisie").Select
Range("A1").Select
End Sub