Sélection de feuilles par Macro

Bonjour,
Dans Excel je voudrais sélectionner avec une macro certain onglets d'un classeur en même temps, suivant la liste de noms qui est variable. Les noms sont stockés dans la feuille en Q1 Q2 etc.
Pour ensuite lancer une impression.
Merci d’avance

Bonjour

Pour ajouter un onglet à ceux déjà sélectionnés, tu peux utiliser

Code:

---

worksheets("MonOnglet").select False

---

Ne pas oublier de dégrouper après, ce que tu pourras faire en sélectionnant une seule feuille, sans False...

Je voulais selectionner les onglets avec les valeurs inscrite dans Q1 - Q2 - Q3 etc
avec cette ligne de commande j'ai une erreur

Code:

---

If Range("Q3").Value <> "" Then Worksheets(Range("Q3")).Select False

---

C'est normal.

Tu as intérêt à travailler avec une variable qui pointe vers ta plage de cellules, car Range("q3") se réfère à la feuille active, qui est modifiée dans ton code lors du Select

Code:

---

1 2 3 4 5

Dim Cellule As Range   For Each Cellule In Worksheets("mafeuille").Range("Q1:Q5") Worksheets(Cellule.Value).Select False Next Cellule

---

en adaptant et en vérifiant ce qui doit l'être (existence de la feuille, cellule non vide, ...)

Merci pour cette réponse
Ce code fonctionne très bien si la plage Q1:Q5 est compléte, mais génére une erreur 9 si une cellule de la plage est vide

Citation:

---

Envoyé par Pierre Fauconnier

...en adaptant et en vérifiant ce qui doit l'être (existence de la feuille, cellule non vide, ...)

---

Tu avais toi-même mis une condition dans ton message d'origine, j'ai donc jugé inutile de te la remettre.

Tu dois donc adapter la plage Q1:Q5 en fonction de ton classeur, tester qu'une cellule est remplie et tester également que la feuille existe.

Comme il n'existe pas de fonction intrinsèque du VBA Excel permettant de tester l'existence d'une feuille, je propose de passer par une fonction

Code:

---

1 2 3 4 5 6 7 8 9

Function FeuilleExiste(NomFeuille As String) As Boolean Dim sh As Object For Each sh In Sheets If sh.Name = NomFeuille Then FeuilleExiste = True Exit For End If Next sh End Function

---

Le test via cette fonction te dispense évidemment du test de la cellule vide