Déclarations de variable groupe d'onglets
Résolu
Benoit69005
Messages postés
33
Statut
Membre
-
f894009 Messages postés 17413 Statut Membre -
f894009 Messages postés 17413 Statut Membre -
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
A voir également:
- Déclarations de variable groupe d'onglets
- Comment créer un groupe whatsapp - Guide
- Sous groupe whatsapp - Accueil - WhatsApp
- Restaurer les onglets chrome - Guide
- Créer un groupe facebook - Guide
- Groupe d'onglet chrome - Guide
1 réponse
Bonjour,
Toutes les feuilles du groupe doivent etre visibles pour masquer le groupe.
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
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
Dim Groupe1 as Variant, mais il l'est par defaut
ubound surligné
Avec quel code?? Vu que chez moi, avec ce que j'ai mis a dispo, ca marche!!!!!!!!!!!!!!!!!
Vous pouvez mettre votre fichier, avec le code, a dispo sans donnees confidentielles
site de partage: https://mon-partage.fr/