Macro Copier Coller

Bonjour à Tous,

J'aurais besoin d'aides ou d'orientations, je travaille pas souvent à l'aide de VBA ce qui fait que je galère souvent :p

A la base , j'avais besoin d'une macro qui copie tous les onglets d'un ficher pour les mettre dans un seul onglet sheets("Consolidation")

Dans chaque onglets, il y'a un contrôle avec son nom en A1

Moi j'arrive à tous mettre dans une même feuille sheets("Consolidation"). Cependant, comment je pourrais faire pour mettre devant chaque contrôle copié le nom du contrôle

Je vous mets le ficher ( Avec plus d'explications) si jamais quelqu'un pourrait m'orienter , ce serait sympa histoire de finir 2020 sur un point positif

Bonne fêtes.

Bonjour,

Sub Consolider()

Dim ws As Worksheet
Dim r As Range

'Sheets("Consolidation").cells.clearcontents 'ligne pour rŽinitialiser Consolidation avant de recommencer
'sinon, sans cette ligne, les donnŽes sont ajoutŽes ˆ la suite

For Each ws In Worksheets 'pour chaque feuille du classeur
    If ws.Name <> "Consolidation" Then 'si nom feuille <> "Consolidation"
        With ws.Cells(Rows.Count, 1).End(xlUp).CurrentRegion 'avec la zone utilisŽe de la feuille en cours
            Set r = .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0) 'range ˆ importer = zone utilisŽe sans en-tetes
        End With
        With Sheets("Consolidation") 'avec Consolidation
            If Application.CountA(.Range("A1:F1")) = 0 Then .Range("B1:G1").Value = ws.Range("A3:F3").Value 'pour entetes copier les entetes
            NL = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'premire ligne non vide
            .Range("B" & NL).Resize(r.Rows.Count, r.Columns.Count).Value = r.Value 'copie valeurs
            .Range("A" & NL).Resize(r.Rows.Count, 1).Value = ws.Cells(1, 1) 'copie controle
        End With
        Set r = Nothing 'r est vidŽ
    End If
Next ws 'feuille suivante

End Sub

Bonjour Steelson,

Rien à dire c'est exactement ce dont j'avais besoin !

Merci beaucoup

Bonne fêtes :)

Parfait !

N'oublie pas de clore ce fil de discussion en cliquant sur