Concaténer plusieurs cellules de plusieurs feuilles

Bonjour à tous

Je viens de créer un fichier avec environ 95 onglets.

Chaque onglet comporte 4 cellules que je souhaite rapatrier dans une seule feuille mais dans plusieurs cellules.

Ce n'est pas très clair comme cela alors voici un exemple en pièce jointe.

J'ai essayé la fonction INDIRECT mais le nom de mes feuilles ne me permets pas de l'utiliser de manière automatisée.

Auriez-vous, s'il vous plait, une solution à me donner?

Merci par avance,

Pierre

31exemple.xlsx (118.76 Ko)

Bonjour

Le Code dans le Module1 associé au bouton édite la liste des feuilles, à partir de la seconde dans la colonne P

Sub ListeOnglets()
    Range("P1").Select
    ActiveCell.Value = "Liste des Feuilles"
    For i = 2 To Worksheets.Count
         [P1].Offset(i - 1, 0).Value = Worksheets(i).Name
    Next i
End Sub

Ensuite la fonction INDIRECT fait le reste

ex en K2

=INDIRECT("'"&$P2&"'!A3")

Cordialement

53exemple-1.zip (86.24 Ko)

Merci pour votre aide ainsi que pour votre réponse

cependant je ne souhaite pas modifier le nom des feuilles...

Bonjour

cependant je ne souhaite pas modifier le nom des feuilles.

Je ne comprends pas ta remarque. Aucun nom de feuille n'est modifié.

Cordialement

Ha d'accord.

Merci je viens de comprendre. J'avais interprété "édite" comme "modifie" et non pas "liste"

Je viens de tester et cela fonctionne

merci pour votre précieuse aide

Bonne journée

Pierre

Rechercher des sujets similaires à "concatener feuilles"