Petit probleme avec une macro
bonsoir le forum
j ai un petit problème et je n arrive pas a le résoudre
dans mon Userfrom Tirage il y a 4 bouton
quand je clic sur 1 ère partie ca m affiche bien ma 1 ère partie
quand je clic sur les bouton 2 ème ,3 ème et 4 ème partie ca bug j ai surligner ou ca bug dans la macro
Sub Afficher_Partie1()
Sheets("1 ère partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Sub Afficher_Partie2()
Sheets("2 ème partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Sub Afficher_Partie3()
Sheets("3 ème partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Sub Afficher_Partie4()
Sheets("4 ème partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Quel code doit je utiliser pour éviter ce bug
[code][Option Explicit
Sub Afficher_Partie1()
Sheets("1 ère partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Sub Afficher_Partie2()
Sheets("2 ème partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Sub Afficher_Partie3()
Sheets("3 ème partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Sub Afficher_Partie4()
Sheets("4 ème partie").Select
ListB_Rencontre.RowSource = "E4:G" & Application.CountA(Range("E:E"))
End Sub
Private Sub Cmd_afficher_Click()
Cmd_Afficher.Visible = False
'Affichage les rencontres en fonction de la partie
Select Case Txtb_Num_Partie_Tirage.Value
Case 1
Afficher_Partie1
Case 2
Afficher_Partie2
Case 3
Afficher_Partie3
Case 4
Afficher_Partie4
End Select
End Sub
Private Sub Cmd_retour_Click()
'affiche la partie en cours
Label8.Visible = True
Txtb_Num_Partie_Tirage.Visible = True
Cmd_Afficher.Visible = True
Cmd_retour.Visible = False
Call Cmd_afficher_Click
'Donne le focus au OptionButton en cours
If Txtb_Num_Partie_Tirage = 1 Then
OptionButton1.SetFocus
ElseIf Txtb_Num_Partie_Tirage = 2 Then
OptionButton2.SetFocus
ElseIf Txtb_Num_Partie_Tirage = 3 Then
OptionButton3.SetFocus
Else: Txtb_Num_Partie_Tirage = 4
OptionButton4.SetFocus
End If
'déselectionne l'option
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
End Sub
Private Sub OptionButton1_Click()
Afficher_Partie1
Cmd_retour.Visible = True
Cmd_Afficher.Visible = False
Txtb_Num_Partie_Tirage.Visible = False
Label8.Visible = False
End Sub
Private Sub OptionButton2_Click()
Afficher_Partie2
Cmd_retour.Visible = True
Cmd_Afficher.Visible = False
Txtb_Num_Partie_Tirage.Visible = False
Label8.Visible = False
End Sub
Private Sub OptionButton3_Click()
Afficher_Partie3
Cmd_retour.Visible = True
Cmd_Afficher.Visible = False
Txtb_Num_Partie_Tirage.Visible = False
Label8.Visible = False
End Sub
Private Sub OptionButton4_Click()
Afficher_Partie4
Cmd_retour.Visible = True
Cmd_Afficher.Visible = False
Txtb_Num_Partie_Tirage.Visible = False
Label8.Visible = False
End Sub
Private Sub UserForm_Initialize()
Cmd_retour.Visible = False
'Affiche le numero de partie en cours
Txtb_Num_Partie_Tirage = Calculer_Numero_Partie(Sheets("Equipes").Range("I4").Value)
'affiche les OptionButton
If Txtb_Num_Partie_Tirage = 1 Then
OptionButton1.Visible = True
OptionButton2.Visible = False
OptionButton3.Visible = False
OptionButton4.Visible = False
ElseIf Txtb_Num_Partie_Tirage = 2 Then
OptionButton1.Visible = True
OptionButton2.Visible = True
OptionButton3.Visible = False
OptionButton4.Visible = False
ElseIf Txtb_Num_Partie_Tirage = 3 Then
OptionButton1.Visible = True
OptionButton2.Visible = True
OptionButton3.Visible = True
OptionButton4.Visible = False
Else: Txtb_Num_Partie_Tirage = 4
OptionButton1.Visible = True
OptionButton2.Visible = True
OptionButton3.Visible = True
OptionButton4.Visible = True
End If
'donne le focus au bouton Afficher
Cmd_Afficher.SetFocus
End Sub
/code]
merci d'avance
cordialement
Wazizou
Bonsoir, il y a un espace à la fin des noms des onglets des parties 2, 3 et 4 ! D'où l'erreur....
vbMBHB
Bonsoir vbMsgBoxHelpButton et le forum
Merci pour ta réponse
une fois les espaces supprimer tout marche
Cordialement
Wazizou
Merci à vous.
vbMBHB