F
fred
Guest
salut a tous
voici le code que g rentré, pour moi il est trop surchargé mais je ne vois pas comment faire pour l allégé g essayer avec un pour mais je n ai pas du le faire comme il faut
merci a ceux qui pourront me dire et m expliquai
Private Sub cmd1_Click()
If opt1 = True Then
accueil1_1.Hide
rec1_1_1.Show
ElseIf opt2 = True Then
accueil1_1.Hide
rec1_1_2.Show
ElseIf opt3 = True Then
accueil1_1.Hide
rec1_1_3.Show
ElseIf opt4 = True Then
accueil1_1.Hide
rec1_1_4.Show
ElseIf opt5 = True Then
accueil1_1.Hide
rec1_1_5.Show
ElseIf opt6 = True Then
accueil1_1.Hide
rec1_1_6.Show
ElseIf opt7 = True Then
accueil1_1.Hide
rec1_1_7.Show
ElseIf opt8 = True Then
accueil1_1.Hide
rec1_1_8.Show
End If
End Sub
cmd1 = bouton valider
accueil = c une fenetre qui ne possede que des options boutons
rec = une fenetre qui contient des phrases type
voici le code que g rentré, pour moi il est trop surchargé mais je ne vois pas comment faire pour l allégé g essayer avec un pour mais je n ai pas du le faire comme il faut
merci a ceux qui pourront me dire et m expliquai
Private Sub cmd1_Click()
If opt1 = True Then
accueil1_1.Hide
rec1_1_1.Show
ElseIf opt2 = True Then
accueil1_1.Hide
rec1_1_2.Show
ElseIf opt3 = True Then
accueil1_1.Hide
rec1_1_3.Show
ElseIf opt4 = True Then
accueil1_1.Hide
rec1_1_4.Show
ElseIf opt5 = True Then
accueil1_1.Hide
rec1_1_5.Show
ElseIf opt6 = True Then
accueil1_1.Hide
rec1_1_6.Show
ElseIf opt7 = True Then
accueil1_1.Hide
rec1_1_7.Show
ElseIf opt8 = True Then
accueil1_1.Hide
rec1_1_8.Show
End If
End Sub
cmd1 = bouton valider
accueil = c une fenetre qui ne possede que des options boutons
rec = une fenetre qui contient des phrases type