Sujet Précédent Sujet Suivant

Déclarations de variable groupe d'onglets

Résolu/Fermé
Benoit69005 Messages postés 29 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 23 janvier 2024 - 9 août 2019 à 02:13
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 28 janv. 2020 à 07:02
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

1 réponse

Réponse 1 / 1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 août 2019 à 07:33
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 29 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 23 janvier 2024
9 août 2019 à 08:34
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 29 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 23 janvier 2024
9 août 2019 à 08:37
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 août 2019 à 10:59
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 29 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 23 janvier 2024
9 août 2019 à 11:05
J'ai copier/coller tout votre code.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
9 août 2019 à 11:59
Re,

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

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

Discussions similaires

programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
comment animer une soirée avec 30 personnes à table ?
sofi -
Nolly94 -

1 réponse
réseau du groupe
rt2g4 -
brupala -

3 réponses
Problème connexion client de stratégie de groupe
b.traven42 -
b.traven42 -

1 réponse