Appeler un groupe d'onglets

Résolu/Fermé
geo3701 Messages postés 58 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 8 août 2017 - 16 avril 2013 à 11:31
geo3701 Messages postés 58 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 8 août 2017 - 17 avril 2013 à 09:16
Bonjour,

Je suis nouveau sur le forum.

J'ai un fichier Excel avec plusieurs onglets. Je voudrais créer sous vba un groupe où sont inscrits que certains de ces onglets permettant un appel avec for each.

je voudrais ensuite que ce groupe d'onglet soit publique et donc utilisable dans toutes mes macros

pour l'instant je procède via une petite macro qui ne fonctionne pas


Public onglets As Variant
Sub xxxx()

onglets = Array("b", "c", "d", "e", "f")

End Sub

3 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
Modifié par pilas31 le 16/04/2013 à 18:17
Bonjour,

Voici un exemple simple :

Dim Onglet As Worksheet 
Dim groupe_Onglet As New Collection 

groupe_Onglet.Add Sheets("Feuil2") 
groupe_Onglet.Add Sheets("Feuil4") 

For Each Onglet In groupe_Onglet 
    Onglet.Select 
    MsgBox Onglet.Name 
    MsgBox Onglet.Cells(1, 1) 
Next Onglet


C'est la création d'une collection de feuilles.
On peut choisir les feuilles à mettre dans la collection avec la syntaxe .Add
Ensuite chaque membre de la collection dans la boucle peut être utilisé comme une feuille du classeur. Ici on sélectionne la feuille, on affiche son nom puis on affiche la valeur de la cellule A1

A+

Cordialement,
0
geo3701 Messages postés 58 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 8 août 2017 1
17 avril 2013 à 08:21
Merci beaucoup
Je voudrais faire ceci:
J'ai plusieurs macros dans un même module que je dois tester et je voudrais ne pas avoir à appeler dans chaque macro cette macro que vous m'avez fait précédement.

Comment faire?

Merci d'avance =)
0
geo3701 Messages postés 58 Date d'inscription mardi 16 avril 2013 Statut Membre Dernière intervention 8 août 2017 1
17 avril 2013 à 09:16
C'est bon j'ai trouvé.
à mettre dans "thisworkbook" dans la fenetre gauche de la fenetre de code, dossier "microsoft excel objects"
0