Déclarations de variable groupe d'onglets
Résolu
Benoit69005
Messages postés
33
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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-
Bonjour F894009,
Merci pour votre réponse. Mon niveau de VBA n'étant pas exceptionnel, je n'ai pas forcément compris votre code. Mon problème est surtout de pouvoir créer une variable composée de plusieurs feuilles.
" Groupe1 = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")" de votre code créé cette variable ?
ne doit-on pas la définir avant ?
type Dim Groupe1 = ????
Merci d'accorder de votre temps -
-
-
-
Re,
Vous pouvez mettre votre fichier, avec le code, a dispo sans donnees confidentielles
site de partage: https://mon-partage.fr/
-
