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

Cousinhub · 26 Octobre 2022

Bonjour,
En utilisant un array tel que :

VB:

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

Peut-être?

ChTi160 · 26 Octobre 2022

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

VB:

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

Jean marie

ChTi160 · 26 Octobre 2022

Re
Au niveau du CheckBox1_Click

VB:

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

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

jip31 · 27 Octobre 2022

ChTi160 à dit:
Re
Au niveau du CheckBox_Click

VB:

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

VB:

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

ChTi160 · 27 Octobre 2022

Bonjour jip31
J'ai mis dans la procédure

VB:

CommandButton3_Click()

VB:

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

Et non

VB:

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

Bonne journée
Jean marie

jip31 · 27 Octobre 2022

ChTi160 à dit:
Bonjour jip31
J'ai mis dans la procédure

VB:

CommandButton3_Click()

VB:

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

Et non

VB:

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

Bonne journée
Jean marie

Merci Jean Marie ca marche
Bonne journée

ChTi160 · 27 Octobre 2022

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

jip31 · 27 Octobre 2022

ChTi160 à dit:
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

VB:

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

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.

VB:

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

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

ChTi160 · 27 Octobre 2022

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

jip31 · 27 Octobre 2022

jip31 à dit:
Merci Jean Marie ca marche
Bonne journée

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

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

dysorthographie · 27 Octobre 2022

jip31 à dit:
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é!

Microsoft 365 aide sur vrai ou faux avec checkbox

jip31

Guest

Cousinhub

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

jip31

Guest

ChTi160

XLDnaute Barbatruc

jip31

Guest

ChTi160

XLDnaute Barbatruc

jip31

Guest

ChTi160

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

jip31

Guest

Cousinhub

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Discussions similaires