Discussion :

[Patherault]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   .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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   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

[Slooby]

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

[Patherault]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  .Cells(RecordNumber, 31) = Me.chkAs

et pour lire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  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.

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patherault]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[casefayere]

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

[Invité]

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

Idem!

[casefayere]

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

[Philippe Tulliez]

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

[Patherault]

Bonjour et merci à tous pour vos réponses.

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

Merci et bonne journée

[Patherault]

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.