Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
TextBox7.Visible = True
End If
If ComboBox1.Value = "Support Fibre Optique" Then
TextBox7.Value = "Longueur du tracé G.Civil (ml) :"
End If
If ComboBox1.Value = "Equipement Telecom" Then
TextBox7.Value = "Type d'equipement Telecom :"
End If
If ComboBox1.Value = "Support&Equipement" Then
TextBox7.Value = "Longueur&Type Equipement :"
End If
End Sub