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

[TheLio]

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

 

[Modeste]

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é!

 

[job75]

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

Bonsoir Lionel, heureux de te revoir, salut Modeste,

Voir le fichier joint.

Avec le calcul matriciel il faut parfois utiliser les fonctions T() ou N().

A+

 

[job75]

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

Re,

Un essai dans ce fichier (2) avec des valeurs textes et des valeurs nombres.

Il y a sans doute plus simple.

Bonne nuit.

 

[TheLio]

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

 

[job75]

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 :

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+

 

[TheLio]

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

Merci job75 ;-)
Parfait comme d'hab'
@++
Lionel