Rendre inaccessible textbox selon text d'une autre textbox [Résolu]
A voir également:
- Rendre inaccessible
- Rendre un textbox inactife ? ✓ - Forum - VB.NET
- VB6 Rendre inaccessible un optButton ✓ - Forum - Visual Basic
- Textbox.text c# ✓ - Forum - C# / .NET
- Selectionner tout le texte d'un textebox lorsque le textbox recoit le focus - Codes sources - Visual Basic / VB.NET (Formulaire)
- Faire briller un texte dans un label ou textbox - Codes sources - Visual Basic / VB.NET (Texte)
8 réponses
bigfish_le vrai
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Statut
- Membre
- Dernière intervention
- 20 novembre 2013
Re,
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:
etc
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
etc
cs_Le Pivert
- Messages postés
- 6617
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 26 mars 2020
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
@+
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
@+
cs_Le Pivert
- Messages postés
- 6617
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 26 mars 2020
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
@+
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.
nanie
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.
nanie
bigfish_le vrai
- Messages postés
- 1839
- Date d'inscription
- vendredi 13 mai 2005
- Statut
- Membre
- Dernière intervention
- 20 novembre 2013
Salut,
tu t'ai relu là ?
une textbox comme sont nom l'indique ne renvoi que du texte même si l'on saisie un nombre ou une date
par exemple :
si tu as une forme avec un bouton et une textbox
dans le code la forme tu ajoute ce code
pour le test tu ecris saisie des valeurs texte ou nombre ou date dans la textbox puis tu click le bouton
la seul valeur qui te sera renvoyée est "String"
A+
tu t'ai relu là ?
ca ne regarde pas si y a du texte ou pas, d'office on ne peut pas mettre de texte dans la textbox.
une textbox comme sont nom l'indique ne renvoi que du texte même si l'on saisie un nombre ou une date
par exemple :
si tu as une forme avec un bouton et une textbox
dans le code la forme tu ajoute ce code
Private Sub CommandButton1_Click()
MsgBox TypeName(Me.TextBox1.Value)
End Sub
pour le test tu ecris saisie des valeurs texte ou nombre ou date dans la textbox puis tu click le bouton
la seul valeur qui te sera renvoyée est "String"
A+
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.
nanie
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
nanie