Ne pas imprimer un cellule dans excel
Fermé
tourille
Messages postés
27
Date d'inscription
dimanche 25 janvier 2009
Statut
Membre
Dernière intervention
9 octobre 2017
-
8 oct. 2017 à 22:45
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 9 oct. 2017 à 10:51
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 9 oct. 2017 à 10:51
A voir également:
- Excel ne pas imprimer une cellule
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 9 oct. 2017 à 08:37
Modifié le 9 oct. 2017 à 08:37
Bonjour,
en vba faire Alt F11 pour accéder à l'éditeur, sélectionner la feuille concernée en haut à gauche et mettre ce code qui se déclenchera au double clic en dehors de la cellule concernée:
au double clic la cellule est masquée et au clic la cellule s'affiche de nouveau.
@+ Le Pivert
en vba faire Alt F11 pour accéder à l'éditeur, sélectionner la feuille concernée en haut à gauche et mettre ce code qui se déclenchera au double clic en dehors de la cellule concernée:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("D33").NumberFormat = ";;;"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("D33").NumberFormat = "General"
End Sub
au double clic la cellule est masquée et au clic la cellule s'affiche de nouveau.
@+ Le Pivert
9 oct. 2017 à 10:51
ou bien, sur le modèle de cs_Le_Pivert, dans ThisWorkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("Feuil1").Range("D33").NumberFormat = ";;;" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sheets("Feuil1").Range("D33").NumberFormat = "General" End SubMasquée auto à l'impression, ré-affichée à la sélection d'une cellule.
eric