Valeur Chekbox vers texbox

[Bosco13]

Bonjour a tous le Forum !!

j'ai un petits blocage pour une fonction qui a mon avis est toute simple.

1---dans mon userform j'ai une chekbox1 et une texbox8
en cochant la chekbox1 je souhaiterai afficher une valeur fixe dans la textbox8 " 12345" par exemple



Je vous remercie d'avance pour votre aide.


@@@ Bosco

 

[Jack2]

Re : Valeur Chekbox vers texbox

Bonjour Bosco13

If checkbox1 = true then textbox8 " 12345"

Pour placer cette ligne : clic doit sur checkbox1, visualiser le code puis la mettre dans la procédure.

A+ Jack2

 

[Efgé]

Re : Valeur Chekbox vers texbox

Bonjour Bosco13

A mettre dans le code du UserForm concerrné:

Private Sub CheckBox1_Click()
Me.TextBox8.Text = IIf(CheckBox1.Value = True, "12345", "")
End Sub

Cordialement


Edit
Bonjour Jack2

 

[Paf]

Re : Valeur Chekbox vers texbox

Bonjour

Dans Private Sub CheckBox1_Click(), ajouter cette ligne
TextBox8.Value = IIf(CheckBox1.Value, "12345", "")

si checkbox cochée => textbox8= "12345"
si checkbox décochée => textbox8= ""

A+

Edit: bonjour Efgé et Jack2

 

[Jack2]

Re : Valeur Chekbox vers texbox

Bonjour le fil,

Merci à Efgé et à Paf de me rappeler l'utilité de la fonction IIF que j'oublie systématiquement.

A+ Jack2

 

[Bosco13]

Re : Valeur Chekbox vers texbox

Bonpour a tous

je vous remercie tous

c'est super c'est que je souhaitais

Merci encore

Bosco13

 

[Staple1600]

Re : Valeur Chekbox vers texbox

Bonsoir à tous


Pour le fun et pour le plaisir de croisé Efgé et Paf 😉
Une autre possibilité

Private Sub CheckBox8_Click()
TextBox8 = Application.Rept("12345", CheckBox1)
End Sub