Excel vba Boutons options

Résolu
patordi Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -  
patordi Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -
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

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

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

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

    Encore merci pour votre aide.
    0
  3. JCB40 Messages postés 3063 Date d'inscription   Statut Membre Dernière intervention   479
     
    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
  4. patordi Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   1
     
    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