[RESOLU]Lignes du haut à répéter variables

[cathodique]

Bonsoir,

Pour avoir les lignes du haut sur toutes les pages, sachant que le nombre de lignes est variable.

J'ai utilisé l'enregistreur de ma macro et essayer de l'adapter sans succès.

dlg = Activesheet.Cells(.Rows.Count, 2).End(xlUp).Row
        
       ' entete impression
       With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$11"
        .PrintTitleColumns = ""
    End With

J'ai remplacé par ceci:".PrintTitleRows = "$1:$dlg" mais plante sur cette ligne.

message d'erreur: impossible de définir la propriété de PrintTitleRows de la classe PageSetup.

En vous remerciant par avanve.

 

[Papou-net]

Re : Lignes du haut à répéter variables

Bonsoir,

Pour avoir les lignes du haut sur toutes les pages, sachant que le nombre de lignes est variable.

J'ai utilisé l'enregistreur de ma macro et essayer de l'adapter sans succès.

dlg = Activesheet.Cells(.Rows.Count, 2).End(xlUp).Row
        
       ' entete impression
       With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$11"
        .PrintTitleColumns = ""
    End With

J'ai remplacé par ceci:".PrintTitleRows = "$1:$dlg" mais plante sur cette ligne.

message d'erreur: impossible de définir la propriété de PrintTitleRows de la classe PageSetup.

En vous remerciant par avanve.

Bonsoir cathodique,

Erreur de syntaxe. La variable dlg ne doit pas être inclue entre les parenthèses:

.PrintTitleRows = "$1:$" & dlg

De plus, la présence des $ (ajoutés par l'enregistreur) n'est pas indispensable.

A +

Cordialement.

 

[cathodique]

Re : Lignes du haut à répéter variables

Bonsoir Papou-net,

C'est impeccable. Merci beaucoup.

Bonne fin de semaine et bon week-end.