Bonjour à tous,
Le code suivant permet de générer la boîte de dialogue ci-dessous.
Sub Macro1()
If MsgBox("Quel type de facture voulez-vous détaillée --> OUI standard --> NON", vbYesNo + vbQuestion + vbDefaultButton2, "IMPRESSION FACTURE") = vbNo Then GoTo Standard
' La réponse est OUI, on imprime une facture détaillée
' le code ICI
Standard:
' La réponse est NON, on imprime une facture standard
' le code ICI
End Sub
Remarque: Les boutons "OUI" et "NON" ne sont pas bien appropriés.
Objectif:
L'idéal serait que la boîte de dialogue pose la question: "Quelle type de facture voulez-vous?"
Et pour répondre de disposer d'un bouton "DETAILLEE" à la place de "OUI" pour facture détaillée et d'un second bouton "STANDARD" à la place de "NON" pour facture standard.
Merci pour le temps que vous pourriez passer à m'aider pour me faire avancer vers cet objectif.
Bonne journée.
Joël
Le code suivant permet de générer la boîte de dialogue ci-dessous.
Sub Macro1()
If MsgBox("Quel type de facture voulez-vous détaillée --> OUI standard --> NON", vbYesNo + vbQuestion + vbDefaultButton2, "IMPRESSION FACTURE") = vbNo Then GoTo Standard
' La réponse est OUI, on imprime une facture détaillée
' le code ICI
Standard:
' La réponse est NON, on imprime une facture standard
' le code ICI
End Sub
Remarque: Les boutons "OUI" et "NON" ne sont pas bien appropriés.
Objectif:
L'idéal serait que la boîte de dialogue pose la question: "Quelle type de facture voulez-vous?"
Et pour répondre de disposer d'un bouton "DETAILLEE" à la place de "OUI" pour facture détaillée et d'un second bouton "STANDARD" à la place de "NON" pour facture standard.
Merci pour le temps que vous pourriez passer à m'aider pour me faire avancer vers cet objectif.
Bonne journée.
Joël
Pièces jointes
Dernière édition: