Lister une même cellule de plusieurs feuilles sur une seule

Bonjour,

J'ai un fichier excel qui comporte plusieurs feuilles. Je souhaiterai récupérer une même cellule de toutes les feuilles sur une seule.

Je m'explique.

Dans un même classeur, j'ai une feuille par salarié. Sur chaque feuille, il y a exactement le même tableau avec les chiffres correspondant à chacun.

Je souhaiterai, sur une autre feuille "recap" , lister ligne par ligne les cellules V17 et X17 pour chaque feuille.

Je pourrai faire une formule en notant manuellement le nom de mes feuille pour chaque salarié. Mais je me demandais s'il n'y avait pas une formule qui pourrai recuperer automatiquement les feuilles pour éviter d'en oublier.

Je vous joint une partie de mon fichier afin de vous aider.

J'espère que mes explications sont claires.

Merci d'avance pour votre aide.

Bonjour

J'ai un message d'erreur à l'ouverture du fichier. Peux-tu faire et envoyer un nouvel enregistrement?

Cordialement

j'espère que ça va mieux fonctionner

bonsoir,

Personne n'arrive à résoudre mon problème?

Salut le forum

Avec un bout de code

Sub ListeRecap()
Dim F As Worksheet
Dim Dest As Range

Set Dest = ActiveSheet.Range("A5")
Dest.CurrentRegion.Offset(1).ClearContents

For Each F In Worksheets
  If IsNumeric(F.Name) Then
    Dest = F.Name
    Dest.Offset(, 1) = F.Range("V17")
    Dest.Offset(, 2) = F.Range("X17")
    Set Dest = Dest.Offset(1)
  End If
Next F

Set Dest = Nothing

End Sub

Mytå

Bonjour,

Merci pour ce début de réponse.

Au risque de paraitre nule, comment je fais pour transformer ce code en formule?

Merci d'avance.

Vanessa.

Bonjour

La solution qure Myta a donnée ne se transcrit pas par une formule. c'est un Code Macro en VBA à mettre (copier-coller) dans un Module.

Si tu es allergique à VBA, une solution par formules existe.

Les anciennes Macros-Fonctions XL4 (Excel4) apportent une solution

1) Pour connaître le Nombre de Feuilles du Classeur

Nommer NB_Feuilles la formule

=LIRE.CLASSEUR(4)

2) Pour obtenir la liste des Feuilles (sans en oublier aucune!!)

Nommer Nom_Feuilles la formule

=LIRE.CLASSEUR(1)

Dans une cellule, dans l'exemple de ton fichier (En A5 de Feuil15) entrer la formule

=TRANSPOSE(STXT(Nom_Feuilles;TROUVE("]";Nom_Feuilles)+1;99))

ou

=TRANSPOSE(STXT(Nom_Feuilles;TROUVE("]";Nom_Feuilles)+1;9^9))

Sélectionner à partir de A5 un champ vertical comprenant suffisamment de lignes pour la longueur de la liste (voir le résultat de NB_Feuilles) et effectuez la saisie Matricielle de la Formule >> La liste des Feuilles s'affiche de A5 à A14 dans l'exemple.

Pour obtenir V17, formule en B5 incrémentée vers le bas

=INDIRECT("'"&$A5&"'!V17")

Pour obtenir X17, formule en B5 incrémentée vers le bas

=INDIRECT("'"&$A5&"'!X17")

Fichier avec solution en retour

Cordialement

Bonjour,

Merci beaucoup pour la solutions. Ca fonctionne nickel.

Le seul inconvénient c'est que si j'inserte une feuille supplémentaire ça ne me l'insère pas dans mon récap. Mais c'est déjà bien comme ça.

Encore merci.

Bonne soirée.

Vanessa

Bonsoir

Le seul inconvénient c'est que si j'inserte une feuille supplémentaire ça ne me l'insère pas dans mon récap.

Oui, il faut relancer la formule matricielle

Cordialement

Bonjour,

Je viens d'essayer la macro de Mytà mais bizarrement cela ne marche pas sur mon fichier

J'aimerais faire la même chose mais en reprenant les données des cellules T7 et U7

Est ce que quelqu'un pourrais me venir en aide

J'ai appeler la Macro: "ExportTech"

Merci d'avance

Je vous joint mon fichier

Cordialement