Hpotter
XLDnaute Junior
Bonjour à tous,
J'ai mis en place ce code qui permet d'afficher ou pas des Labels selon le contenu d'une TextBox. Mais comme vous pouvez le constater, il est un peu long et je pense qu'il y a possibilité de l'améliorer.
Pouvez-vous m'aider s'il vous plait ?
Je vous en remercie par avance
J'ai mis en place ce code qui permet d'afficher ou pas des Labels selon le contenu d'une TextBox. Mais comme vous pouvez le constater, il est un peu long et je pense qu'il y a possibilité de l'améliorer.
Pouvez-vous m'aider s'il vous plait ?
Je vous en remercie par avance
VB:
Private Sub TextBox10_Change()
If Me.TextBox10.Text = "" Then
Me.Et1.Visible = False
Me.Et2.Visible = False
Me.Et3.Visible = False
Me.Et4.Visible = False
Me.Et5.Visible = False
End If
If Me.TextBox10.Text = "Très facile" Then
Me.Et1.Visible = True
End If
If Me.TextBox10.Text = "Facile" Then
Me.Et1.Visible = True
Me.Et2.Visible = True
End If
If Me.TextBox10.Text = "Moyen" Then
Me.Et1.Visible = True
Me.Et2.Visible = True
Me.Et3.Visible = True
End If
If Me.TextBox10.Text = "Difficile" Then
Me.Et1.Visible = True
Me.Et2.Visible = True
Me.Et3.Visible = True
Me.Et4.Visible = True
End If
If Me.TextBox10.Text = "Très difficile" Then
Me.Et1.Visible = True
Me.Et2.Visible = True
Me.Et3.Visible = True
Me.Et4.Visible = True
Me.Et5.Visible = True
End If
End Sub