Champs à remplir

Bonjour,

Dans Word on utilise des champs grisés qui peuvent être remplis mais qui n'apparaissent pas à l'impression s'ils restent vides. Cela est juste là pour aider les utilisateurs à savoir où il faut noter des informations.

Est-ce possible de faire cela dans excel 2010 ? ou peut-être y-a-t-il un moyen de faire quelque chose de semblable ?

Merci.

Bonsoir,

Peux-tu joindre la feuille Excel en question

avec exemple anonymisé.

Amicalement

Claude

Voilà le fichier.

Là j'ai mis de simples mises en forme conditionnelles en gris sur les cellules à remplir mais il se peut qu'elles restent vides, et la couleur sera donc imprimée, ce que je ne veux pas.

J'aimerais donc que ce soit des champs visibles à l'édition mais non à l'impression.

Merci.

Bonsoir

A tester

re;

Banzai,

il y a un problème sur ton fichier, on ne peut pas l'ouvrir normalement

"Projet Visual Basic perdu"

sur ma version jointe ici,

1) Le bouton "Prépare impression" copie la Feuil1 sur la feuille "Imprime" (masquée)

2) sur la feuille 'Imprime", le bouton lance l'impression sans les MFC.

dans le ThisWorkbook

Private Sub Workbook_Open()
    Sheets("Imprime").Visible = False
End Sub

Dans la Feuil1 (facultatif)

Private Sub Worksheet_Activate()
    Sheets("Imprime").Visible = False
End Sub

Dans un module

Sub PrépareImpression()
        Application.ScreenUpdating = False
    With Sheets("Imprime")
        .Visible = True
        Columns("A:BD").Copy Destination:=.Range("a1")
        .Cells.FormatConditions.Delete
        .Activate
    End With
End Sub
Sub imprime()
Dim Rep%
    With Sheets("Imprime")
        .PrintPreview 'aperçu

        Rep = MsgBox("Confirmez l'impresion ?", _
        vbYesNo + vbCritical + vbDefaultButton2, "Imprime")
        If Rep = vbNo Then Exit Sub
        '.PrintOut copies:=1
        .Visible = False
    End With
    Sheets(1).Activate
End Sub

C'est un peu magouille, mais çà marche !

Amicalement

Claude

35pa39-imprime.zip (28.18 Ko)

Bonjour

Etonnant

Je viens de le télécharger et pas de soucis particulier

A voir si d'autres réponses

Vos fichiers fonctionnent parfaitement tous les 2

Par contre je ne pensais pas que ce serait aussi compliqué, j'aurais aimé éviter les manipulations spéciales et même si possible les macros.

Peut-être y-a-t-il moyen de désactiver les MFC lorsque l'utilisateur clique sur fichier-->imprimer ? cela m'éviterais déjà d'avoir un bouton visible.

Merci !

Bonsoir

Toujours avec une macro mais sans bouton

A tester

Hum, je ne vois pas de macros dans le fichier, et pourtant dans l’aperçu ça fonctionne, par contre quand je quitte ce dernier, le fichier se bloque et je suis obliger de fermer.

Étrange comme truc..

Bonsoir

La macro est dans le module ThisWorkbook

Rajoutes à la fin avant le End Sub dans la macro Private Sub Workbook_BeforePrint(Cancel As Boolean)

  Application.ScreenUpdating = True

Ah oui, j'allais pas dans Visual basic directement.

Avec la ligne ça fonctionne bien.

Je vais me débrouiller comme ça.

Merci !

Bonjour,

si tu repasse par là

Rechercher des sujets similaires à "champs remplir"