Bouton avec condition Résolu/Fermé

Question

Bonjour,
J'ai créé un bouton pour envoyer un document Excel sur une adresse mail. Je souhaiterais maintenant que l'envoi sur cette adresse ne s'effectue que si la personne qui l'envoie a lu des conditions et qu'il le confirme en cliquant sur la case à cocher "OUI".
Est-ce possible d'insérer un code dans la macro du bouton d'envoi du formulaire ?
Ci-dessous, un schéma explicatif
_

julia Namor · Answer

Bonjour 
C'est tout simple 
tu mets dans le code du bouton "envoi formulaire"
If OptionButton1.Value = false Then msgbox "vous devez cocher les cgu"exit subelse call envoi formulaireend if 
OptionButton1 correspond au bouton oui
cordialement

Micheljolliet1 · Answer

Bonjour et déjà merci pour votre réponse avec le code, mais je n'arrive pas à trouver le bon ordre pour que cela fonctionne. Je vous remets mon code me permettant d'envoyer le dossier et pourriez-vous me dire où insérer votre code?
Voici mon code:
Sub Bouton24_Cliquer()
'
' Bouton24_Cliquer Macro
'
Workbooks("Feuille-vente-armoire.xlsm").SendMail Recipients:="m.jolliet@matenligne.ch", _
                          Subject:="envoi vendeur", _
                          ReturnReceipt:=True
'
End Sub
Bonne journée.
Michel

julia Namor · Answer

Bonjour 
sur le bouton "envoyer le formulaire " vous mettez ce code 
Sub Bouton24_Cliquer()If OptionButton1.Value = false Then msgbox "vous devez cocher les cgu"exit subelseWorkbooks("Feuille-vente-armoire.xlsm").SendMail Recipients:="m.jolliet@matenligne.ch", _Subject:="envoi vendeur", _ReturnReceipt:=Trueend if End Sub 
Tenez noi au courant 
cordialement

Micheljolliet1 · Answer

Bonjour,
Désolé,mais j'ai une erreur d'exécution "424" et au débogage, la ligne ci-dessous est en jaune. Est-ce là le problème?
If OptionButton1.Value = false Then 
Merci pour votre aide
Michel

julia Namor · Answer

Il faut renommer le bouton option en OptionButton1
Ce sera tout bon
cdt

Micheljolliet1 · Answer

Je n'y suis pas encore, je suis désolé, mais où faut-il aller pour le renommer?

julia Namor · Answer

En fait l'erreur "424" objet requis est due au name du bouton à cocher. 
Solution: 
Allez dans la propriété du bouton et le renommer à name=OptionButton1.
sinon envoyez le fichier ou un exemple similaire
Cordialement

MichelJolliet1 · Answer

Bonjour,
Je suis désolé car je n'arrive pas à trouver la solution et il me semble que tout correspond. Je n'arrive pas à vous envoyer le fichier. Puis-je vous l'envoyer par mail? Pouvez-vous me donner votre adresse mail? Sinon pas de soucis.
Bonne journée

julia Namor · Answer

Bonjour
Allez sur ci-joint.com pour joindre une copie du  fichier 
Une fois le fichier joint ; vous copier le lien et vous le coller dans le message
veuillez a effacer au préalable toutes les donnéees confidentielles
cdt

Micheljolliet1 · Answer

Bonsoir, 
Voici le lien
http://www.cjoint.com/c/GBfsPuVjMu4
Merci et bonne soirée

julia Namor · Answer

Bonsoir 
Remplacez la ligne d'erreur par 
If Feuil1.OptionButton1.Value = False Then
 et ce sera tout bon 
Bonne soirée

Michel Jolliet · Answer

Bonjour,
C'est parfait! Merci beaucoup pour votre patience et votre assiduité!

julia Namor · Answer

A votre service ; 
Vous pouvez mettre "résolu" en haut de la discussion
Cordialement

Bouton avec condition

13 réponses

Discussions similaires