Microsoft 365 aide sur vrai ou faux avec checkbox

[jip31]

Bonjour
J'utilise le code suivant dans mon userform
Mais j'ai un problème avec macheckbox qui me renvoie VRAI si elle est sélectionnée et FAUX si elle ne l'est pas
Au lieu de cela, je voudrais que VRAI soit remplacé par OUI et FAUX par NON

Private Sub CommandButton3_Click()
Dim LR As Long, frm As Worksheet
Set frm = ThisWorkbook.Sheets("Clients")
   LR = frm.Cells(Rows.Count, 1).End(xlUp).Row + 1
   frm.Range("A" & LR).Value = EmpNameTextBox.Value
   frm.Range("B" & LR).Value = EmpIDtextBox.Value
   frm.Range("C" & LR).Value = SalaryTextBox.Value
   frm.Range("D" & LR).Value = CheckBox1.Value

Merci d'avance

 

[Cousinhub]

Bonjour,
En utilisant un array tel que :

Dim Retour
Retour = Array("Oui", "Non")
MsgBox Retour(Me.CheckBox1 + 1)

Peut-être?

 

[ChTi160]

Bonsoir le Fil ,
Ou alors utiliser le Captions du checkbox
Qui aura "Oui" si True et "Non" si False

frm.Range("D" & LR).Value = CheckBox1.Caption

Jean marie

 

[ChTi160]

Re
Au niveau du CheckBox1_Click

With me.CheckBox1
       .Caption=iif(.Value,"Oui","Non")
End With

Édit : Depuis mon téléphone
Jean marie

 

[jip31]

Re
Au niveau du CheckBox_Click

With me.CheckBox
       .Caption=iif(.Value=True,"Oui","Non")
End With

Édit : Depuis mon téléphone
Jean marie

Bonjour
J'ai toujours VRAI au lieu de OUI
Voici mon code

   frm.Range("D" & LR).Value = CheckBox1.Value
With Me.CheckBox1
       .Caption = IIf(.Value = True, "Oui", "Non")
End With

 

[ChTi160]

Bonjour jip31
J'ai mis dans la procédure

CommandButton3_Click()

frm.Range("D" & LR).Value = CheckBox1.Caption

Et non

frm.Range("D" & LR).Value = CheckBox1.Value

Bonne journée
Jean marie

 

[jip31]

Bonjour jip31
J'ai mis dans la procédure

CommandButton3_Click()

frm.Range("D" & LR).Value = CheckBox1.Caption

Et non

frm.Range("D" & LR).Value = CheckBox1.Value

Bonne journée
Jean marie

Merci Jean Marie ca marche
Bonne journée

 

[ChTi160]

Re
N'hésite pas si besoin !
Jean marie

 

[jip31]

Re
N'hésite pas si besoin !
Jean marie

En fait j ai encore un probleme Jean Marie
Lorsque je selectionne ou deselectionnes mon checkbox, il faut que je clique 2 fois (donc que je genere 2 lignes dans la feuille "clients") pour que Oui ou Non soit pris en compte

Private Sub Valider_Click()
Dim LR As Long, frm As Worksheet
Set frm = ThisWorkbook.Sheets("Clients")
   LR = frm.Cells(Rows.Count, 1).End(xlUp).Row + 1
   frm.Range("A" & LR).Value = NomEmploye.Value
   frm.Range("B" & LR).Value = IDEmploye.Value
   frm.Range("C" & LR).Value = SalaireEmploye.Value
   frm.Range("D" & LR).Value = ArretEmploye.Caption
With Me.ArretEmploye
       .Caption = IIf(.Value = True, "Oui", "Non")
End With

 

[ChTi160]

Re
Tu n'as pas bien regardé, lu ce que j'ai mis comme code ! il y a une partie dans le Click du Checkbox et l'autre partie dans le Valider_Click
Regarde et modifié les procédures.

With Me.ArretEmploye
       .Caption = IIf(.Value , "Oui", "Non")
End With

N'a rien. A faire dans le Valider_Click
Relis ce que j'ai mis comme réponses.
#4
Jean marie

 

[Cousinhub]

Bonjour,
@jip31
As-tu testé ma proposition?
Bonne journée

 

[ChTi160]

Re
Une vidéo pour imager ce que j'explique Lol
Jean marie

 

[jip31]

Merci Jean Marie ca marche
Bonne journée

Bonjour,
@jip31
As-tu testé ma proposition?
Bonne journée

merci cette fois c est bon
dernière chose est t il possible que quand je selectionnes la case à cocher le caption ne soit pas visible? (je ne veux pas voir "Oui" ou "Non")

merci

 

[Cousinhub]

Re-,
J'en déduis donc que tu n'as pas testé ma solution... (si du moins, tu l'as vue.......)
Bon courage

 

[dysorthographie]

Bonjour
J'utilise le code suivant dans mon userform
Mais j'ai un problème avec macheckbox qui me renvoie VRAI si elle est sélectionnée et FAUX si elle ne l'est pas
Au lieu de cela, je voudrais que VRAI soit remplacé par OUI et FAUX par NON

Merci d'avance

Bonjour,
ça fait parti de c'est absurdité qui consiste à convertir un True/False en "Oui/NON" puis convertir un "OUI/NON" en True/False, ce que je n'es jamais compris!

personnellement je n'ai jamais vécu avec mon temps ,car celui ci n'est jamais arrivé même si mon mon temps est quasiment épuisé!