Déclarations de variable groupe d'onglets

Résolu/Fermé

Benoit69005 Messages postés 31 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 31 mars 2025 - 9 août 2019 à 02:13
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 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

A voir également:

Déclarations de variable groupe d'onglets
Comment créer un groupe whatsapp - Guide
Sous groupe whatsapp - Accueil - WhatsApp
Restaurer onglets chrome - Guide
Comment créer un groupe sur facebook - Guide
Mail groupé - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
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

Benoit69005 Messages postés 31 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 31 mars 2025
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

Benoit69005 Messages postés 31 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 31 mars 2025
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é

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
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!!!!!!!!!!!!!!!!!

Benoit69005 Messages postés 31 Date d'inscription vendredi 9 août 2019 Statut Membre Dernière intervention 31 mars 2025
9 août 2019 à 11:05

J'ai copier/coller tout votre code.

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
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/

Discussions similaires

Idée de déguisement pour 4 personnes

Bonjour !
Nous sommes quatre élèves de terminale et nous n'arrivons pas à trouver un déguisement de groupe pour l'occasion de notre dernier jour de cours.
Nous aimerons marquer le coup car cela fait 7 ans que nous sommes dans ce bâtiment !
Avez vous des idées originales à nous proposer ?
Merci d'avance .... :)

vérifiez la variable d'environnement TEMP

Bonjour,
J'ai aussi le problème de ce message à chaque fois que je veux ouvrir Word 2007 version "Office Famille et Etudiant 2007 "
Utilisation de Windows XP SP2 , avec les mises à jour régulières ...

Lorsque je clique sur un fichier .doc pour l'ouvrir :
1- la fenêtre jaune de Office Word 2007 s'ouvre, puis une fenêtre m'annonce : "impossible de créer le fichier de travail . Vérifiez la variable d'environnement TEMP " je clique sur OK
2- Le cadre de Word s'installe à l'écran puis, de nouveau, la même fenêtre , avec le même message concernant le dossier TEMP .
De nouveau je clique sur OK et à ce moment là mon fichier demandé est affiché !
3- P...

Je Recherche un groupe de 4 personnes

Bonjour à tous, alors moi je ne retrouve plus le nom d'un groupe de Pop/rock des années 90 composé de 4 garcons, Surement des americains
Genre Simple Minds et que l'un de leur clip, le chanteur se promene avec une couronne et une robe ( habillé en prince ) un peu partout ... dans la neige, dans l'herbe etc

Merci bcp si vous retrouvez le groupe !!!

instagram comment supprimer un groupe que l on a crée

Bonjour, comment fait on pour supprimer un groupe que l on n a creer sur instagram

Configuration: iPhone / Chrome 38.0.2125.102