XL 2016 VBA - Impression - problème lignes et colonnes

[Olivierporcinet]

Bonjour,

Lors de l'impression, les largeurs et hauteurs de colonnes ne sont pas respectées.

Je suis obligé de "renvoyer à la ligne automatiquement".

Comment faire ?

D'autres programmations possibles ?

Merci.

 

[TooFatBoy]

Effectivement, c'est généralement ce l'on fait : une feuille, que l'on met au bon format une fois pour toutes, dans laquelle on copie les données à imprimer.

Voir l'exemple en pièce jointe, utilisant la macro suivante :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'
Dim MaPlage As Range

    If Left(Sh.CodeName, 5) <> "Feuil" Then Exit Sub
    If Target.Row <> 2 Then Exit Sub
    If Target.Column < 2 Or Target.Column > 7 Then Exit Sub
    Cancel = True

    Set MaPlage = Sh.Range("A3:A20").Offset(0, Target.Column - 1)

    Application.ScreenUpdating = False
    Range("t_OM[Travail]").Value2 = MaPlage.Value2
    Sheets("OM").PrintPreview

End Sub

Un double-clic sur un prénom rempli le tableau de l'ordre de mission et affiche l'aperçu avant impression.
Dans ce code il faudrait ajouter la mise à jour de la date dans le texte de l'ordre de mission, et probablement faire d'autres ajustements.