Bloquer contenu d'un textbox

[babouchate]

Bonjour,

J'aimerais bloquer le contenu d'un textbox (impossibilité d'écriture dans le textbox) si un chekbox est décoché. Et quand click sur le chekbox, le txtbox se débloque permettant ainsi la saisie d'une valeur.

Je vous remercie par avance,

H.J.

 

[Pierrot93]

Re : Bloquer contenu d'un textbox

Bonjour Babouchate

essaye peut être le code ci dessous, à placer dans le module de l'USF :

Private Sub CheckBox1_Click()
TextBox1.Locked = CheckBox1 = 0
End Sub

bonne journée
@+

 

[pierrejean]

Re : Bloquer contenu d'un textbox

bonjour babouchate

Une solution

Edit: Salut Pierrot 🙂

 

[babouchate]

Re : Bloquer contenu d'un textbox

Merci Pierrot93 et Pierrejean pour les réponses.

Pierrot93, J'ai placé ta formule dans le module de l'Userform en effectuant les modifs nécessaires mais malheureusement ça ne marche pas.

Pierrejean, ta formule marche mais jej fais ca dans un Userform et si je selectionne une cellule l'userform va disparaitre et c'est ce que je jveux pas.

Je veux qu'à l'ouverutre les textbos soit bloqués puisque les chekbox sont décochés.

Merci encore une fois.

 

[Pierrot93]

Re : Bloquer contenu d'un textbox

Re, bonjour PierreJean🙂

si les 2 objets sont dans l'USF :

Private Sub CheckBox1_Change()
TextBox1.Locked = CheckBox1 = 0
End Sub
Private Sub UserForm_Initialize()
If CheckBox1.Value = 0 Then TextBox1.Locked = 1
End Sub

@+

 

[pierrejean]

Re : Bloquer contenu d'un textbox

Re

Version dans usf

 

[Pierrot93]

Re : Bloquer contenu d'un textbox

Re,

interressante et originale ta solution PierreJean🙂, sympa, bravo

@+

 

[babouchate]

Re : Bloquer contenu d'un textbox

Ca marche parfaitement.
Merci Pierrot93.
Par contre j'ai une derniere question: est- ce qu'on peut modifier le textbox pour dire que la saisie est impossible . J'espere que j'etais clair!!

 

[babouchate]

Re : Bloquer contenu d'un textbox

C'est bon j'ai trouvé.
Le changement de couleur avec la propriété backcolor fait la différence.
Quand c'est gris pas de saisie si blanc saisie.
Bonne journée et merci pour tout.

 

[babouchate]

Re : Bloquer contenu d'un textbox

Solution adoptée in fine:

'Changement des propriétés du textbox quand la valeur du checkbox change
Private Sub checkbox_Change()
If checkbox = 0 Then
textbox.Locked = 1
textbox.BackColor = &H80000000
Else
textbox.Locked = 0
textbox.BackColor = &H80000005
End If
End Sub

'Impossibilité de saisie à l'ouverture de l'Userform
Private Sub UserForm_Initialize()
If checkbox.Value = 0 Then textbox.Locked = 1
textbox.BackColor = &H80000000

End Sub

 

[Pierrot93]

Re : Bloquer contenu d'un textbox

Re

pour le fun, avec l'utilisation du code de PierreJean🙂, message lorsque tu passes sur le textbox avec la souris :

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not CheckBox1 Then CheckBox1.SetFocus: TextBox1.ControlTipText = "TEXTBOX BLOQUE"
End Sub

Private Sub UserForm_Initialize()
CheckBox1.SetFocus
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.ControlTipText = ""
End Sub

bon après midi
@+

 

[Dull]

Re : Bloquer contenu d'un textbox

Salut babouchate, Pierrot🙂, pierrejean🙂, le Forum

Je me permet juste une petite remarque. Mettre sa solution sur le Forum est très bien encore faut-il qu'elle soit juste. Pense à ceux que cette solution intéresse et qui font juste un Copier-Coller... cela ne fonctionnera pas et pour cause tu as oublié tous les 1 CheckBox1, TextBox1

'Changement des propriétés du textbox quand la valeur du checkbox change
Private Sub checkbox_Change()
If checkbox = 0 Then
textbox.Locked = 1
textbox.BackColor = &H80000000
Else
textbox.Locked = 0
textbox.BackColor = &H80000005
End If
End Sub

'Impossibilité de saisie à l'ouverture de l'Userform
Private Sub UserForm_Initialize()
If checkbox.Value = 0 Then textbox.Locked = 1
textbox.BackColor = &H80000000

End Sub

Au lieu de réécrire ton code (source d'erreurs) fait un copier Coller entre les Balises [ CODE][ /CODE] représenté par # c'est beaucoup plus lisible.

'Changement des propriétés du textbox quand la valeur du checkbox change
Private Sub CheckBox1_Change()
If CheckBox1 = 0 Then
TextBox1.Locked = 1
TextBox1.BackColor = &H80000000
Else
TextBox1.Locked = 0
TextBox1.BackColor = &H80000005
End If
End Sub

'Impossibilité de saisie à l'ouverture de l'Userform
Private Sub UserForm_Initialize()
If CheckBox1.Value = 0 Then TextBox1.Locked = 1
TextBox1.BackColor = &H80000000

End Sub

Bonne Journée

 

[skoobi]

Re : Bloquer contenu d'un textbox

Bonjour babouchate,
Dull 🙂,pierrot 🙂, PierreJean🙂,

Re,

interressante et originale ta solution PierreJean🙂, sympa, bravo

@+

Sauf que le bloquage peut être contourner avec la tabulation 😱, pour ceux qui préfère le clavier...

 

[Pierrot93]

Re : Bloquer contenu d'un textbox

Bonjour Skoobi

jouer dans ce cas également avec la propriété "tabstop"....

@+

 

[Pierrot93]

Re : Bloquer contenu d'un textbox

Re

pour Skoobi

modifier comme suit peut être :

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Not CheckBox1 Then CheckBox1.SetFocus: TextBox1.ControlTipText = "TEXTBOX BLOQUE"
End Sub
Private Sub UserForm_Initialize()
[B]TextBox1.TabStop = 0[/B]
CheckBox1.SetFocus
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.ControlTipText = ""
End Sub
[B]Private Sub CheckBox1_Change()
TextBox1.TabStop = CheckBox1
End Sub[/B]

@+