checkbox dans un userform

Bonjour à tous,

Dans un masque de saisie j'ai un checkbox.
Lors de l'enregistrement dans mon tableau et afin d'avoir oui / non à la place de True / False

j'ai mis

Code:

---

.Cells(RecordNumber, 31) = IIf(Me.chkAs = True, "OUI", "NON")

---

cela fonctionne très bien.

Par contre pour la récupération de la donnée dans mon masque lors de la lecture, j'ai mis

Code:

---

If UCase(.cell(RecordNumber, 31)) = "OUI" Then Me.chkAs.Value = True Else Me.chkAs.Value = False

---

et la ca plante.
Pourtant j'utilise la même fonction avec 2 optbutton (oui/non) est là ça marche.
Quelqu'un a t il une idée sur le motif du plantage ?
Merci à tous

Bonjour,

Peux tu éditer ton post et utiliser es balises [ CODE] [ /CODE] pour y placer ton code ?


Ton "checkBox", c'est un ActiveX directement mis sur une feuille Excel ?

Et dans quel genre de sub as-tu le code (événement lié à ton checkBox ?


Merci de prendre le temps de faire un post rigoureux si tu veux qu'on prenne le temps de t'aider.

Slooby

Bonjour,
Voila, désolé je ne suis pas un habitué
Merci d'avoir pris le temps de me répondre.

Donc, non mon checkBox est dans un userForm pas sur la feuille Excel. Celle ci est justement alimentée par le userForm.
Mon sub se trouve dans le userForm

J'ai un userForm avec des TexteBox, CheckBox, OptionButton et ComboBox qui alimentent ma feuille directement.

Lorsque je mets pour écrire dans la feuille :

Code:

---

.Cells(RecordNumber, 31) = Me.chkAs

---

et pour lire

Code:

---

Me.chkAs = .Cells(RecordNumber, 31)

---

ca marche mais dans ma feuille j'ai VRAI / FAUX or je voudrais avoir OUI quand VRAI et NON quand FAUX.
Puis pouvoir en lecture récupérer l'info de la feuille pour cocher ou non mon CheckBox dans mon UserForm.

comme spécifie Slooby, il aurait été utile de voir tout le code, et si tu enlèves ".Value"

Code:

---

If UCase(.cell(RecordNumber, 31)) = "OUI" Then Me.chkAs = True Else Me.chkAs = False

---

Non cela ne fonctionne pas j'ai un code erreur d'exécution 438

puis il met en surligné le début du code de if jusqu'à then.

j'ai essayé de changer .Value par .Caption mais rien.

Merci

Code:

---

1 2 3

Me.chkAs.Value = CBool(.cell(RecordNumber, 31) = "OUI") 'pas besoin de if then else Debug.Print CBool("OUI" = "OUI") Debug.Print CBool("NON" = "OUI")

---

de mon coté, impossible de télécharger les fichiers du site en ce moment (raison inconnue)
en attendant vois avec Rdurupt

Citation:

---

Envoyé par casefayere

de mon coté, impossible de télécharger les fichiers du site en ce moment (raison inconnue)
en attendant vois avec Rdurupt

---

Idem!

Bonjour Robert,
tu me rassures, ça doit être un problème sur le site

Bonjour,
C'est dommage de ne pas conserver la valeur booléenne (VRAI/FAUX) dans ton classeur car c'est une valeur exploitable dans excel plus simplement qu'une chaîne de caractères telle que Oui ou Non.
Si ton soucis est de visualiser Oui/Non en fonction de la valeur booléenne (VRAI/FAUX) contenu dans la cellule, tu peux passer par de la mise en forme conditionnelle.
Astuce
Après avoir sélectionné la plage concernée.
Aller dans la mise en forme conditionnelle et sélectionner la règle Appliquer une mise en forme uniquement aux cellules qui contiennent
Choisir Egal à et comme valeur FAUX
Ensuite appliquer comme format un format personnalisé (Onglet Nombre) et entrer ;;;"Non"
Faire une seconde règle avec comme valeur VRAI et comme format personnalisé ;;;"Oui"
Illustration
Pièce jointe 216526

Bonjour et merci à tous pour vos réponses.

je test vos propositions aujourd'hui et je vous dis.

Merci et bonne journée

re bonjour,

Après avoir testé, je garde la solution de Philippe. En effet elle a l'avantage de conserver les valeurs booléennes et elle répond parfaitement à mes attentes.
Je n'ai pas réussi à faire fonctionner la solution de Rdurupt. Ca me met toujours le même message d'erreur. Je ne dois pas avoir tout saisi.

Un grand merci à vous tous pour cette aide précieuse.
:P