De/Selection de feuillets

O

onyryc

Guest
Bonjour

dans un classeur contenant plusieurs onglet, je souhaite faire une macro selectionnant tous les onglets sauf un.

Avez vous des pistes ? je suis un peu perdu...

j'aimerais selectionner tous les feuillets sans passer par

Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select

ensuite deselectionner un feuillet (le feuillet a deselectionner est variable selon une boite de dialogue existante)

Sheets(Array('Feuil1').Deselect (fonction innexistante)

et supprimer les feuillets toujours selectionnés

SelectedSheets.Delete



J'espere avoir été explicite, merci d'avance ;)
 

sousou

XLDnaute Barbatruc
Bonjour

Voici de quoi t'inspirer pour réaliser tes besoins
Il faut affiner la saisie (majuscule,minuscule) et les messages d'alertes sur la suprresion de feuilles.
La création d'une collection dans ce' cas peut être une solution simple.

Bonne réalisation

Dim liste As New Collection
Sub deb()


mafeuille = InputBox('Nom de la feuille à concerver:')
For Each i In Sheets
If i.Name <> mafeuille Then
liste.Add i
End If
Next
MsgBox liste.Count
For Each i In liste
i.Delete
Next
End Sub