Sujet Précédent Sujet Suivant

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

1 réponse

Réponse 1 / 1
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 742
 
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