Bonjour,
Je cherche à sélectionner dans un classeur toute les feuilles SAUF certaines. Et je n'y arrive pas. Je me doute qu'il faudrait utiliser Sheets(Array...).Select mais je ne suis pas à l'aise avec le maniement des tableaux et donc je n'ai pas réussi.
Si je veux faire exécuter une procédure sur toutes les feuilles sauf certaines je fais d'habitude ceci:
(exemple pour imprimer chaque feuille séparément avec ses propres critère d'impression)
Admettons que je veuille exporter les Feuilles dans un seul fichier PDF contenant toutes les feuilles SAUF certaines dont je renseigne le nom. Il faut donc que je sélectionne une partie des feuilles seulement et je n'arrive pas à écrire le code... J'ai essayer de remplir une variable tableau à une dimension avec le nom de chaque feuille et de repasser ensuite ça dans Sheets(Array... et toutes sortes d'autres tentatives qui n'ont jamais rien donné!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 For Each sh In Worksheets sh.Activate Dim n As String n = sh.Name If n <> "Eleves" _ And n <> "Modèle" _ And n <> "ModèleDébut" _ And n <> "ModèleFin" _ And n <> "Bilan2" _ And n <> "Nom d'une feuille à exclure" Then sh.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End If Next sh
Alors merci de votre aide, si quelqu'un a une idée du petit code qui ferait l'affaire.
Vincent
Partager