Bouton avec condition

Résolu/Fermé

Micheljolliet1 Messages postés 5 Date d'inscription samedi 3 septembre 2016 Statut Membre Dernière intervention 4 février 2017 - 3 févr. 2017 à 06:56
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 6 févr. 2017 à 08:41

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

A voir également:

Bouton avec condition
Excel cellule couleur si condition texte - Guide
Réinitialiser chromecast sans bouton - Guide
Hard reset samsung sans bouton home - Guide
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
Bug bouton volume xiaomi - Forum Xiaomi

13 réponses

Réponse 1 / 13

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
Modifié par julia Namor le 3/02/2017 à 07:54

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 sub
else
 call envoi formulaire
end if

OptionButton1 correspond au bouton oui

cordialement

Réponse 2 / 13

Micheljolliet1 Messages postés 5 Date d'inscription samedi 3 septembre 2016 Statut Membre Dernière intervention 4 février 2017
4 févr. 2017 à 09:48

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

Réponse 3 / 13

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
4 févr. 2017 à 11:07

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 sub
else
Workbooks("Feuille-vente-armoire.xlsm").SendMail Recipients:="m.jolliet@matenligne.ch", _
Subject:="envoi vendeur", _
ReturnReceipt:=True
end if 
End Sub

Tenez noi au courant

cordialement

Réponse 4 / 13

Micheljolliet1 Messages postés 5 Date d'inscription samedi 3 septembre 2016 Statut Membre Dernière intervention 4 février 2017
4 févr. 2017 à 11:40

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 13

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
4 févr. 2017 à 12:34

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

Réponse 6 / 13

Micheljolliet1 Messages postés 5 Date d'inscription samedi 3 septembre 2016 Statut Membre Dernière intervention 4 février 2017
4 févr. 2017 à 18:02

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

Réponse 7 / 13

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
4 févr. 2017 à 18:23

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

Réponse 8 / 13

MichelJolliet1
5 févr. 2017 à 13:20

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

Réponse 9 / 13

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
5 févr. 2017 à 14:44

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

Réponse 10 / 13

Micheljolliet1
5 févr. 2017 à 19:49

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

Réponse 11 / 13

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
5 févr. 2017 à 21:09

Bonsoir
Remplacez la ligne d'erreur par

If Feuil1.OptionButton1.Value = False Then

et ce sera tout bon
Bonne soirée

Réponse 12 / 13

Michel Jolliet
6 févr. 2017 à 06:31

Bonjour,

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

Réponse 13 / 13

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
6 févr. 2017 à 08:41

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

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Bouton ON OFF, O ou I ?

Quel est la touche shift sur le clavier

Combiné SI et RECHERCHEV excel

ou est la touche shift sur un clavier

Discussions similaires

Newsletters