Récupération de données

[Format]

Bonsoir,

J'ai un classeur avec une feuille nommée récap et plusieurs autres feuilles à suivre intitulées X,Y,Z... Dans la feuille récap je souhaite récupérer le nom de chaque feuille avec dans la cellule à côté le contenu de la cellule f20 de chaque feuille.
Ex : A1 = nom de la feuille X ; B1 = contenu f20 de la feuille X et ainsi de suite
Merci pour votre aide

 

[mth]

Re : Récupération de données

bonsoir Format,

un essai en pj avec la fonction indirect()

Bien à toi,

mth

 

[Format]

Re : Récupération de données

Merci, c'est déjà un pas. Si quelqu'un pouvais me donner une macro qui rempli toute seule ma feuille récap, cela serait super...

 

[mth]

Re : Récupération de données

re,

Recap étant le premier onglet, un 'tit essai avec ce code:

Sub Macro1()
sh = ThisWorkbook.Worksheets.Count
For i = 2 To sh
    Sheets("Recap").Range("A65500").End(xlUp).Offset(1, 0) = Sheets(i).Range("F20")
Next i
End Sub

@ +

mth

 

[Format]

Re : Récupération de données

C'est presque parfait, il y a bien la valeur de chaque cellule F20 des feuilles, il manque juste le nom de la feuille correspondante à importer, dans la cellule à côté.

 

[mth]

Re : Récupération de données

re

Oui pardon, peut-être ainsi:

Sub Macro1()
sh = ThisWorkbook.Worksheets.Count
For i = 2 To sh
    Sheets("Recap").Range("A65500").End(xlUp).Offset(1, 0) = Sheets(i).Name
    Sheets("Recap").Range("B65500").End(xlUp).Offset(1, 0) = Sheets(i).Range("F20")
Next i
End Sub

@ +

mth

 

[Format]

Re : Récupération de données

C'est ce qu'il me fallait, super, mille mercis...