Récupération de données

mth

XLDnaute Barbatruc

• 16 Septembre 2010

• #2

Re : Récupération de données

bonsoir Format,

un essai en pj avec la fonction indirect()

Bien à toi,

mth

 

Pièces jointes

• indirect.xls

  20 KB · Affichages: 55
• indirect.xls

  20 KB · Affichages: 50
• indirect.xls

  20 KB · Affichages: 53

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 16 Septembre 2010

• #3

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 16 Septembre 2010

• #4

Re : Récupération de données

re,

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

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

 

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 16 Septembre 2010

• #5

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 16 Septembre 2010

• #6

Re : Récupération de données

re

Oui pardon, peut-être ainsi:

Code:

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

 

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 16 Septembre 2010

• #7

Re : Récupération de données

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

 

Vote positif 0 Vote négatif