j'ai réalisé un formulaire où on choisit un chantier dans une liste déroulante. A partir de la, des tâches à faire apparaissent dans une textbox. ensuite je dois choisir dans une textbox le nom de la personne qui fera la tache. mais je veux que si la textbox où il y a la tache est vide (vu que j'ai paramétré plusieurs textbox, il se peut que la textbox tache soit vide), cela rende inaccessible la textbox où je choisi le personne
voila ce que j'ai fait :
If Tache2.text = "" Then
TextBox3.Enabled = False
End If
If Tache3.text = "" Then
TextBox5.Enabled = False
End If
If Tache4.text = "" Then
TextBox7.Enabled = False
End If
If Tache5.text = "" Then
TextBox9.Enabled = False
End If
2 problème apparaissent :
ca me rends inaccessible des textbox même s'il y a quelque chose d'inscrit
et quand je change de chantier dans ma combobox, la textbox reste inaccessible. pourtant j'ai bien mis au depart de ma programmation.
je suis désolé mais LePivert t'a déjà bien répondu !
la seule chose est qu'il te faut adapter la réponse à ton besoin:
Private Sub UserForm_Initialize()
TextBox3.Enabled = False
TextBox5.Enabled = False
TextBox7.Enabled = False
TextBox9.Enabled = False
End Sub
Private Sub Tache2_Change()
If Tache2 = Null Then
TextBox3.Enabled = False
TextBox5 = Null
Else
TextBox3.Enabled = True
End If
End Sub
Bonjour,
Je verrais bien un truc comme cela:
Private Sub UserForm_Initialize()
TextBox1.Enabled = False
End Sub
Private Sub TextBox2_Change()
If TextBox2 = "" Then
TextBox1.Enabled = False
TextBox1 = ""
Else
TextBox1.Enabled = True
End If
End Sub
@+
Pour le comboBox dans le même genre:
Private Sub ComboBox1_Change()
If ComboBox1.Text = "TextBox2" Then
TextBox1.Enabled = False
TextBox1 = ""
Else
TextBox1.Enabled = True
End If
End Sub
@+
Bonjour
malheureusement les 2 possibilités ne fonctionnent pas.
ca ne regarde pas si y a du texte ou pas, d'office on ne peut pas mettre de texte dans la textbox.
ca met effectivement String
et alors ? le problème est que ce ne bloque toujours pas mes textbox quand une autre textbox n'a pas de texte.
f Tache2.text = "" Then
TextBox3.Enabled = False
TextBox5.text = ""
Else
TextBox5.Enabled = True
End If
If Tache3.text = "" Then
TextBox5.Enabled = False
TextBox5.text = ""
Else
TextBox5.Enabled = True
End If
If Tache4.text = "" Then
TextBox7.Enabled = False
TextBox7.text = ""
Else
TextBox7.Enabled = True
End If
If Tache5.text = "" Then
TextBox9.Enabled = False
TextBox9.text = ""
Else
TextBox9.Enabled = True
End If