Valeur Chekbox vers texbox

Bosco13

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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é

XLDnaute Barbatruc
Re : Valeur Chekbox vers texbox

Bonjour Bosco13

A mettre dans le code du UserForm concerrné:
VB:
Private Sub CheckBox1_Click()
Me.TextBox8.Text = IIf(CheckBox1.Value = True, "12345", "")
End Sub
Cordialement


Edit
Bonjour Jack2
 

Paf

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
Re : Valeur Chekbox vers texbox

Bonpour a tous

je vous remercie tous

c'est super c'est que je souhaitais

Merci encore

Bosco13
 

Staple1600

XLDnaute Barbatruc
Re : Valeur Chekbox vers texbox

Bonsoir à tous


Pour le fun et pour le plaisir de croisé Efgé et Paf ;)
Une autre possibilité
Code:
Private Sub CheckBox8_Click()
TextBox8 = Application.Rept("12345", CheckBox1)
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas