Déclarations de variable groupe d'onglets Résolu

Question

Bonsoir à tous,

Je cherche à créer un nom de variable réutilisable par la suite (afficher des groupes d'onglets ou les masquer). J'ai donc créer une variable et je cherche à la définir en sélectionnant le groupe d'onglets dont j'ai besoin. 
J'ai alors le message :
qualificateur incorrect

Mon code (qui a mon avis,LOL, doit être mal écrit) :

Sub onglets_Groupe1()
Dim Groupe1 As Integer
Dim Groupe2 As Integer

Dim sh As Object

Groupe1 = Sheets(Array("Sommaire (4)", "Mains(4)", "Pieds (4)", _
            "Doigts (4)"))
                                                          
Groupe2 = Sheets(Array("Sommaire (3)", "Mains (3)", "Pieds (3)", _
            "Doigts (3)"))
            
 For Each sh In ThisWorkbook.Worksheets
  With sh.Visible = False
  End With
 Next
 
Set Groupe1.Visible = True
 

         End Sub

Merci par avance pour le coup de main
Benoit

f894009 · Answer

Bonjour,
Toutes les feuilles du groupe doivent etre visibles pour masquer le groupe.
Sub Manip_Feuilles()
    Groupe1 = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")
    'affiche
    For n = 0 To UBound(Groupe1)
        Sheets(Groupe1(n)).Visible = True
    Next n
   'masque
    Sheets(Groupe1).Select
    Sheets(Groupe1).Visible = False
    'affiche
    For n = 0 To UBound(Groupe1)
        Sheets(Groupe1(n)).Visible = True
    Next n
End Sub

Déclarations de variable groupe d'onglets

1 réponse

Discussions similaires

Newsletters