Excel vba Boutons options

Résolu/Fermé
patordi Messages postés 38 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 1 décembre 2022 - 21 déc. 2019 à 00:02
patordi Messages postés 38 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 1 décembre 2022 - 4 janv. 2020 à 22:49
Bonjours à tous et meilleurs vœux pour la nouvelle année.

Dans un formulaire de saisies j’ai 2 boutons options 1 pour monsieur et 1 pour madame.
Dans la base de données j’ai une colonne civilité je voudrais remplacer vrai ou faux par MR ou Mme.
Ce doit être tout bête, mais je ne trouve pas.

En vous remerciant d’avance pour vos lumières.
A voir également:

4 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 déc. 2019 à 06:38
Bonjour,

Dans un formulaire de saisies
Feuille ou Userform????
0
Bonjour,

Désolé j’ai oublier de le mentionner, c’est un Userform.

Encore merci pour votre aide.
0
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
21 déc. 2019 à 11:05
Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement



0
patordi Messages postés 38 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 1 décembre 2022 1
Modifié le 4 janv. 2020 à 22:58
Bonjour à tous et meilleurs vœux,

J’ai trouvé la solution, une fois que vous avez créer un frame avec boutons d’options dans votre userform vous insérez dans le bouton de Validation le code suivant :

Private Sub btnValidation_Click()
Dim ctrl As Control

For Each ctrl In Frame1.Controls
If ctrl.Value = True Then

Range("A1") = ctrl.Caption

End If

Next

End Sub

A une prochaine fois peut-être.
0