Userform:rendre inaccessible des textbox
JessieC
Messages postés
8
Statut
Membre
-
JessieC Messages postés 8 Statut Membre -
JessieC Messages postés 8 Statut Membre -
Bonjour,
J'ai créé un userform contenant une checkbox et deux textbox.
Je souhaiterai qu'on ne puisse pas écrire dans les textbox si la checkbox n'a pas été cochée.
Comment puis-je faire?
Merci.
J'ai créé un userform contenant une checkbox et deux textbox.
Je souhaiterai qu'on ne puisse pas écrire dans les textbox si la checkbox n'a pas été cochée.
Comment puis-je faire?
Merci.
A voir également:
- Userform:rendre inaccessible des textbox
- Userform excel mac - Forum Word
- Rafraichir données userform ✓ - Forum Excel
- Excel vba création de formulaire userform ajouter rechercher modifier facilement ✓ - Forum Excel
- Liste deroulante dans un Userform ✓ - Forum Excel
- Userform d'attente avec image GIF ✓ - Forum Excel
6 réponses
il faudrait que tu déclare ta checkboxe et tu lui donne un nom.
de là, quand ta checkboxe -> est vide, elle correspondra à la valeur fausse
-> est rempli, elle correspondre à la valeur vrai.
il te suffira ensuite de placer une fonction SI "if" qui jouera avec ses deux valeur.
En ce qui concerne de la programmation je peut pas t'aider plus ...!
de là, quand ta checkboxe -> est vide, elle correspondra à la valeur fausse
-> est rempli, elle correspondre à la valeur vrai.
il te suffira ensuite de placer une fonction SI "if" qui jouera avec ses deux valeur.
En ce qui concerne de la programmation je peut pas t'aider plus ...!
Private Sub Checkbox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Checkbox1.CheckedChanged
if Checkbox1.checked=true then
textbox1.readonly=false
textbox2.readonly=false
else
textbox1.readonly=true
textbox2.readonly=true
end if
End Sub
if Checkbox1.checked=true then
textbox1.readonly=false
textbox2.readonly=false
else
textbox1.readonly=true
textbox2.readonly=true
end if
End Sub
Merci pour vos réponses.
Badboy3 j'ai essayé ce que tu m'as envoyé et ça coince à la première ligne.
Private Sub Checkbox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles CheckBox1.CheckedChanged
ça me dit erreur de compilation: type défini par l'utilisateur non défini
Une idée?
Badboy3 j'ai essayé ce que tu m'as envoyé et ça coince à la première ligne.
Private Sub Checkbox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles CheckBox1.CheckedChanged
ça me dit erreur de compilation: type défini par l'utilisateur non défini
Une idée?
J'utilise Excel 2007 donc je travaille avec VBA project. Désolée, je débute, je ne m'y connais pas trop...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
je ne sais pas le code exactement en VBA :s
mais la logique reste la même
mais la logique reste la même
Ok merci qd même.
Est-ce que tu saurais par hasard si on peut mettre des conditions IF sur des comboBox?
Je t'explique:
J'ai une première comboBox1 qui propose l'entrée 1 et l'entrée 2.
Ensuite j'ai une seconde comboBox2 qui propose les entrées a, b et c.
Mais je voudrais que si l'entrée 2 est sélectionnée, alors ma comboBox2 propose les entrées a,b,c,d,e.
J'ai essayé ça mais ça ne marche pas :
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
ComboBox1.Select
If ComboBox1.Value = "2" Then
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
ComboBox2.AddItem ("d")
ComboBox2.AddItem ("e")
End If
Est-ce que tu saurais par hasard si on peut mettre des conditions IF sur des comboBox?
Je t'explique:
J'ai une première comboBox1 qui propose l'entrée 1 et l'entrée 2.
Ensuite j'ai une seconde comboBox2 qui propose les entrées a, b et c.
Mais je voudrais que si l'entrée 2 est sélectionnée, alors ma comboBox2 propose les entrées a,b,c,d,e.
J'ai essayé ça mais ça ne marche pas :
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
ComboBox1.Select
If ComboBox1.Value = "2" Then
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
ComboBox2.AddItem ("d")
ComboBox2.AddItem ("e")
End If
je sais pas ci c'est la réponse ou non mais essayé :
ComboBox1.Select
If ComboBox1.Value = "2" Then
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
ComboBox2.AddItem ("d")
ComboBox2.AddItem ("e")
else
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
End If
ComboBox1.Select
If ComboBox1.Value = "2" Then
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
ComboBox2.AddItem ("d")
ComboBox2.AddItem ("e")
else
ComboBox2.Clear
ComboBox2.AddItem ("a")
ComboBox2.AddItem ("b")
ComboBox2.AddItem ("c")
End If
