suppression conditionnelle de page

Serghei · 4 Octobre 2004

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 · 4 Octobre 2004

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 · 4 Octobre 2004

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 · 4 Octobre 2004

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 · 4 Octobre 2004

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

suppression conditionnelle de page

Serghei

Guest

CHti160

Guest

Pièces jointes

Serghei

Guest

jef

Guest

Serghei

Guest

Discussions similaires