Suppression

soenda

XLDnaute Accro

• 19 Mai 2010

• #2

Re : Suppression

Bonjour le fil, activeforce

Puisque seule, la page 1 semble concernée :

Code:

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

A plus

 

Vote positif 0 Vote négatif

activeforce

XLDnaute Occasionnel

• 20 Mai 2010

• #3

Re : Suppression

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 21 Mai 2010

• #4

Re : Suppression

Bonjour le fil, activeforce

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

Code:

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

A plus

 

Vote positif 0 Vote négatif

M

mercant76

XLDnaute Impliqué

• 21 Mai 2010

• #5

Re : Suppression

bonjour,

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

@+

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 22 Mai 2010

• #6

Re : Suppression

Bonsoir le fil, activeforce, mercant76

Bien vu, mercant76 😉

A plus

 

Vote positif 0 Vote négatif

activeforce

XLDnaute Occasionnel

• 25 Mai 2010

• #7

Re : Suppression

Merci à tous

 

Vote positif 0 Vote négatif