XL 2019 Suppression par les left ou right excel vba

DJISA · 26 Mars 2020

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

Staple1600 · 26 Mars 2020

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 · 26 Mars 2020

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

DJISA · 27 Mars 2020

Bonsoir Staple1600, le forum
Merci pour le coup de pouce. Le code fonctionne.
DJISA

XL 2019 Suppression par les left ou right excel vba

DJISA

XLDnaute Occasionnel

Staple1600

Staple1600

XLDnaute Barbatruc

DJISA

XLDnaute Occasionnel

Discussions similaires

XL 2019 Suppression par les left ou right excel vba

DJISA

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

DJISA

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency