XL 2019 Suppression par les left ou right excel vba

DJISA

XLDnaute Occasionnel
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
 
Solution
Bonsoir le fil, DJISA

•>DJISA
VB:
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

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, DJISA

•>DJISA
VB:
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
 

Discussions similaires

Réponses
2
Affichages
554

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof