mise en page/imprimer

[polik]

bonjour a tous


je me demande comment imprimer les cellule que l'on voit. En fait les colonne ABC sont gelé et le reste défile. Je voudrais imprimer seulement les colonne ABC + STU (par exemple) si mon curseur est dans la colonne T.

J'espere ne pas etre trop ambigu.

Voici mon fichier
Merci d'Avance

PS j'aimerais juste imprimer une semaine a la fois
😉

 

[andré]

Salut,

En principe Excel n'imprime que ce qui est visible à l'écran.

Je vois deux possibilités.

Grouper et créer un plan (menu Données), sauf sur les colonnes A, B et C, en laissant une colonne vide entre chaque semaine, de façon à ce que les '+' et '-' restent visibles.
Un clic sur le n° 1 (tout à gauche) ferme l'ensemble, puis un clic sur le '+' de la semaine concernée (qui va l'ouvrir).
La feuille est prête à l'impression.

Une macro qui masque toutes les colonnes, sauf A, B, C et les trois colonnes de la semaine en cours.
Problème : on ne peut imprimer que la semaine en cours.

Si tu mets un exemple en pièce jointe :
Lien supprimé
je veux bien te mettre la première solution en place.
Pour la seconde, j'en suis incapable, mais d'autres le feront.


Â+

Message édité par: andré, à: 15/02/2006 07:39

 

[mutzik]

Bonjour polik, André

mets ce code dans un module et cela imprimera la zone 1colonne avant ta cellule active plus une colonne après la cellule active ... à adapter si nécessaire ...

Sub imprimer()
Dim col As Integer, ligne As Long, zoneIMP As String

With ActiveSheet.PageSetup
.PrintTitleColumns = '$A:$C'
End With
col = ActiveCell.Column - 1
ligne = Range(Chr(64 + col) & '65536').End(xlUp).Row
zoneIMP = '$' & Chr(64 + col) & '$1:$' & Chr(66 + col) & '$' & ligne
ActiveSheet.PageSetup.PrintArea = zoneIMP
End Sub

 

[polik]

merci beaucoup je vais adapter le code

 

[kyasteph]

Re : Re:mise en page/imprimer

Bonjour,
Veuillez m'excusez j'ai aussi un probleme avec la mise en page dans ma macro.c'est que ma macro memorise le dernier ActiveSheet.PageSetup.Orientation = xlLandscape et l'applique à chaque fois que je lance l'impression,alors que je voudrais que cette orientation s'applique à un certain nombre de feuille et pour un autre de feuille l'orientation xlportrait;voici ma macro:

Sub Print1()
'
' Print1 Macro
'
On Error Resume Next
If ActiveSheet.Name = "Fichier_Débiteur" Or ActiveSheet.Name = "Fichier_Créancier" Then
Range("A7:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [A:A].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 11)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("A7:A").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "Fichier_Représentant" Then
Range("A7:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [A:A].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 9)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("A7:A").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "Fichier_Mission" Then
Range("A7:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [A:A].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 6)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("A7:A").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "JAL_AN" Or ActiveSheet.Name = "JAL_OD" Then
Range("B12:B").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [B:B].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 11)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("B12:B").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "Gestion_Débiteur" Then
Range("B10:B").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [B:B].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 13)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("B10:B").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "Gestion_Créancier" Then
Range("B10:B").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [B:B].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 14)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("B10:B").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "Gestion_Caisse" Or ActiveSheet.Name = "Gestion_Banque" Then
Range("B10:B").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [B:B].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 11)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("B10:B").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "Prèlévement 10%_verso" Or ActiveSheet.Name = "Balance_générale" Or ActiveSheet.Name = Feuil11 Then
ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Else
If ActiveSheet.Name = "Balance_Débiteur" Or ActiveSheet.Name = "Balance_Créancier" Then
Range("B12:B").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
lignefin = [B:B].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 8)).Address
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Range("B12:B").EntireRow.Hidden = False
Else
If ActiveSheet.Name = "Acceuil" Or ActiveSheet.Name = Feuil21 Or ActiveSheet.Name = "FIRD" Or ActiveSheet.Name = "TVA" Or "Prèlévement 10%_recto" Or ActiveSheet.Name = "TSE" Or ActiveSheet.Name = "AIRSI" Or ActiveSheet.Name = "OD TVA" Then
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = [A1].CurrentRegion.Address
ActiveSheet.PrintPreview 'ou ActiveSheet.PrintPreview
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

veuillez m'aidez s'il vous plait.