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

 

[jip31]

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

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

ben ci je l'ai testé et je dis que ca marche sauf ce dernier pb.... pas grave je vais me débrouiller, merci

 

[Cousinhub]

Re-,
Mon code ne modifie en rien le Caption de ton CheckBox...
En même temps, si tu utilises les deux codes (JM et le mien), il est sûr que tu vas avoir du mal à t'en sortir...

 

[ChTi160]

Re
Il te suffit de mettre la couleur du texte de la couleur que le fond !
Jean marie

 

[ChTi160]

Bonjour le Fil
Une autre possibilité :
Utiliser la propriété .Tag du CheckBox .
soit

Private Sub CheckBox1_Click()
With Me.CheckBox1
       .Tag = IIf(.Value , "Oui", "Non")
End With
End Sub

Private Sub CommandButton1_Click()
Worksheets("Feuil1").Cells(12, 7).Value = Me.CheckBox1.Tag
End Sub

J'ai mis en Caption du CheckBox "Arrêt Maladie"
Bonne Journée

jean marie

 

[dysorthographie]

Bonjours,
Pas besoin d'évaluer si un booléen est true car!
L'expression True=True retourne True donc iif(True suffit !

Encore plus simple

Private Sub CommandButton1_Click()
Worksheets("Feuil1").Cells(12, 7).Value=IIf(CheckBox1.Value, "Oui", "Non")
End Sub