Kael_88
XLDnaute Occasionnel
Le Forum,
Est-il possible de simplifier le code suivant,svp?
merci
Est-il possible de simplifier le code suivant,svp?
merci
VB:
If ComboBox002.SelectedItem = "" Then
Call vide()
ElseIf ComboBox002.SelectedItem = "Identité" Then
Label111.Visible = True
TextBox111.Visible = True
Label112.Visible = True
TextBox112.Visible = True
Label113.Visible = True
TextBox113.Visible = True
Label114.Visible = False
TextBox114.Visible = False
Label115.Visible = False
TextBox115.Visible = False
Label116.Visible = False
TextBox116.Visible = False
Label119.Visible = True
TextBox119.Visible = True
Button010.Visible = True
Label111.Text = "Material"
TextBox111.Text = ""
Label112.Text = "Nom"
TextBox112.Text = ""
Label113.Text = "Prénom"
TextBox113.Text = ""
Label119.Text = "Née le"
TextBox119.Text = ""
Button010.Text = "Valider" & Chr(10) & "Identité"
ElseIf ComboBox002.SelectedItem = "Lieu" Then
Label111.Visible = True
TextBox111.Visible = True
Label112.Visible = True
TextBox112.Visible = True
Label113.Visible = False
TextBox113.Visible = False
Label114.Visible = False
TextBox114.Visible = False
Label115.Visible = False
TextBox115.Visible = False
Label116.Visible = False
TextBox116.Visible = False
Label119.Visible = True
TextBox119.Visible = True
Button010.Visible = True
Label111.Text = "Nom"
TextBox111.Text = ""
Label112.Text = "Prénom"
TextBox112.Text = ""
Label119.Text = "Ville"
TextBox119.Text = ""
Button010.Text = "Valider" & Chr(10) & "Lieu"
ElseIf ComboBox002.SelectedItem = "Sport" Then
Label111.Visible = True
TextBox111.Visible = True
Label112.Visible = True
TextBox112.Visible = True
Label113.Visible = True
TextBox113.Visible = True
Label114.Visible = True
TextBox114.Visible = True
Label115.Visible = True
TextBox115.Visible = True
Label116.Visible = False
TextBox116.Visible = False
Label119.Visible = True
TextBox119.Visible = True
Button010.Visible = True
Label111.Text = "Discipline"
TextBox111.Text = ""
Label112.Text = "Depuis le"
TextBox112.Text = ""
Label113.Text = "Niveau"
TextBox113.Text = ""
Label114.Text = "Club"
TextBox114.Text = ""
Label115.Text = "Lieu"
TextBox115.Text = ""
Label119.Text = "Commentaire"
TextBox119.Text = ""
Button010.Text = "Valider" & Chr(10) & "Sport"
ElseIf ComboBox002.SelectedItem = "Loisir" Then
Label111.Visible = True
TextBox111.Visible = True
Label112.Visible = True
TextBox112.Visible = True
Label113.Visible = True
TextBox113.Visible = True
Label114.Visible = True
TextBox114.Visible = True
Label115.Visible = False
TextBox115.Visible = False
Label116.Visible = False
TextBox116.Visible = False
Label119.Visible = True
TextBox119.Visible = True
Button010.Visible = True
Label111.Text = "Activité"
TextBox111.Text = ""
Label112.Text = "Fréquence"
TextBox112.Text = ""
Label113.Text = "Lieu"
TextBox113.Text = ""
Label114.Text = "Ami(e)"
TextBox114.Text = ""
Label119.Text = "Commentaire"
TextBox119.Text = ""
Button010.Text = "Valider" & Chr(10) & "Envoi"
End If
End Sub