XL 2010 Recherche des noms dans plusieurs onglets

[Starnour]

Bonjour;
si vous me permettiez j'ai voulu rechercher les noms de ma feuille "liste" dans les onglets "feuille1 au feuille2.
quelle est la formule que je dois l'utiliser?.
Cordialement...

 

[sylvanu]

Chez moi, les cellules sont pleines.

 

[Starnour]

Bonjour,
Essayes de voir ces images...en appuyant sur la cellule je peux voir la formule mais la case est vide!!!
surement il y'a quelque chose qui manque chez moi!!!
Cordialement...

 

[sylvanu]

Vous ne seriez pas en calcul manuel ?
Essayez de faire calculer maintenant.
Sinon je ne vois pas comment une formule ne s' effectuerait pas.

 

[sylvanu]

En cherchant un peu j'ai peut être trouvé.
NOMFEUILLE est associé à la bibliothèque Morefunc, peut être est elle désactivée chez vous.
Faites Options Excel / Compléments / Atteindre
et vérifier que cette bibliothèque est cochée :

Si elle n'apparait pas, ce qui m'étonnerait, alors téléchargez là :

MOREFUNC (Macro complémentaire EXCEL)

www.commentcamarche.net

 

[Starnour]

essayes de voir aussi ceci

 

[sylvanu]

Si Z2:Z37 est vide alors Liste est vide. Le problème est la non reconnaissance de NOMFEUILLE. Voir post #19.

 

[sylvanu]

En PJ une autre méthode par macro.
pour lancer la macro il suffit d'appuyer sur le bouton orange nommé Feuilles.

Sub Nomfeuilles()
Dim N%, Sh
Range("Z2:Z37").ClearContents
N = 2
For Each Sh In Worksheets
If LCase(Sh.Name) <> "liste" Then
    Cells(N, "Z") = Sh.Name
    N = N + 1
End If
Next Sh
End Sub

 

[sylvanu]

Svp ,lisez mes post.
Au post 19 je vous donne le lien pour le télécharger.

 

[Starnour]

Si j'insère une colonne en A nommé "N°"
que sera ce code:

VB:
Sub Nomfeuilles()
Dim N%, Sh
Range("Z2:Z37").ClearContents
N = 2
For Each Sh In Worksheets
If LCase(Sh.Name) <> "liste" Then
Cells(N, "Z") = Sh.Name
N = N + 1
End If
Next Sh
End Sub

Cordialement...

 

[sylvanu]

Installez Morefunc. Ce sera plus simple.
Question : Pourquoi ne pas l'avoir installé, ou tout du moins essayé ?

Sinon pour être universel il faut que la liste se trouve en colonne A. Comme ça l'insertion des colonnes ne pose plus de problème.

 

[Starnour]

Apres l'installation voilà ce qui est affiché:

 

[sylvanu]

Ce lien n'existe plus

 

[job75]

Bonjour Starnour, Dugenou, sylvanu,

Je vois qu'on n'a pas encore utilisé la fonction macro Excel 4.0 LIRE.CLASSEUR(1).

Elle renvoie la liste des noms des feuilles.

Voyez le fichier .xlsm joint et la formule en F1 à tirer vers la droite :

=SIERREUR(STXT(INDEX(Liste;COLONNE()-4);TROUVE("]";INDEX(Liste;COLONNE()-4))+1;31);"")

Formule en F2 à tirer vers la droite et vers le bas :

=SIERREUR(NB.SI(INDIRECT("'"&F$1&"'!$A:$A");$A2);"")

A+

 

[Starnour]

Installez Morefunc. Ce sera plus simple.
Question : Pourquoi ne pas l'avoir installé, ou tout du moins essayé ?

Sinon pour être universel il faut que la liste se trouve en colonne A. Comme ça l'insertion des colonnes ne pose plus de problème.

Salut,
Est-ce que ça peut-être que l'extension du fichier est "xlsx" qui a permis aux cellules d'être vides.
Cordialement...