Trié avec cellule fusionnée

myjidu35 à dit:

(...) Sur la cellule I8 on remarque que j'ai la cellule avec deux lignes, seulement la taille de la cellule ne s’adapte pas automatiquement (...)

Cliquez pour agrandir...

myjidu35 à dit:

(...) je voudrais pouvoir imprimer la semaine sélectionnée sur un format A4, cependant je n'arrive pas à l'adapter correctement. (...)

Cliquez pour agrandir...

Sub Apercu()
Dim xrg As Range

With Sheets("Travaux de la semaine")
  Set xrg = .Range("A" & Rows.Count).End(xlUp)
  Set xrg = Range("D1:J" & xrg.Row)
  
  .PageSetup.PrintArea = xrg.Address
  Application.PrintCommunication = False
  With .PageSetup
      .CenterHorizontally = True
      .CenterVertically = False
      .Orientation = xlPortrait
      .FitToPagesWide = 1
      .FitToPagesTall = 1
  End With
  Application.PrintCommunication = True
  .PrintPreview
End With
End Sub

mapomme à dit:

(re)


Voir le code suivant dans le module de la feuille "Travaux de la semaine":

VB:

Sub Apercu()
Dim xrg As Range

With Sheets("Travaux de la semaine")
  Set xrg = .Range("A" & Rows.Count).End(xlUp)
  Set xrg = Range("D1:J" & xrg.Row)
  
  .PageSetup.PrintArea = xrg.Address
  Application.PrintCommunication = False
  With .PageSetup
      .CenterHorizontally = True
      .CenterVertically = False
      .Orientation = xlPortrait
      .FitToPagesWide = 1
      .FitToPagesTall = 1
  End With
  Application.PrintCommunication = True
  .PrintPreview
End With
End Sub

Cliquez pour agrandir...

myjidu35 à dit:

En ce qui concerne le code ci dessous j'ai ce défaut qui apparait sous excel 2007:
Propriété ou méthode non gérée par cet objet.

Cliquez pour agrandir...

myjidu35 à dit:

En ce qui concerne l'ajustement auto des cellule j'ai pas tout compris

Cliquez pour agrandir...