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

[Bolinette]

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
...

Merci d'avance

 

[skoobi]

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

Bonjour,

par exemple:

Sub test()
Dim Nom As Range
For Each Nom In Range("A1:A" & [A65536].End(xlUp).Row)
  For s = 2 To Sheets.Count
    If Sheets(s).Name = Nom.Value Then Sheets(s).[B51].Copy Nom.Offset(0, 1)
  Next
Next
End Sub

 

[Bolinette]

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

Merci pour ta réponse, j'ai aussi fait quelque chose de similaire :

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("B51").Value
End If
Next
Next

Bolimoche !