Résolu XL 2019 créer un bouton aperçu avant impression

telemarrk

XLDnaute Nouveau
Bonjour,

j'ai créé un tableau excel qui me permet de gérer mes congés. il ne me reste plus qu'a trouver comment afficher un aperçu avant impressions quand je clique sur le bouton impression.

En effet, j'ai un créé une forme rectangulaire nommé "impression" sur la feuille FICHE et je souhaiterai quand je clique dessus afficher l'aperçu avant impression de la feuille IMPRESSION.

je ne sais comment faire, quelqu'un peut m'aider.

merci
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

GALOUGALOU

XLDnaute Occasionnel
bonjour telemarrk bonjour le forum
je n'ai pas encore regardé votre classeur
mais basiquement je dirais
coller cette procedure dans un module

Sub imprimer()
Sheets("Impression").Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

associer votre forme à cette macro
codialement
galougalou
 

telemarrk

XLDnaute Nouveau
GalouGalou cela fonctionne merci.

Par contre, je souhaite maintenant effacer les données orange de la feuille impressions si j'imprime. Remettre le document vierge.

je ne sais pas si c'est possible.
 

GALOUGALOU

XLDnaute Occasionnel
pour effacer les cellules de couleur orange

après printpreview

Range("D7,J8:J9,L8:L9,L13:M13,F20,G20").Select
Selection.ClearContents

ou pour effacer un plus grand nombre de cellules dispersées dans la feuille
Range("D7,D8,D9:G9,G8,J8:J9,L8:L9,F14:G21,L13:M13,F25:F28").Select
Selection.ClearContents

à adapter en fonction de vos besoins
cordialement
galougalou
 

GALOUGALOU

XLDnaute Occasionnel
bonjour telemarrk

comme dis dans le post5
à adapter en fonction de vos besoins
utiliser cette solution
pour effacer les cellules de couleur orange
Range("D7,J8:J9,L8:L9,L13:M13,F20,G20").Select
Selection.ClearContents
et ajouter éventuellement des cellules sans formules
cordialement
galougalou
 

patricktoulon

XLDnaute Barbatruc
re
Bonjour
a partir du moment ou tu a des formules clearcontents va les effacer
tu a donc FORCeMeMENT BESOINS DE vba et non des formules
EN FORMULE C'EST PAS POSSIBLE

tu peux pas dire a excel de ne pas calculer et avoir des cellule vide apres calculate sans réactualiser les cellule avec des formules (les memes) en bloquant le enableevents avant et débloquant apres
rien que ça déjà c'est pas fiable
donc conclusion
formules basta
vba OK
. ;)
 

GALOUGALOU

XLDnaute Occasionnel
bonjour telemark bonjour le forum

et bien patricktoulon vous a dressé une analyse pessimiste !

j'avais répondu à votre post sans analyser votre classeur
effectivement les plages oranges contiennent des formules
la solution n'est pas de les effacer, mais d'ajouter une condition pour afficher le resultat uniquement si le nom d'un client est saisi dans la feuille, donc à l'effacement du nom la feuille se vide.
pour exemple une formule
=SI($G$8="";"";SI(Fiche!$J$10=Impression!C14;Fiche!$L$10;""))

de plus pour proteger les formules il est important de proteger la feuille. je vous ai pose une macro pour cela dans évenement feuille qui protege la feuille Impression (en décochant toutes les cellules qui doivent rester accessible.)
pour rendre accessible toutes les modificaitons il suffit d'acceder par (revision/oter la protection de la feuille) (à éviter malgré)

une macro se declenche en cliquant sur le bouton imprimer et effacera en fin d'exécution les coordonnées de l'employé.
si ca peut vous rassurer, dans mon entreprise j'ai fait tourner ce style de classeur pendant des années sans aucun, j'ai bien dit aucun problème.
à tout hasard j'ai malgré tout rajouter une instruction calculate au cas ou un évenement serait désactivé.
effectivement sur des cellules avec formule il ne faut surtout pas employé "clearcontents"

en espérant avoir pu vous aider
cordialement
galougalou
 

Fichiers joints

telemarrk

XLDnaute Nouveau
Galougalou
J'ai encore un problème, je voudrais que dans l'onglet "impression", il ne retienne que la dernière ligne saisie dans l'onglet "fiche"

Peux-tu m'aider ?
 

GALOUGALOU

XLDnaute Occasionnel
bonjour telemarrk bonjour le forum

Exemple de formule qui renvoie la dernière valeur numérique de la Colonne A
=RECHERCHE(9^9;A:A)
Pour le dernier texte, ça sera :
=RECHERCHE("zz";A:A)

exemple : cette régle appliquer à votre cas dans la cellule l8
=SI($G$8="";"";RECHERCHE(9^9;Fiche!D:D))

si vous avez du mal a mettre cela en place faite moi un retour
cordialement
galougalou
 

telemarrk

XLDnaute Nouveau
Galougalou, comment faire pour que la cellule J8 de l'onglet "impression" prend en compte la colonne F de l'onglet "fiche"

merci
 

GALOUGALOU

XLDnaute Occasionnel
en fonction de la saisie colonne f (format identique sur toutes la colonne)

si les données sont uniquement numérique
=SI($G$8="";"";RECHERCHE(9^9;Fiche!F:F))

si il y a saisie d'une lettre ex 11h50 ou 11:50
=SI($G$8="";"";RECHERCHE("zz";Fiche!F:F))
cordialement
@+
 

telemarrk

XLDnaute Nouveau
Bonjour Galougalou,

je demande comment faire quand le date de période d'absence n'est pas dans la colonne B mais F.
Comme tu peux voir dans mon fichier joint précédemment je rempli soit les colonnes "date de congés-jours" ou "date de congés-heure".
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas