Créer message d'erreur si impression mauvais onglet

Bonjour à tous

Je cherche à créer un message d'erreur lorsque je demande l'impression d'un onglet qui n'est pas le bon.

Sur le fichier joint, il y a 2 onglets :

• Facture client TOTAL-Part
• Facture client TOTAL-Pro

Sur chaque onglet la cellule F1 mentionne s'il s'agit d'un client Particulier (Part) ou d'un client professionnel (Pro).

Le but est de créer un message d'erreur avant impression si je veux imprimer l'onglet 'Facture client TOTAL-Part' lorsque F1 mentionne 'Pro' ou si je veux imprimer 'Facture client TOTAL-Pro' si queF1 mentionne 'Part' (et empêcher l'impression).

Quelqu'un aurait-il une solution ? ou une autre proposition plus simple.

Merci d'avance. Cordialement

Bonjour

Est ce que tu acceptes le VBA (macro)

A+ François

Oui ça peut être sous forme de macro. Il y en aura déjà dans le fichier pour activer/désactiver des filtres mais aussi lancer les impressions.

Merci de prendre un temps pour trouver une solution.

Bonjour le forum

Bonjour MARDEL, bonjour François

Ma solution avec un bouton de formulaire

Re lme fil,

Ce fichier correspond mieux à la demande que je n'avais pas complètement lue.

Merci Ericcool02 pour ta proposition.

Je n'arrive pas à ouvrir cette macro car j'ai un message d'erreur :

Essaie ceci. Bonne fin de week-end.

J'ai bien suivi la procédure mais j'ai le même message.

Bonne soirée

Bonsoir

Teste un autre truc

👉Clic droit sur le fichier

👉Propriétés

👉Puis tout en bas coche Débloquer

Slts

Bonjour

Je n'ai pas la mention 'Débloquer'.

Merci à chacun pour vos contributions.

Cordialement

Re le fil

Essaie avec ce fichier et tiens nous au courat.

Re le fil,

Tente celui-ci, qui fait référence à ton fichier

C'est pareil que ce soit avec un fichier ou avec l'autre.

Je pense que j'ai trouvé une autre solution qui sera peut-être plus simple en ayant qu'un seul fichier et en utilisant la fonction SI(F1="Pro";"xxxx";"") et en xxxx je rajoute les mentions obligatoires lorsque le client est Pro.

Je vous remercie encore pour vos précieuses contributions.

Je vais mentionner le sujet comme résolu.

Un grand merci à tous.

Re le fil,

Sinon voici le code qui accompagnait le Bouton "Impression"

Option Compare Text

Sub Bouton3_Cliquer()              'C'est un bouton de formulaire et non ActiveX
If [F1].Value = "Pro" Then
MsgBox "Vous êtes sur la mauvaise feuille de facture, la valeur de cette cellule devrait être 'Part'" & Chr(10) & _
"Je vous amène sur la feuille concernée"
 Worksheets("Facture Client TOTAL-Pro").Activate
End If
 If [F1].Value = "Part" Then
ActiveWindow.SelectedSheets.PrintPreview    'ou .PrintOut pour lancer l'impression

'Refaire même manip pour feuille 2
End If
End Sub

Merci beaucoup Ericcool02

De rien MARDEL. Bonne fin de programme et de journée.

Eric