Definir zone impression a partir de celulle active

[fredh]

Bonsoir

Je dois modifier la zone d'impresions de plusieurs fichiers.
J'aimerai definir la zone a partir de "A1" jusqu'a la celulle que je selectionne -un offset de -1,-1 car ces fichier ou un "bandeau" de couleur pour delimiter les zones d'impression.
Puis j'aimerai soit mettre le fond en gris sois masquer les colonnes et ligne apres la celulle selectionner.

J'ai commencer un code mais je cale, j'aurai donc besoins d'un coup de pouce.

Merci d'avance.

Sub Fred()
Dim DruckZelle As Range, druck As String
DIM col As String, Row As String
 
Set DruckZelle = Application.InputBox(Prompt:="Choisisez une celulle:", Type:=8)
druck = Range("A1", DruckZelle).Address
ActiveSheet.Pagesetup.PrintArea = druck
'Range("A1", ActiveCell.SpecialCells(xlLastCell).Offset(-1, -1)).Select
'ActiveSheet.Pagesetup.PrintArea = Selection.Address
Range("A3").Select
 
col = DruckZelle.Column + 1
Row = DruckZelle.Rows + 1
MsgBox (col & vbLf & Row)
 
    Columns(col).select
    With Selection.Interior
        .ColorIndex = 15
        '.Hidden = True
    End With
 
    With Rows(druck)
        .Interior.ColorIndex = 15
        '.Hidden = True
    End With
End Sub

ci joint un fichier exemple avec la macro a l'interieur

Dans l'exemple la zone d'impression serait "A1:Z60" , les colonne "AB:IV" en gris, les lignes "62:65536" en gris

 

[JYLL]

Re : Definir zone impression a partir de celulle active

Bonsoir Fredh et le Forum,

Si tu mets :

Range(druck).Select

tu selectionnes toute la zone d'impression en une seule fois et aprés tu mets en gris comme dans ton code.

Bon test.
@+

 

[fredh]

Re : Definir zone impression a partir de celulle active

Bonsoir Jyll et merci de repondre

euh en fait je veut mettre le fond en gris (ou masquer) des celulle en dehors de la zone d'impresions.
Donc en l'occurence
la celulle active "AA61"
la zone d'impression serait de "A1 a "AA61"-offset(-1,-1) donc : "A1:Z60"
les colonne en gris seront "AA61" +1 donc : "AB:IV"
les lignes en gris "AA61" +1 donc : "62:65536"

 

[JYLL]

Re : Definir zone impression a partir de celulle active

Bonsoir Fredh,

Je viens de rentrer et je me suis penché sur tout problème, je te propose cette solution, à toi de me dire si c'est bon.

@+ et au plaisir de te lire.

 

[fredh]

Re : Definir zone impression a partir de celulle active

Bonsoir Jean-Yves, le forum
Merci pour la reponse
Ta solution est bonne, mais je m'apercois que j'ai peut etre mal expliquer le probleme.

Disons que A1:Z60 soit soit la zone d'impresion.
Dans le fichier tu peut voir la limite de la zone d'impresion representer par un fond rouge (Z1:Z61 et A61:AA61). J'aimerai conserver ce fond, et mettre en gris le reste des ligne a partir de cette limite donc en gris les colonne AB:IV, puis le lignes 62:65536.
Je suis arriver a faire une macros qui tourne mais je suis persuader que ta solution est plus propre parce que la mienne c'est pas du jolie. Seulement avec ta solution je n'arrive pas a declarer la zone active celle +2 a la dernier ligne et colonne de Excell.
Peut etre que en y regardant de plus pres le fichier tu pourrais rendre cela plus propre.

Merci et @+

 

[JYLL]

Re : Definir zone impression a partir de celulle active

Bonsoir Fredh et le forum,

J'ai revu mon code, je pense répondre à ta question. Teste le et d'y moi si c'est "OK".

Au plaisir de te lire.

 

[fredh]

Re : Definir zone impression a partir de celulle active

Rebonsoir
Jyll cela fonctionne comme desiré. Merci
J'ai simplifier un peu la taille du code.
Je met le fichier avec le code et deux bouton : 1 pour le test et 2 pour remettre a zero a disposition
Peut tu m'expliquer pourquoi cela ne marche pas
Columns(Col, 256).Interior.ColorIndex = 15

Merci encore

 

[JYLL]

Re : Definir zone impression a partir de celulle active

Re Bonsoir Fredh,

L'instruction "Columns" ne peux travailler que sur sur une seule colonne, pour les lignes c'est différent. C'est tout le bonheur et le casse tête de Bill.

@+

 

[fredh]

Re : Definir zone impression a partir de celulle active

Merci Bill.....

En tout cas le code que tu ma fourni est "OK" pour la production de masse de mes fichiers.
Merci Jyll et au plaisir de te lire peut etre sur d'autre poste

@+