Ligne à répéter

Bonjour à tous,

J'ai un fichier excel avec pleins de feuilles dedans.

Sur toutes ces feuilles (SAUF 4), les 5 premières lignes sont identiques.

Je n'imprime que les feuilles qui ont les 5 premières lignes d'identiques.

Sur la 1ère page d'impression, les 5 premières lignes s'impriment mais je souhaiterai pouvoir que sur les pages suivantes la 5ème ligne soit la ligne à répéter en haut comme titre à imprimer.

Pouvez-vous m'indiquer le code VBA à appliquer svp ?

Merci d'avance,

Cordialement,

Jéjé

Hello,

pas sûr d'avoir compris la demande

ActiveSheet.PageSetup.PrintTitleRows = "$1:$5"

NB : vous n'avez pas forcément besoin de VBA, vous savez que dans l'onglet Mise en Page, le bouton Imprimer les titres fait ce qu'il me semble que vous avez besoin ?!

Bonjour,

Cela ne fonctionne pas si je sélectionne plusieurs feuilles en même temps c'est donc pour cela que j'aimerai avoir le code VBA.

J'avais déjà essayé le code que vous me proposez mais cela ne fonctionne pas.

Que ne le disiez vous

Sub Definir_Titre()
    Dim Feuille As Worksheet
    For Each Feuille In ActiveWindow.SelectedSheets
        Feuille.PageSetup.PrintTitleRows = "$1:$5"
    Next Feuille
End Sub

A noter : normalement il faut définir les titres pour chaque feuille

Impeccable c'est exactement ce que je souhaitais, je vous remercie.

jéjé