Microsoft 365 aide sur vrai ou faux avec checkbox

jip31 · 26 Octobre 2022

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

VB:

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 · 27 Octobre 2022

bhbh à dit:
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 · 27 Octobre 2022

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 · 27 Octobre 2022

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

ChTi160 · 28 Octobre 2022

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

VB:

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 · 28 Octobre 2022

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

Code:

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

Microsoft 365 aide sur vrai ou faux avec checkbox

jip31

Guest

jip31

Guest

Cousinhub

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

Discussions similaires