Chercher une feuille Excel

RG33 Messages postés 3 Statut Membre -  
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
    0