Microsoft 365 Formulaire dans une feuille

[Usine à gaz]

Bonsoir à tous

Je souhaite avoir un formulaire dans un feuille (sans UserForm).
J'ai fait des recherches et trouvé un modèle que je trouve "sympathique".

Il est en anglais et j'ai modifié certaines parties en français.

J'ai également voulu ajouter un bouton et j'ai également modifié ce qui me semblait être à modifier.
A l'exécution, j'ai une erreur :

Le code d'origine avant ajout du bouton "Mle" est : .Range("C" & iRow).Value = IIf(optMr.Value = True, "Mr", "Mme")
J'ai tenté ça : .Range("C" & iRow).Value = IIIf(optMme.Value = True, "Mr, Mme, Mle")
Je n'arrive pas à le modifier pour que ça fonctionne Grrrr !!!
Pourriez-vous me donner le bon code ?
En cas, je joins le fichier test.
Un grand merci du soir...

 

[Usine à gaz]

Heu bizarre.. chez moi tjrs pas

 

[laurent950]

Bonsoir Jean marie bien sur

@ Laurent
j'avais proposé mais sans succés
Un imbriqué de Si en VBA Soit deux IIF

c'est cette variable qui était pas la bonne :
OptMr.Value il fallait la remplacer par celle la OptionMr.Value

.Range("C" & iRow).Value = IIf(OptMr.Value = True, "Mr", IIf(optMme.Value = True, "Mme", "Mle"))

           '.Range("C" & iRow).Value = IIf(OptionMr.Value = True, "Mr", "Mme")
           'If .Range("C" & iRow).Value <> "" Then .Range("C" & iRow).Value = "Mle"
         
            .Range("C" & iRow).Value = IIf(OptionMr.Value = True, "Mr", IIf(optMme.Value = True, "Mme", "Mle"))

et cela fonctionne j'ai corrigé le Poste #26 est ajouté votre solution et mentionné aussi
Bravos jean marie

 

[Usine à gaz]

Re @laurent950

maintenant ça beugue :

 

[ChTi160]

Re
Laurent
non j'avais modifié le Nom du Control , je me suis dit pourquoi "OptMme" et "OptMle" et "OptionMr"
Donc j'ai renommé le Control "OptMr" !
Voir la vidéo qui image mon propos (plus haut) la cellule "Mle"
Jean marie

 

[ChTi160]

Re
à Laurent et Lionel

Il faut renommer le Control OptionMr en OptMr , ça me semble plus Logique Lol
Et mettre ce Nom (OptMr) dans le Code :

 .Range("C" & iRow).Value = IIf(OptMr.Value = True, "Mr", IIf(optMme.Value = True, "Mme", "Mle"))

Ou alors ne pas renommer le Control "OptionMr" en "OptMr" et
Modifier le Code

 .Range("C" & iRow).Value = IIf(OptionMr.Value = True, "Mr", IIf(optMme.Value = True, "Mme", "Mle"))

Bon j'arrête de vous embêter !
EDIT :
Lionel pourquoi n'utilises tu pas les Balises pour le Code , plutôt que des Images ?

Bonne fin de Soirée
Jean marie

 

[laurent950]

Et mettre ce Nom (OptMr) dans le Code :

Oui vous avez raison Jean Marie, j'ai modifié le code.

Lionel le code est corrigé en poste #26 c'est bon maintenant

Merci Jean Marie

 

[ChTi160]

Re
La dernière pour Lionel Lol(promis)

Private Sub cmdEnregistrer_Click()
    Application.ScreenUpdating = False
    Dim iRow As Long
    iRow = Sheets("Data").Range("A1048576").End(xlUp).Row + 1
    If ValidateForm = True Then
        With ThisWorkbook.Sheets("Data")
           .Range("A" & iRow).Value = iRow - 1
           .Range("B" & iRow).Value = txtName.Value
'           .Range("C" & iRow).Value = IIf(OptMr.Value = True, "Mr", IIf(optMme.Value = True, "Mme", "Mle"))
           .Range("C" & iRow).Value = IIf(OptMr.Value = True, "Mr", "Mme")
            If .Range("C" & iRow).Value <> "" Then .Range("C" & iRow).Value = "Mle"
           .Range("D" & iRow).Value = cmbQualification.Text
           .Range("E" & iRow).Value = txtCity.Value
           .Range("F" & iRow).Value = txtState.Value
           .Range("G" & iRow).Value = txtCountry.Value
        End With
                Call Reset
    Else
        Application.ScreenUpdating = True
        Exit Sub
    End If
        Application.ScreenUpdating = True
End Sub

Une vidéo pour comment joindre du code sur XLD , comme ci-dessus Lol
Jean marie

 

[Usine à gaz]

Grand Merci à vous 2
On y est presque :
Quand je saisi pour Mme et Mle c'est tout bon.
Mais quand je saisi pour Mr :

Il me demande la qualification alors qu'elle est sélectionnée.

 

[ChTi160]

Re
Tu as vu que chez moi pas de Message ?????
Tout Bon (comme disait Jacques)
Jean marie

 

[Phil69970]

Re

Lionel

Tu as vu mon post #15 car j'ai pas vu ta réponse !!!

@Phil69970

 

[Usine à gaz]

Oui, je viens de le voir.
Et Youpi ça fonctionne maintenant.
Grand grand Merci à vous 2 pour votre aide et ténacité.

 

[Phil69970]

Re

Je suis devenu invisible pour une @Usine à gaz

@Phil69970

 

[Usine à gaz]

Bsr Phil69970
Mais non et je te remercie aussi pour toute ton aide.
mais je ne sais plus trop ou j'en suis lol