Chercher une feuille Excel

RG33 -  
Bonjour,

J'ai dans un fichier un certain nombre d'onglets et je souhaiterais supprimer de manière automatique (VBA) tous ceux commençant par "Feuil".

Quel est le code permettant de vérifier si un nom contient un texte?

Merci
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. gbinforme Contributeur
    bonjour

    Cette procédure dans thisworbook devrait le faire 
    Private Sub Workbook_SheetActivate(ByVal a_sh As Object)
Dim sh As Worksheet

For Each sh In Sheets
    If Left(sh.Name, 5) = "Feuil" Then
        Application.DisplayAlerts = False
        sh.Delete
        Application.DisplayAlerts = True
    End If
Next sh
End Sub