Copier des données de plusieurs onglet dans un onglet récap

Bonjour,

n'arrivant pas à trouver la solution à mon soucis sur les anciens posts, je me permets de demander votre aide.

j'ai créé chaque jour un tableau contenant des chiffres destiné à être imprimé. J'ai donc créé un onglet par jour. Au bout de 8 mois, on me demande de créer une sorte de base de donnée reprenant une partie des résultats ! Une macro serait bien utile...

Sur le fichier joint, j'ai créé des onglets bleus pour les 3 bilans que je dois faire et commencer à copier-coller à la main dans l'onglet "C5 débit". Je dois récupérer dans chaque onglet journalier les cellules D à M des lignes 18, 22 et 25 (j'ai repris le nom de la colonne B pour ces lignes pour nommer l'onglet).

J'ai essayé de créer une macro simple mais je ne sais pas comment aller chercher dans les onglets 1 par 1

Sheets("01.01.13").Select

Range("C18:M18").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("C5 débit").Select

ActiveCell.Select

ActiveSheet.Paste

ActiveCell.Offset(1, 0).Select

Sheets("01.01.13").Select

ActiveSheet.Previous.Select

Merci d'avance pour votre aide


Avec le fichier c'est mieux ! etant trop gros, je n'en ai copier qu'une toute petite partie

89bilan-almanna.zip (74.05 Ko)

Bonjour

A vérifier

Ca peut te donner une base pour commencer:

Sub copiercoller_de_C18M18_de_chacune_de_tes_feuilles()
    Dim sh As Worksheet
    Dim i As Integer

    For Each sh In ActiveWorkbook.Worksheets
        sh.Activate
        sh.Range("C18:M18").Copy Worksheets("C5 débit").Range("B" & i + 4)
        i = i + 1
    Next sh
    Worksheets("C5 débit").Activate
End Sub

Merci beaucoup pour ces réponses rapides et la résolution de mon problème !!

Vous êtes géniaux !!

Bon week-end

Rechercher des sujets similaires à "copier donnees onglet recap"