Besoin Evolution d'un code Impression

[BrunoDS78]

Bonjour à tous,

Tout d'abord voici le code que j'utilise actuellement:

Feuil1.PrintOut Copies:=1, Collate:=True

Je voudrais le modifier pour que:
Si la cellule K7=vrai alors IMPRIME en masquant les cellules H6:H11
ET
Si la cellule K6 ou L6 ou L7=vrai alors IMPRIME en masquant la cellule H4

Merci d'avance de votre aide

 

[Pierrot93]

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
@+

 

[phlaurent55]

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

 

[BrunoDS78]

Re : Besoin Evolution d'un code Impression

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

 

[phlaurent55]

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

 

[BrunoDS78]

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).

 

[phlaurent55]

Re : Besoin Evolution d'un code Impression

Re,

avec ce 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