Recuperer des données

[chatblanc]

Bonjour à tous, et meilleurs voeux pour 2009 !

J'aimerai recuperer les données des casses D32 à L36 des onglets du fichier et les transcrires dans l'onglet recapitulatif dans les zones correspondante avec la date du jour (present en haut de page en N2) a retranscrire dans B12 et ceci quelque soit le nombre d'onglet.
Ci-joint un fichier exemple.

Merci pour votre aide.

 

[CB60]

Re : Recuperer des données

Bonsoir
Regarde si cela te convient.
En B14 j'ai mis le nom de la feuille ou nous allons chercher les infos, il faut qu'il soit identique au nom de l'onglet

Edit bonsoir Kjin, Indirect aussi

 

[kjin]

Re : Recuperer des données

Bonsoir,
Par formule indirect et nom d'onglet, si j'ai compris qq chose

Edit :Bonsoir Bruno
A+
kjin

 

[chatblanc]

Re : Recuperer des données

Bonsoir,

Merci pour la reponse, la case B12 de l'onglet repertoire doit correspondre a la case N2 de l'onglet testé et les resultats devraient correspondre a l'emplacement respectif dans le fichier recapitulatif programme, réalisé, écartjour.

Merci pour l'aide.

 

[job75]

Re : Recuperer des données

Bonsoir chatblanc, Bruno, kjin,

Si les onglets sont bien placés en ordre croissant, c'est simple :

Sub Copier()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(1).Range("B" & 2 + 5 * i ) = Sheets(i).Range("N2").Value
Sheets(i).Range("D32:L36").Copy Sheets(1).Range("D" & 2 + 5 * i )
Next
End Sub

A+

Edit 1: après test j'utilise Range("B" & 2 + 5 * i ) etc... plutôt que Offset

Edit 2 : la barbe, c'est L36 et pas L35...

 

[CB60]

Re : Recuperer des données

re
Il te suffit d'utiliser aussi indirect


Edit Bonsoir JOB