selectionner une feuille , et supprimée en plus , les deux contigues de droites?

[Evelynetfrancois]

Bonjour le forum
J ai un souci de suppression de feuilles

J ai cette macro qui supprime "LA" feuille que je sélectionne dans la listbox1

Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets(CStr(Me.ListBox1))
WS.Delete

Mais comment faire pour supprimer dans la « volée » les deux feuilles suivantes (Onglets immédiatement à droite de la feuille sélectionnée)
Ce qui ferait 3 feuilles de supprimées en tout, à chaque fois…
J’espère être clair
Merci d’avance pour toutes vos idées ou solutions
Bonne soirée à tous
E et F

 

[chris]

Re : selectionner une feuille , et supprimée en plus , les deux contigues de droites

Bonjour

Une solution parmi d'autres

Dim WS As Worksheet
Dim x as integer

Set WS = ThisWorkbook.Sheets(CStr(Me.ListBox1))
x=WS.index
ThisWorkbook.Sheets(x).delete
ThisWorkbook.Sheets(x).delete
ThisWorkbook.Sheets(x).delete

(

 

[pierrejean]

Re : selectionner une feuille , et supprimée en plus , les deux contigues de droites

Bonjour E & F

A tester:

Sub suppr()
Dim WS As Worksheet
Dim Tablo(2)
Set WS = ThisWorkbook.Sheets(CStr(Me.ListBox1))
Tablo(0) = Sheets(WS.Index).Name
Tablo(1) = Sheets(WS.Index + 1).Name
Tablo(2) = Sheets(WS.Index + 2).Name
Sheets(Tablo).Delete
End Sub

Bises Chris (et Bravo !!! )

 

[Evelynetfrancois]

Re : selectionner une feuille , et supprimée en plus , les deux contigues de droites

bonsoir Chris , bonsoir pierrejean...
merci pour vos propositions et votre disponibilité !!!

la version de chris me va à merveille c'est super !!!
encore merci .............
bonne soirée à tous
E et F