case à cocher VS textbox

[titilex]

Bonjour à tous,

J'ai une petite question :

Est ce que dans un UserForm, une case à cocher peu faire apparaître ou disparaître une textebox ?

Si oui qu'elle serait le code ?

Merci d'avance !!

@lex

 

[sabrina64]

Re : case à cocher VS textbox

bonjour
faire apparaiter ou disparaitre je ne sais pas...
mais cependant avec .enabled tu peux rendre ta textbox visible ou pas en fonction si ta case est cochée ou pas!


bonne aprem

 

[myDearFriend!]

Re : case à cocher VS textbox

Bonjour titilex, sabrina64,

[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] CheckBox1_Change()
    TextBox1.Visible = CheckBox1.Value
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Cordialement,

PS :Non sabrina64, la propriété Enabled ne joue pas sur la visibilité d'un contrôle mais sur sa disponibilité en édition ou non.

 

[Dull]

Re : case à cocher VS textbox

Salut titilex, Sabrina le Forum

essaye ce code

Private Sub CheckBox1_Click()
If Me.CheckBox1 = True Then
Me.TextBox1.Visible = False
Else
Me.TextBox1.Visible = True
End If
End Sub

Bonne Journée

PS: Salut Didier 🙂

 

[titilex]

Re : case à cocher VS textbox

Merci de m'aider dans mes periples Vba,
Bon j'ai adapté le code qui tu m'as donné Dull,
Il me reste encore un petit soucis, lorsque j'appel l'USF, la case n'est pas coché donc tant mieux c'est ce que je veux en revanche la textbox est affiché qd meme.
Qu'elle bout de code je doit mettre pour qu'elle ne s'affiche pas par défaut ?
Merci

 

[Spitnolan08]

Re : case à cocher VS textbox

Bonjour titilex, Dull🙂, MyDearFriend🙂, Sabrina64

Il me semblait que Didier t'avait également dépanné... Mais bon...

En ce qui concerne ta denière question; la réponse est dans le code de Dull...
A mettre dans la sub d'initialisation de l'UF

TextBox1.Visible = False

Cordialement

 

[titilex]

Re : case à cocher VS textbox

Oui en effet Didier m'a aidé aussi, désolé de cet oubli. Je doit bien avouer que j'ai le cerveau qui est en train de bouillir depuis que je me suis mis au Vba par Excel, pour info j'en ai jamais fait avant, et j'ai un peu de mal avec ma courte mémoire, donc grosse galère...

En tout cas merci de m'aider.

J'ai essayé mais je n'arrive pas à débloquer mon cas...
Voila un petit exemple pour affiner le problème !

 

[Dull]

Re : case à cocher VS textbox

Re le Fil
Salut Spitnolan 🙂

Je dirais même plus ami Spiotolan, quand on regarde le code de mon éminant homonyme... Heu comment dirais-je... yapasphoto. Sobre, élégant... Nickel

 

[titilex]

Re : case à cocher VS textbox

'Lut Dull,
Quand tu parle de ton homonyme, tu parle de Mr monchercopain ?
J'ai collé le code et adapté à mon cas, et justement il y a juste une petite réaction impromptue, c'est pour ça que j'ai mis un fichier en exemple...
En fait je pense mettre mal fait comprendre dans mes explications...
Le résultat que je cherche à obtenir est en fait l'apparition de l'USF avec juste mase case à cocher et la Textbox masqué. Au moment où l'on clique dans la checkbox la tatbox apparait...
Enfin bref merci qd meme d'étudier mon cas, c'est tres sympa des chevrons du Vba vis à vis des novices qui n'y comprennent par grand choses...
😱

 

[titilex]

Re : case à cocher VS textbox

OP J'ai compris, faut pas m'en vouloir ca rentre peu à peu...

Voila le nouveau fichier corrigé...
Merci à tous de m'avoir fait avancer dans mes problèmes de prog

A chaooo et a bientot

@lex

 

[Dull]

Re : case à cocher VS textbox

Re titilex

A vrai dire ce que que le code fait est normal

1/ A l'Initialisation : CheckBox1 Non Cochée TextBox1 Visible
2/ CheckBox1 Cochée TextBox1 Visible (Làyaunproblème)
3/ CheckBox1 décochée TextBox1 Non Visible

Pour que cela Marche

1/ A l'Initialisation : CheckBox1 Non Cochée TextBox1 Non Visible
2/ CheckBox1 Cochée TextBox1 Visible
3/ CheckBox1 décochée TextBox1 Non Visible


Bonne Journée

PS : Arf ...Si tu as compris c'est le plus important