appeler un groupe d'onglets Résolu/Fermé

Question

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

pilas31 · Answer

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,

geo3701 · Answer

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 =)

geo3701 · Answer

C'est bon j'ai trouvé.
à mettre dans "thisworkbook" dans la fenetre gauche de la fenetre de code, dossier "microsoft excel objects"

Appeler un groupe d'onglets

3 réponses

Discussions similaires