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]

Merci ChTi160
Si j'enlève un "I" :

 

[Staple1600]

Bonsoir le fil

@Usine à gaz
Il existe une aide en ligne qui explique la syntaxe VBA
Il suffit de chercher sur le net

Fonction IIf (Visual Basic pour Applications)

Office VBA reference topic

learn.microsoft.com

Combien de temps va falloir te "materner" ?

Tu es Barbatruc ou tu n'es pas Barbatruc ?

 

[Usine à gaz]

Bonsoir Lionel
A premiers vu
Il te faut supprimer


Voilà ce que j'ai mis pour la gestion de Tes "OptionButton" "Civilités"

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

jean marie

Merci Jean-Marie
Mais il n'en veut pas le gredin :

 

[Staple1600]

Re

@ChTi160
Un unique IIF peut suffire, non ?
Private Sub OptionButton1_Change()
MsgBox IIf(OptionButton1.Value, "Mr", "Mme, Mlle")
End Sub

NB: @Usine à gaz
Pas de Bonsoir à mon endroit ?

 

[Staple1600]

[POUR INFOS]
Le site d'origine du fichier est vérolé
(Il a été bloqué par mon antivirus)

 

[Usine à gaz]

Merci JM
Ce code passe ".Range("C" & iRow).Value = IIf(optMme.Value, "Mr", "Mme, Mlle")é
Mais ça bloque ailleurs Bon sang ... :

 

[Usine à gaz]

Le site n'est pas bloqué chez moi et j'ai analysé le fichier : pas vu de virus

 

[Staple1600]

Re

@ChTi160
Je parle de cette URL présente dans le classeur: thedatalabs.org
Dés que je suis allé sur ce site, mon antivirus l'a bloqué
Avec ce message

Website blocked due to riskware​

We strongly recommend you do not continue.

Je préviens les XLDnautes qui seraient tenter de faire comme moi.

 

[Staple1600]

@Usine à gaz
je ne parle pas du fichier mais d'abord du site web
(car voici la suite du message)

What is riskware?
Riskware, or “risky software,” describes legitimate software programs that contain loopholes or vulnerabilities that can be exploited by hackers for malicious purposes.

Je préviens donc mes petits camarades de jeux.

J'espère pour toi que ton PC n'est pas vérolé
(C'est quoi ton anti-virus ?)

 

[Usine à gaz]

Merci pour l'info.
Je viens de faire une nouvelle analyse :

 

[Usine à gaz]

@Usine à gaz
je ne parle pas du fichier mais d'abord du site web
(car voici la suite du message)

Je préviens donc mes petits camarades de jeux.

J'espère pour toi que ton PC n'est pas vérolé
(C'est quoi ton anti-virus ?)

Defender

 

[Usine à gaz]

Bon, camarades : moi être trop fatigué et mon lit m'appelle. Il me dit .... viens, viens, viens,
Alors je ne vais pas le contredire.

Merci d'avoir été là...
Bonne nuit à tous,

 

[Usine à gaz]

Re

@ChTi160
Un unique IIF peut suffire, non ?
Private Sub OptionButton1_Change()
MsgBox IIf(OptionButton1.Value, "Mr", "Mme, Mlle")
End Sub

NB: @Usine à gaz
Pas de Bonsoir à mon endroit ?

Bonsoir JM lol : j'étais allé trop vite

 

[Phil69970]

Bonjour à tous

Lionel tu aimes bien te faire du mal pour rien.....

J'aurais fait ceci :
J'ai pas fait le code mais il est des plus simples....
Toute ressemblance avec un formulaire est fortuit bien sur ....

@Phil69970