Chercher une feuille Excel

Question

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

gbinforme · Answer

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

Chercher une feuille Excel

1 réponse

Votre réponse

Discussions similaires

Newsletters