Suppression

[activeforce]

Bonjour,

J'aimerais supprimer les éléments situés en bas de page.
Ci-joint le fichier en question.

Merci.

 

[soenda]

Re : Suppression

Bonjour le fil, activeforce

Puisque seule, la page 1 semble concernée :

Sub b()
    With Range([A1].End(xlDown)(2), [T44])
        .ClearContents
        .Borders.LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlContinuous
    End With
End Sub

A plus

 

[activeforce]

Re : Suppression

Je me suis fait mal comprendre.
C'est le nom, prénom page et date que j'aimerais supprimer.

 

[soenda]

Re : Suppression

Bonjour le fil, activeforce

Pour supprimer les Pieds de page (nom, prénom page et date ) de la feuille active:

    With ActiveSheet.PageSetup
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With

A plus

 

[mercant76]

Re : Suppression

bonjour,

manuellement, tu fais Aperçu/Page/Pied de page et tu sélectionnes (Aucun) puis OK.

@+

 

[soenda]

Re : Suppression

Bonsoir le fil, activeforce, mercant76

Bien vu, mercant76

A plus

 

[activeforce]

Re : Suppression

Merci à tous