De: "Benoît Marchand" <benmarch@club-internet.fr>
Objet: Re: Ne pas imprimer une cellule.
Date : dimanche 2 septembre 2001 23:58

Salut News,

En compl&eacute;ment des autres r&eacute;ponses, je te propose une petite manip qui r&eacute;glera ton pb en associant
formule conditionnelle et BeforePrint :

Sur ta feuille, tu ajoutes une Case à cocher de la barre d'outils Formulaires que tu lies à une
cellule (A1, dans mon exemple), tu vas dans les propri&eacute;t&eacute;s de la case à cocher et tu d&eacute;coches
"Imprimer l'objet", ensuite tu masques cette cellule en lui appliquant le format ";;;".
Dans la(les) cellule(s) que tu veux masquer, tu cr&eacute;s le format conditionnel suivant :
La formule est  =$A$1=FAUX()            ===> couleur de police blanche

Ensuite tu ajoutes ce code dans le module WorkBook  :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     If ActiveSheet.Name = "Feuil1" Then
          [A1] = False
          ActiveSheet.Calculate
     End If
End Sub

Lorsque tu imprimeras ou iras en aperçu avant impression, les cellules en question seront masqu&eacute;s.
Le seul inconv&eacute;nient de ce système est que tu devras cliquer sur la CàC pour revoir le contenu de
ces cellules.

Autre solution pour imprimer, est d'utiliser un bouton pour imprimer ta feuille :

Sub Impression()
     If ActiveSheet.Name = "Feuil1" Then
          Dim SavA1 As Boolean
          SavA1 = [A1]: [A1] = False
          ActiveSheet.Calculate
          ActiveSheet.PrintPreview
          [A1] = SavA1
          ActiveSheet.Calculate
     End If
End Sub

Cette solution à l'avantage de remettre dans la cellule A1, la valeur initiale après l'impression de
la feuille.

A+
Benead




Autre Exemple (par Gaëtan M.)

tu peux ajouter une zone de texte (Affichage-Barres d'outils Dessin) que tu d&eacute;finis de la taille de la cellule (utilise la touche ALT pour l'ajustement), puis bouton droit sur le bord de la zone, Format, Propri&eacute;t&eacute; et d&eacute;coche Imprimer l'objet.
Pour tout de même afficher une info dans cet objet, il faut s&eacute;lectionner la zone de texte, tape dans la zone
formule =coordonn&eacute;s de la cellule contenant le r&eacute;sultat. Exemple par là : http://www.polykromy.com/html/poly_main_cours.html



Question initiale :

News a &eacute;crit :

> Bonjour,
>
> Existe-t-il un moyen simple de ne pas imprimer une cellule qui est visible ?
>
> Je veux y placer un commentaire qui ne devra apparaître qu'à l'&eacute;cran mais
> pas lorsque on imprimera la feuille.
>
> Est-ce un format de cellule particulier ?
>
> Ou dois-je passer par une macro ?
>
> Merci d'avance.
>
> GF