suppression conditionnelle de page

[Serghei]

Bonjour tout le monde,

J'ai un classeur type qui est destiné à être dupliqué. Ce classeur comporte des pages fixes et d'autres dont j'aimerai pouvoir faire varier le nombre. La partie variable contient 60 pages nommées "001", "002" jusqu'à "060". Je voudrais que le nombre de page corresponde à une valeur (entre 1 et 60 bien sur) que l'utilisateur inscrit dans une cellule contenu dans une page fixe.
L'idéal serait une macro qui supprime les pages inutiles. Est-ce possible docteur ?

J'espère avoir été clair.

Merci pour votre aide.

 

[CHti160]

Salut"Serghei"
un petit exemple en piece jointe on ajoute une feuille n° supérieur à 060
puis ensuite on la supprime
A voir à modifier enfin........à adapter
A+++
Jean Marie

 

[Serghei]

Merci Jean Marie

C'est très joli mais ce n'est pas le résultat que je cherche.
Je m'explique par un exemple : si on tape 45 dans une cellule il faut que les feuilles de '046' à '060' disparaissent.

Serghei

 

[jef]

Salut,
tu peut essayer cette macro a associer a un evenement

Sub evenement
depart = Cells(1, 1).Value 'valeur saisie par l'utilisateur
fin = 60
Application.DisplayAlerts = False ' On ne demande pas confirmation
For i = depart To fin
Sheets("0" & Trim(i)).Delete
Next i
Application.DisplayAlerts = True ' On redemande confirmation...
End Sub

@+
Jef

 

[Serghei]

Merci Jef,

J'ai l'impression que c'est presque ça. Ca plante sur la ligne :
Sheets("0" & Trim(i)).Delete
Excel me dit que l'indice n'appartient pas à la sélection. J'ai aussi essayé "00" et "001"

Question subsidiaire d'un quasi-débutant. Est-ce la même chose dans les formules de nommer les cellules A1 ou 1,1 ?

@+

Serghei