VBA_récupérer données dans plusieurs onglets

Question

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

Configuration: Windows XP / Firefox 8.0.1

lermite222 · Answer

Bonjour,
Comment sont nommées tes feuilles jour ?
A+

G_33 · Answer

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

VBA_récupérer données dans plusieurs onglets

2 réponses

Discussions similaires

Newsletters