utilisation d'une macro pour editer

[Caulfield]

Bonjour ,
J'utilise Windows 98 ,j'ai un classeur excel comprenant 60 feuilles.
Sur chacune des feuilles il y a des tableaux .
Sur les 60 feuilles seules 35 doivent etre imprimées,ces 35 feuilles ne sont pas systematiquement l'une à la suite de l'autre dans le classeur.
Comment faire ,en utilisant une macro ,pour n'editer que les feuilles selectionnées au préalable soit par un "X" ou autre lettre .
D'avance merci pour votre précieuse aide
Corynne

 

[Robert]

Salut Corynne, salut le forum

Tu pourrais te servir comme tu le dis d'un code d'identification. Dans cette macro j'ai écris "x" dans la cellule A1 des feuilles à imprimer. Adapte-la à tes besoins.

Public Sub imprim()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Range("A1").Value = "x" Then
sh.PrintOut '+les éventuels paramètres
End If
Next sh
End Sub

À plus,

Robert

 

[Caulfield]

Salut Robert,

La macro fonctionne parfaitement.
Mille mercis

A+
Corynne