De/Selection de feuillets

onyryc · 23 Novembre 2005

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 · 23 Novembre 2005

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

onyryc · 23 Novembre 2005

merci pour cette reponse rapide j'essaye ca

De/Selection de feuillets

onyryc

Guest

sousou

XLDnaute Barbatruc

onyryc

Guest

Discussions similaires