Supprimer tous les onglets sauf le premier

arthurho · 12 Décembre 2011

Bonjour

J'ai réalisé la macro excel suivante, qui est supposé me supprimer tous les onglets sauf le premier

Code:

Sub SupprimerOnglets()
Dim sh As Worksheets
    'Supprimer les onglets du fichier sélectionné sauf le premier'
    For Each sh In Sheets
        If sh.Name <> "Feuil1" Or sh.Name <> "Query1" Then
        
            sh.Delete
        End If
    Next
End Sub

Malheureusement, j'ai une incompatibilité de type en entrant dans le for each

Savez vous ou est l'erreur ?

Cordialement,

Arthur HO.

pierrejean · 12 Décembre 2011

Re : Supprimer tous les onglets sauf le premier

Bonsoir Arthur

Edit: Salut Jean-Marcel

2 erreurs a corriger:

1) Dim sh As Worksheet et non Dim sh As Worksheets (Worksheets= collection de feuilles Worksheets= feuille)
2) If sh.Name <> "Feuil1" And sh.Name <> "Query1" Then et non If sh.Name <> "Feuil1" Or sh.Name <> "Query1" Then
Avec le Or toutes les feuilles seront effacées quel que soit le sh il sera forcement different de Feuil1 ou different de Query1 puisque Feuil1 est different de Query1

arthurho · 13 Décembre 2011

Re : Supprimer tous les onglets sauf le premier

Ca fonctionne, merci à vous deux.

Supprimer tous les onglets sauf le premier

arthurho

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

arthurho

Guest

Discussions similaires

Supprimer tous les onglets sauf le premier

arthurho

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

arthurho

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency