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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionca ne regarde pas si y a du texte ou pas, d'office on ne peut pas mettre de texte dans la textbox.
Private Sub CommandButton1_Click() MsgBox TypeName(Me.TextBox1.Value) End Sub
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