Réccupération de données d'après une liste

Résolu/Fermé
Bolinette Messages postés 13 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 11 septembre 2009 - 7 sept. 2009 à 14:45
Bolinette Messages postés 13 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 11 septembre 2009 - 8 sept. 2009 à 16:35
Bonjour,

J'ai pas mal avancé sur un projet avec VBA, mais il me reste un dernier problème majeur.

J'ai plusieurs feuilles Excel dans un classeur. Chaque feuille a le nom d'une personne.
Dans la première feuille de mon classeur, j'ai une liste de nom.

Est-il possible de mettre au point une macro qui me récupère les données d'une celulle ("B51" par exemple) dans les différentes feuilles du classeurs, et qu'elle me les colle en face du nom correspondant dans la liste de la première feuille.
...
Ainsi pour Monsieur "Gamma" ("A2"), aller à la feuille nommée "Gamma" est copier la cellule "B51" dans la première feuille dans la celulle B2
Pour Monsieur "Lambda" aller à la feuille nommée "Lambda" est copier la cellule dans la première feuille dans la cellule B3
...
A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
7 sept. 2009 à 15:57
bonjour
=INDIRECT("'"&A2&"'!B51")

écrire guillemet-apostrophe-guillemet &A2& guillemet-apostrophe....
0
Bolinette Messages postés 13 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 11 septembre 2009
8 sept. 2009 à 16:35
Merci, mais je pense que je m'étais mal exprimé.
Ce qu'il me fallait c'était réccupérer des données dans plusieurs feuilles en fonction du nom de la feuille et enfin de les rapatrier dans un tableau.
Merci quand même mais le bon code était :

For b = 5 To 12510
For a = 1 To Worksheets.Count
If Sheets(a).Name = Cells(b, 5) Then
Cells(b, 14).Value = Sheets(Sheets(a).Name).Range("D39").Value
End If
Next
Next

Ici on va chercher entre la ligne 5 à 12510 et parmis toutes mes feuilles, la feuille qui a le même nom que la celulle de la ligne b dans la colonne E (5) (de la feuille active) et on récupère la celulle D39 de cette feuille que l'on colle dans la celulle de la ligne b et colonne N (14) (de la feuille active)
(Voilà si ça peut aider quelqu'un...)

Bolimoche !
0