Besoin Evolution d'un code Impression

Pierrot93

XLDnaute Barbatruc

• 7 Avril 2011

• #2

Re : Besoin Evolution d'un code Impression

Bonjour,

A ma connaissance tu peux masquer une ligne, une colonne ou une feuille de calcul mais pas une cellule.... ou alors faut ruser....

bon après midi
@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Avril 2011

• #3

Re : Besoin Evolution d'un code Impression

Bonjour à tous,

voici la ruse :
passer par une mise en forme conditionnelle qui mets le contenu des cellules concernées en blanc en fonction des contenus des cellules K7 et des cellules K6,L6,L7


à+
Philippe

 

Vote positif 0 Vote négatif

B

BrunoDS78

Guest

• 7 Avril 2011

• #4

Re : Besoin Evolution d'un code Impression

Bonjour phlaurent 55,
Quel serait le code pour faire comme cela ?
Merci

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Avril 2011

• #5

Re : Besoin Evolution d'un code Impression

Re,

voir fichier joint
sans macro .................. si tu le veux par macro, faudra attendre 5 minutes

à+
Philippe

Edit: ma réponse serait mieux adaptée si tu joignais ton fichier

 

Pièces jointes

• 111.xls

  28 KB · Affichages: 46
• 111.xls

  28 KB · Affichages: 45
• 111.xls

  28 KB · Affichages: 46

Dernière édition: 7 Avril 2011

Vote positif 0 Vote négatif

B

BrunoDS78

Guest

• 7 Avril 2011

• #6

Re : Besoin Evolution d'un code Impression

Oui par macro stp,
Car je voudrais que cette mise en forme conditionnelle ne se fasse que lors de l'impression puis que la mise en forme se remette normal (Noir sur fond blanc).

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Avril 2011

• #7

Re : Besoin Evolution d'un code Impression

Re,

avec ce code:

Code:

Application.ScreenUpdating = True
If [K7] = "Vrai" Then
    Range("H4").Font.ColorIndex = 2
End If
If [K6] = "Vrai" Or [L6] = "Vrai" Or [L7] = "Vrai" Then
    Range("H6:H11").Font.ColorIndex = 2
End If
' imprimer le feuille
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' remettre les caractères en noir
Range("H4:H11").Font.ColorIndex = 1
Application.ScreenUpdating = False

à+
Philippe

 

Vote positif 0 Vote négatif