Compilation donnée dans un seul onglet

[Delphine CODEO]

Bonjour,

Je souhaites compiler l'ensemble des données des 4 onglets en une seule colonne (A1-A2 ..... ) dans l'onglet "RECAP"
Je pensait passer par une macro qui copierait et collerait toutes les données.

Pensez-vous qu'une autre solution est envisageable ?

Merci d'avance pour votre aide

Cordialement
Delphine

 

[thebenoit59]

Bonjour Delphine.

Voici un code qui peut répondre à ta demande :

Option Explicit

Sub recapitulatif()
Dim w As Workbook
Dim nF As Byte, j As Byte
Dim d As Object
Dim k
Dim t()
Dim i&, ii&

Set w = ThisWorkbook
Set d = CreateObject("Scripting.Dictionary")

For nF = 2 To 5
    With w.Sheets(nF)
        ii = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
            For i = 2 To ii
                For j = 1 To 7
                    If Not .Cells(i, j).Value = "" Then
                        d(.Cells(i, j).Value) = ""
                    End If
                Next j, i
    End With
Next nF

With w.Sheets(6)
    .Columns(1).Clear
    .[a1].Resize(d.Count).Value = Application.Transpose(d.keys)
End With
   
End Sub