Sélection de feuilles par Macro

[Soifranc]

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

[Pierre Fauconnier]

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...

[Soifranc]

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

[Pierre Fauconnier]

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, ...)

[Soifranc]

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

[Pierre Fauconnier]

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