Code renvoyer a la ligne automatiquement

Bon matin à tous. Est possible d'avoir le bon code pour forcer le retour à la ligne des cellules contenu dans la colonne G pour la macro 2 et macro 3 (impression SLambert et SRoy). Je désire la ligne de code juste avant le code d'impression. Merci de votre aide. Dany

Bonjour

Il faut modifier l'ordre de tes opérations avant d'imprimer

  • Tri
  • Ajustage des lignes
  • Filtre
  • Impression
  • Suppression du filtre
  • Tri
  • Ajustage des lignes

Pour la macro de Sebastien

Sub Impression_SebastienR()
' Impression_Sebastien Roy feuille 1 et trie de la colonne F ordre croissant
    Range("A2:I100").Sort Key1:=Range("F1"), Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers
    Rows.AutoFit
    ActiveSheet.Range("$A$1:$AD$819").AutoFilter Field:=8, Criteria1:="Sebastien Roy"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
    ActiveSheet.Range("$A$1:$AD$819").AutoFilter Field:=8
    Range("A2:I100").Sort Key1:=Range("A1"), Order1:=xlAscending, DataOption1:=xlSortTextAsNumbers
    Rows.AutoFit
End Sub

Je te laisse faire pour les autres

Excellent c'est exatement cela. Merci Dany

Rechercher des sujets similaires à "code renvoyer ligne automatiquement"