VBA_récupérer données dans plusieurs onglets
kupikupi
-
G_33 -
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
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:
- VBA_récupérer données dans plusieurs onglets
- Fuite données maif - Guide
- Trier des données excel - Guide
- Restaurer les onglets chrome - Guide
- Supprimer les données de navigation - Guide
- Sauvegarde des données - Guide
2 réponses
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
bonne continuation
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
