Excel vba Boutons options [Résolu]

Signaler
Messages postés
13
Date d'inscription
mardi 28 juillet 2015
Statut
Membre
Dernière intervention
4 janvier 2020
-
patordi
Messages postés
13
Date d'inscription
mardi 28 juillet 2015
Statut
Membre
Dernière intervention
4 janvier 2020
-
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.

4 réponses

Messages postés
14950
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 janvier 2020
1 210
Bonjour,

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

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

Encore merci pour votre aide.
Messages postés
1604
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
23 janvier 2020
220
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 : http://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



Messages postés
13
Date d'inscription
mardi 28 juillet 2015
Statut
Membre
Dernière intervention
4 janvier 2020

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.