Déclarations de variable groupe d'onglets

Résolu
Benoit69005 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 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
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Benoit69005 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Benoit69005 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
De plus, quand je lance votre code, j'ai un message d'erreur : "erreur de compilation, tableau attendu" avec ubound surligné
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

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!!!!!!!!!!!!!!!!!
0
Benoit69005 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai copier/coller tout votre code.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Vous pouvez mettre votre fichier, avec le code, a dispo sans donnees confidentielles

site de partage: https://mon-partage.fr/
0

Discussions similaires

Idée de déguisement pour 4 personnes
mbc29 -
TwaregSi -

18 réponses
vérifiez la variable d'environnement TEMP
erwan38 -
F4 -

72 réponses
Je Recherche un groupe de 4 personnes
Simple -
Peter Smith -

14 réponses
Envoi sms à plusieurs contacts sans passer par un groupe
guynemer95 -
guynemer95 -

8 réponses