Bonsoir le Forum
Nous voudrions savoir si on peut supprimer des feuilles en utilisant les fonctions left ou right en vba.
Si cela est possible, quel code je peux utiliser pour supprimer, excepté la feuille "mod_CLA", les feuilles
"3ACLA", "3BCLA", "4ACLA"?
Merci
DJISA
Sub Test_OK()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If InStr(1, ws.Name, "CLA", vbTextCompare) > 0 Then
If Not ws.Name Like "mod_CLA" Then
ws.Delete
End If
End If
Next
End Sub
Sub Test_OK()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If InStr(1, ws.Name, "CLA", vbTextCompare) > 0 Then
If Not ws.Name Like "mod_CLA" Then
ws.Delete
End If
End If
Next
End Sub