OVH Cloud OVH Cloud

Question sur textbox

2 réponses
Avatar
j0b
bonjour à vous tous, alors voila je voulais savoir dans mon userform j'ai 2
textes et on doit saisir dans l'une ou l'autre, est ce qu'il est possible de
griser et rendre inutilisable la 2eme textbox si la 1ère est utilisé et meme
chose dans le sens contraire. Merci bien pour votre aide

2 réponses

Avatar
Jacques93
Bonjour j0b,

Essaie :

Private Sub TextBox1_Change()
With Me.TextBox2
If Len(Me.TextBox1.Text) > 0 Then
.Text = ""
.BackColor = vbButtonFace
.Enabled = False
Else
.BackColor = vbWhite
.Enabled = True
End If
End With
End Sub

Private Sub TextBox2_Change()
With Me.TextBox1
If Len(Me.TextBox2.Text) > 0 Then
.Text = ""
.BackColor = vbButtonFace
.Enabled = False
Else
.BackColor = vbWhite
.Enabled = True
End If
End With
End Sub


bonjour à vous tous, alors voila je voulais savoir dans mon userform j'ai 2
textes et on doit saisir dans l'une ou l'autre, est ce qu'il est possible de
griser et rendre inutilisable la 2eme textbox si la 1ère est utilisé et meme
chose dans le sens contraire. Merci bien pour votre aide



--
Cordialement,

Jacques.

Avatar
j0b
Merci bien je vais tester cela, merci encore et bonne journée

"Jacques93" wrote:

Bonjour j0b,

Essaie :

Private Sub TextBox1_Change()
With Me.TextBox2
If Len(Me.TextBox1.Text) > 0 Then
.Text = ""
.BackColor = vbButtonFace
.Enabled = False
Else
.BackColor = vbWhite
.Enabled = True
End If
End With
End Sub

Private Sub TextBox2_Change()
With Me.TextBox1
If Len(Me.TextBox2.Text) > 0 Then
.Text = ""
.BackColor = vbButtonFace
.Enabled = False
Else
.BackColor = vbWhite
.Enabled = True
End If
End With
End Sub


bonjour à vous tous, alors voila je voulais savoir dans mon userform j'ai 2
textes et on doit saisir dans l'une ou l'autre, est ce qu'il est possible de
griser et rendre inutilisable la 2eme textbox si la 1ère est utilisé et meme
chose dans le sens contraire. Merci bien pour votre aide



--
Cordialement,

Jacques.