Bouton avec condition
Résolu
Micheljolliet1
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention -
julia Namor Messages postés 524 Date d'inscription Statut Membre Dernière intervention -
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
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
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton on/off comment savoir ✓ - Forum Matériel & Système
- Symbole arrêt marche - Forum Word
13 réponses
Bonjour
C'est tout simple
tu mets dans le code du bouton "envoi formulaire"
OptionButton1 correspond au bouton oui
cordialement
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
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
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
Bonjour
sur le bouton "envoyer le formulaire " vous mettez ce code
Tenez noi au courant
cordialement
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
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
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
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
Solution:
Allez dans la propriété du bouton et le renommer à name=OptionButton1.
sinon envoyez le fichier ou un exemple similaire
Cordialement
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
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
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
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