Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème avec des Option button

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion M.D
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

M.D

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
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 😉
Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...

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

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 Macro pour conditionner une réponse selon des hypothèses
Réponses
3
Affichages
215
Phil69970
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
545
florian50470
F
  • Résolu(e)
Microsoft 365 Amélioration codage
Réponses
4
Affichages
509
pompaero
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
720
Zonmé
Z
POWERQUERY :: Ajout d'une colonne avec calculs multiples & TCD à l'issue des calculs
Réponses
0
Affichages
339
oguruma
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
590
un internaute
U
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
577
troki74
T
P
  • Résolu(e)
XL 2019 Msgbox différent selon le contenu d'une cellule
2
Réponses
16
Affichages
1 K
pat66
P
J
  • Question Question
Microsoft 365 aide sur vrai ou faux avec checkbox
2
Réponses
19
Affichages
1 K
dysorthographie
G
  • Question Question
XL 2019 MsgBox vbOKCancel
Réponses
3
Affichages
681
gg13
G
S
  • Question Question
Word Activer ou Désactiver des options Button dans un Private Sub
Réponses
1
Affichages
1 K
sudo
S
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
771
oguruma
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
B
  • Question Question
Microsoft 365 Envoi pièce jointe html avec Outlook en VBA
Réponses
5
Affichages
1 K
bennp
B
S
  • Résolu(e)
Autres Pourquoi le format Date semble être différent malgré même formule ? (excel / VBA)
Réponses
8
Affichages
3 K
Scoub
S
P
  • Question Question
XL 2019 Verrouiller plusieurs cellules avec condition
Réponses
3
Affichages
969
fanch55
S
  • Résolu(e)
XL 2019 VBA envoyer un mail outlook avec une pièce jointe
Réponses
1
Affichages
2 K
dysorthographie
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
1 K
jabenj
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…