Supprimer la derniere page sauf les 6 premieres

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Novembre 2013

• #2

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour yakin78,

yakin78 à dit:

(...) If Worksheets(Worksheets.Count) > 6 Then (...)

Cliquez pour agrandir...

If Worksheets.Count > 6 Then devrait suffire

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 3 Novembre 2013

• #3

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour

comme ceci peut-être

Sub suppage_Click()
npage = Worksheets.Count
If npage > 6 Then
For x = 7 To npage
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete 'Supprime la dernière feuille
Next
Application.DisplayAlerts = True
Else
MsgBox ("Aucune page à Supprimer !!")
End If
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Y

yakin78

XLDnaute Junior

• 3 Novembre 2013

• #4

Re : Supprimer la derniere page sauf les 6 premieres

mapomme à dit:

Bonjour yakin78,



If Worksheets.Count > 6 Then devrait suffire

Cliquez pour agrandir...

Bonjour et merci ma pomme
j'ai essayer ceci

Code:

Private Sub suppage_Click()
If Worksheets(Worksheets.Count) > 6 Then
Worksheets(Worksheets.Count).Delete 'Supprime la dernière feuille inutile
End If
End Sub

mais ne fonctionne pas !!

 

Vote positif 0 Vote négatif

Y

yakin78

XLDnaute Junior

• 3 Novembre 2013

• #5

Re : Supprimer la derniere page sauf les 6 premieres

gilbert_RGI à dit:

Bonjour

comme ceci peut-être

Cliquez pour agrandir...

merci gilbert RGI
j'ai essayer ton code ,il effface toutes les pages sauf les 6 premieres ,j'aimerai effacer la derniere page ,à chaque clic de bouton
merci beaucoup !!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Novembre 2013

• #6

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour,

Changez de lunettes.

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Novembre 2013

• #7

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour à tous,
Salut Gérard,

Peux-tu essayer avec :

VB:

Option Explicit
Sub Test()
If Sheets.Count > 6 Then
Application.DisplayAlerts = 0
Sheets(Sheets.Count).Delete
Application.DisplayAlerts = 1
Else
MsgBox ("Aucune page à Supprimer !!")
End If
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

Y

yakin78

XLDnaute Junior

• 3 Novembre 2013

• #8

Re : Supprimer la derniere page sauf les 6 premieres

Merci JCGL

ca marche Nickel !!!

Merci a Tous !!

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 3 Novembre 2013

• #9

Re : Supprimer la derniere page sauf les 6 premieres

salut

les 6 premières soit mais dans quel ordre ? Attention .Name peut-être différent de .CodeName !

 

Vote positif 0 Vote négatif

Y

yakin78

XLDnaute Junior

• 3 Novembre 2013

• #10

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour Si...
je parle du (Name)=Feuil1 à Feuil6 dans l'onglet proprietes et non Name que l'on peut personaliser
Mais c'est bon depuis j'ai eu une reponse favorable de la part de JCGL

merci beaucoup !!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Novembre 2013

• #11

Re : Supprimer la derniere page sauf les 6 premieres

Bonsoir à tous

yakin78

je parle du (Name)=Feuil1 à Feuil6 dans l'onglet proprietes et non Name que l'on peut personaliser

Cliquez pour agrandir...

On peut personnaliser les deux

et on peut aussi déplacer des feuilles, je plussoie donc à la remarque de Si...

 

Pièces jointes

• feuille.png

  2.7 KB · Affichages: 58

Dernière édition: 3 Novembre 2013

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 3 Novembre 2013

• #12

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour, le Fil , le Forum,

Pour éviter de se mordre les doigts, pourquoi ne pas citer les onglets à préserver ?

Code:

Option Explicit
Sub Onglets_supprimer_tous_sauf()
    Dim o As Worksheet
    For Each o In Worksheets
        Application.DisplayAlerts = False
        'Adapter les noms
        If o.Name <> "a" And o.Name <> "b" And o.Name <> "c" And o.Name <> "d" And o.Name <> "e" And o.Name <> "f" Then o.Delete
    Next
    Application.DisplayAlerts = True
End Sub

A bientôt

 

Vote positif 0 Vote négatif

Y

yakin78

XLDnaute Junior

• 3 Novembre 2013

• #13

Re : Supprimer la derniere page sauf les 6 premieres

Oui merci Double Zero
c'est une bonne idée ,je prends !!

et merci a Tous !!

 

Vote positif 0 Vote négatif