VBA_récupérer données dans plusieurs onglets

kupikupi -  
 G_33 -
Bonjour,

J'ai un fichier excel qui comporte un tableau de données sur un an.
Les données de chaque jour sont dans un onglet distinct.
Je souhaiterai pouvoir importer sur un nouvel onglet, sous forme d'un tableau les donnes qui m'intéressent.
Cad une ligne avec case A1 de chaque onglet (date du jour), puis à la suite sur la même ligne, les données que j'ai ds les cases de B10 à P10 de chaque onglet.

Je bataille depuis 2h mais sans succès, donc si qqn avait une solution, ça me rendrait un grand service.

Merci d'avance
Nicolas

A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Comment sont nommées tes feuilles jour ?
A+
0
Réponse 2 / 2
G_33
 
Bonjour
je te propose ce code

en sachant que toutes les données seront dans la feuille RECAP et que je suppose que la première ligne de cette feuille possède des entetes 

Sub Recap()
Dim w As Integer
For w = 2 To Worksheets.Count
Worksheets(w).Activate

 ladate = Range("a1").Value
  Range(Cells(10, 2), Cells(10, 16)).Copy
    
   Sheets("RECAP").Activate
   
    derlig = Range("a" & Rows.Count).End(xlUp).Row
        Sheets("RECAP").Cells(derlig + 1, 1).Value = ladate
         Sheets("RECAP").Cells(derlig + 1, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
          Application.CutCopyMode = False
        
   
Next w


bonne continuation
0
G_33
 
J'Oubliais une chose importante TRES importante
Ta feuille RECAP Doit être en premier dans le classeur
0

Discussions similaires

Erreur la zone de données passée à un appel système est insu
Vincent -
Panth33ra -

5 réponses
Barre de données en pourcentage (maintenir 100% comme max)
Jessica -
Jessica -

2 réponses
TNT base de donnees vide!!
Angye25 -
Angye25 -

4 réponses