Créer la liste des onglets avec une cellule de référence

  • Initiateur de la discussion Initiateur de la discussion TheLio
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

TheLio

XLDnaute Accro
Bonjour à tous, bonjour le forum,
"Long time no see"
Voici ma question :
J'obtiens la liste des onglets de mon classeur ainsi :

1) Insertion/Noms/Définir : NFEUIL=LIRE.CLASSEUR(1)
2) Je sélectionne une plage de celules
3) Dans la barre de formule :
=TRANSPOSE(STXT(NFEUIL;TROUVE("]";NFEUIL)+1;255))
Maintenant, j'aimerai obtenir certaines de valeurs de cellules pour chaque feuilles de la liste et là, je bloque...

Je peux essayer de démontrer ceci sur un classeur vierge, mais celui sur lequel je travail est malheureusement trop confidentiel.

Merci d'avance pour vos lumières

Bises et poignées de mains

Lionel
 
Re : Créer la liste des onglets avec une cellule de référence

Salut Lionel 🙂

Il y avait effectivement un bout de temps 🙁

Pas certain de comprendre ce que tu veux faire ... vois du côté de la fonction INDIRECT ... si ce n'est pas ce que tu cherches, pas besoin de ton vrai fichier: juste un exemple simplifié!
 
Re : Créer la liste des onglets avec une cellule de référence

Bonjour Job, Modeste, le Forum,
Merci pour tout, c'est absolument génial !!!
Une fois de plus le forum et ses acteurs sont au-dessus de toutes espérances
A tout bientôt
Lionel
 
Re : Créer la liste des onglets avec une cellule de référence

Bonjour Lionel, Modeste, le forum,

Avec cette fonction VBA plus aucun problème avec les valeurs zéros :

Code:
Function MesCellules(ref$, VecteurVertical As Range)
Application.Volatile
Dim a(), wc&, n&
ReDim a(1 To VecteurVertical.Count + 1, 1 To 1) 'au moins 2 éléments
wc = Worksheets.Count
For n = 1 To UBound(a)
  If n > wc Then a(n, 1) = "" Else a(n, 1) = Worksheets(n).Range(ref)
Next
MesCellules = a
End Function
Fichier joint.

A+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour