Delete feuille selon son nom

Bonjour Excel Pratique !

N'ayant pas trouvé satisfaction après quelques recherches, je sollicite une fois de plus votre aide, pour un petit bout de code de rien du tout, mais qui pose problème à mes petites connaissances en VBA.

Je cherche à créer une fonction que je lie à un bouton, qui supprime les feuilles de mon classeur dont le nom contient le fragment de mot "Sem".

J'ai écris ce code, qui naturellement ne fonctionne pas :

Sub delete_feuilles_sem()
 Dim Feuille As Worksheet
    For Each Feuille In Worksheets
    If InStr(Feuille.Name, "Sem") = 1 Then
    Feuille.Delete
    End If
    Next Feuille
End Sub

Where is the problem please ?

J'aimerais également faire la même fonction, mais pour imprimer les feuilles dont le nom contient le fragment "sem". Quel est le bout de code à changer pour obtenir ce résultat ?

D'avance merci

Bonjour

J'ai testé avec les feuilles "C'est la semaine" et "Semaine 18" cela fonctionne

Sub delete_feuilles_sem()
 Dim Feuille As Worksheet
    For Each Feuille In Worksheets
    If InStr(1, Feuille.Name, "Sem", vbTextCompare) > 0 Then
    MsgBox "coucou"
    'Feuille.Delete
    End If
    Next Feuille
End Sub

Même raisonnement pour imprimer

Bonjour,

Where is the problem please ?

Essaie en supprimant -1 de ton code

Cordialement,

Edit : re-bonsoir Banzai64

Merci pour vos réponses !

Il reste un petit soucis à régler : à chaque suppression, j'ai un joli message d'alerte comme quoi des données pourraient être perdues etc...

Comment faire pour qu'il ne s'affiche pas ?

bonjour

bonjour Sébastien

essayes

Application.DisplayAlerts = False

Si tu as d'autres traitements dans la macro n'oublies pas de remettre à True

Sinon si tu sors de la macro je pense qu'ils sont remis d'office

Voila :

Sub delete_feuilles_sem()
    For Each Feuille In Sheets
        If InStr(Feuille.Name, "Sem") Then
            Application.DisplayAlerts = False
            Feuille.Delete
            Application.DisplayAlerts = True
        End If
    Next
End Sub

Edit : pas assez rapide

Parfait !

Merci beaucoup à tous les deux