Problème d'affichage avec les optionbuttons

[yOUnII]

Re-bonjour, pardon d'user une nouvelle fois de votre temps, je rencontre 2 problèmes avec les optionbuttons :

1er problème rencontré : J'ai crée 2 optionbuttons dans mon userform l'un pour "oui" l'autre pour "non".
Or quand l'utilisateur clique sur "Oui" , la valeur retournée sous ma feuille Excel ("TABLE_SAISIE") est : "TRUE" , quand l'utilisateur clique sur "Non", la valeur retournée est : "FALSE".

Est-il possible de faire apparaître la valeur "Oui" ou "Non" à la place de TRUE ou FALSE ? sous ma feuille "TABLE_SAISIE" ?


2ième Problème rencontré : Lorsque l'utilisateur ne coche rien la valeur renvoyée sous ma feuille excel ("TABLE_SAISIE") est : "FALSE"
J'aimerais qu'aucune valeur ne soit renvoyé sous ma feuille Excel si aucun des optionbuttons n'est cochés.

Voici le code que j'ai utilisé pour que les valeurs se placent sous ma feuille TABLE_SAISIE :

ActiveCell.Offset(1, 15).Value = OptionButton1
ActiveCell.Offset(1, 15).Value = OptionButton8


En vous remerciant de votre aide.

 

[Compte Supprimé 979]

Re : Problème d'affichage avec les optionbuttons

Salut yOUnII,

Dans ton code il faut tester chaque bouton option

If OptionButton1 = True Then
  ActiveCell.Offset(1, 15).Value = "Oui"
ElseIf OptionButton8 = True then
  ActiveCell.Offset(1, 15).Value = "Non"
End If

Essaye ça 😉

a+

 

[yOUnII]

Re : Problème d'affichage avec les optionbuttons

salut BrunoM45 ! ton code fonctionne parfaitement je te remercie vivement pour ta réponse.
Je me permet d'abuser pour te demander si tu aurais une solution au problème suivant : Lorsque l'utilisateur ne coche rien ( c'est-à-dire ni "Oui" ni "Non" ) la valeur renvoyée sous ma feuille excel ("TABLE_SAISIE") est : "FALSE"

Or j'aimerais qu'aucune valeur ne soit retournée puisque rien n'est coché.

Merci encore de ton aide.

 

[Compte Supprimé 979]

Re : Problème d'affichage avec les optionbuttons

Re,

Normalement mon code, ne retourne aucune valeur si aucune case n'est cochée !

Sinon tu peux changer le code par :

If OptionButton1 = True Then
  ActiveCell.Offset(1, 15).Value = "Oui"
ElseIf OptionButton8 = True then
  ActiveCell.Offset(1, 15).Value = "Non"
Else
  ActiveCell.Offset(1, 15).Value = ""
End If

A+

 

[yOUnII]

Re : Problème d'affichage avec les optionbuttons

un grand merci a toi ! tout fonctionne très bien ! bonne journée ! 😀