Problème avec des Option button

[M.D]

Bonsoir à tous
J’ai construit un USF, avec un multipage. A la première page « Enregistrement des dépenses », se trouve un frame « Paiement » avec 3 OptionButton donc choix donc trois boutons. Lors de l’enregistrement des informations dans la base de données, en ce qui concerne ces OptionButton , s’inscrit soit vrai soit faux, faux.(Selon mon choix)
A la place vrai, faux ,faux J’aimerai qu’il s’inscrit soit « oui » soit « non » selon les cas de figure. Je sais qui cela est possible mais malgré mes recherches à travers différents forums, je ne m’arrive pas à trouver le bon code.
Pour l(instant j'utilise le code suivant qui ne fonctionne pas
Private Sub OptionButton5_Click()
If OptionButton5.Value = True Then
sh.Cells(lign, 2) = "oui"
Else: sh.Cells(lign, 3) = "Non"
End If
If OptionButton6.Value = True Then
sh .Cells(lign, 4) = "oui"
Else: sh.Cells(lign, 5) = "Non"
End If
If OptionButton7.Value = True Then
sh.Cells(lign, 4) = "oui"
Else: sh.Cells(lign, 22) = "Non"
End If
End Sub

Ci-joint mon fichier
Pouvez-vous m’aider.
Merci d’avance
M.D

 

[Staple1600]

Re : Problème avec des Option button

Bonsoir à tous

M.D.
Ma réponse dans ton premier fil ne t'a pas aidé?
https://www.excel-downloads.com/threads/bouton-doption.215095/

PS: Un simple up dans celui-ci pouvait suffire, non ? 😉

 

[M.D]

Re : Problème avec des Option button

Bonsoir,

Malgré les codes indiqués, ça me fonctionne pas.

Merci pour votre aide

M.D

 

[Staple1600]

Re : Problème avec des Option button

Re

Dans ton code
sh n'est pas défini (à quelle feuille se référe sh ?)
lign non plus

PS: Le code proposé dans ton premier fil fonctionnait 😉

Private Sub OptionButton5_Click()
Dim sh As Worksheet, lign&

Set sh = Sheets("BD_DEPENSE")
lign = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1

sh.Cells(lign, 2) = IIf(OptionButton5, "oui", "non")
sh.Cells(lign, 3) = IIf(OptionButton6, "oui", "non")
sh.Cells(lign, 4) = IIf(OptionButton7, "oui", "non")

End Sub

NB: Il faudra créer et adapter cette procédure pour les OptionButton6 et 7

 

[M.D]

Re : Problème avec des Option button

Re Bonsoir J.M

Mon projet progresse, mais il reste quelques petits soucis.

Je mis en place la procédure proposée, après essai, je me suis aperçu que si je renseigne toutes les textbox, ça ne fonctionne pas. Par compte je j'utilise seulement les option button, ça fonctionne. après avoir essayer plusieurs modifications pour me débloquer, je fais de nouveau appel à vos compétences.
Je joins de nouveau mon fichier après les corrections
Merci de votre aide et de votre patience.
M.D

 

[Staple1600]

Re : Problème avec des Option button

Re


Tu n'as pas ajouté les codes pour les autres OptionButton comme je te l'indiquais

NB: Il faudra créer et adapter cette procédure pour les OptionButton6 et 7

Private Sub OptionButton6_Click()
Dim sh As Worksheet, lign&
Set sh = Sheets("BD_DEPENSE")
lign = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
sh.Cells(lign, 2) = IIf(OptionButton5, "oui", "non")
sh.Cells(lign, 3) = IIf(OptionButton6, "oui", "non")
sh.Cells(lign, 4) = IIf(OptionButton7, "oui", "non")
End Sub

Private Sub OptionButton7_Click()
Dim sh As Worksheet, lign&
Set sh = Sheets("BD_DEPENSE")
lign = sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
sh.Cells(lign, 2) = IIf(OptionButton5, "oui", "non")
sh.Cells(lign, 3) = IIf(OptionButton6, "oui", "non")
sh.Cells(lign, 4) = IIf(OptionButton7, "oui", "non")
End Sub

 

[M.D]

Re : Problème avec des Option button

Re, J.M

😕
j'ai ajouté tous les codes comme vous me l'avez indiqué, malheureusement ça fonctionne pas mieux. Je me comprends ce qui se passe où plutôt ce qui ne se passe pas!!!

Merci
Cordialement


M.D

 

[Staple1600]

Re : Problème avec des Option button

Re

Si, si, çà fonctionne mieux pour ce qui concerne les OptionButton 😉
(qui sont comme l'indique le titre de ton fil le sujet de ta question)
Si tu testes en étant sur la feuille BD_Dépenses, et que tu décales ton userform pour voir les colonnes A,B,C,D
tu verras en cliquant sur les 3 optionbutton que les valeurs dans les cellules changent bien.

 

[M.D]

Re : Problème avec des Option button

Bonsoir,

C'est effectivement vrai que la réponse faite le lendemain matin n'a pas été correctement envoyée.

Excusez-moi

M.D