Excel vba Boutons options Résolu/Fermé

Question

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.

f894009 · Answer

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

Patordi · Answer

Bonjour,

Désolé j’ai oublier de le mentionner, c’est un Userform.

Encore merci pour votre aide.

JCB40 · Answer

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

patordi · Answer

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.