Supprimer la derniere page sauf les 6 premieres

[yakin78]

Bonjour
j'aimerai avec un bouton supprimer une feuille de mon classeur,arrivé à la 6eme feuille interdire la suppression
les 6 premieres feuilles son imperatives pour le fonctionnement de mon classeur
j'ai essayer ce code mais ne fonctionne pas !!

Private Sub suppage_Click()
If Worksheets(Worksheets.Count) > 6 Then
Worksheets(Worksheets.Count).Delete 'Supprime la dernière feuille
Else
MsgBox ("Aucune page à Supprimer !!")
End If
End Sub

merci !!

 

[mapomme]

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour yakin78,

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

If Worksheets.Count > 6 Then devrait suffire

 

[gilbert_RGI]

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

 

[yakin78]

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour yakin78,



If Worksheets.Count > 6 Then devrait suffire

Bonjour et merci ma pomme
j'ai essayer ceci

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 !!

 

[yakin78]

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour

comme ceci peut-être

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 !!

 

[job75]

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour,

Changez de lunettes.

A+

 

[JCGL]

Re : Supprimer la derniere page sauf les 6 premieres

Bonjour à tous,
Salut Gérard,

Peux-tu essayer avec :

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

 

[yakin78]

Re : Supprimer la derniere page sauf les 6 premieres

Merci JCGL

ca marche Nickel !!!

Merci a Tous !!

 

[Si...]

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 !

 

[yakin78]

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 !!

 

[Staple1600]

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

On peut personnaliser les deux

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

 

[DoubleZero]

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 ?

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

 

[yakin78]

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 !!