Transposition

Bonjour à tous,

je cherche à copier-coller automatiquement une liste d'un onglet 1 et onglet 2 dans un onglet 3.

Sachant que la liste des 2 premiers onglets est amener à être modifier et des lignes seront ajouter.

L'ordre dans lequel apparaît les noms dans l'onglet 3 n'a pas d'importance.

Comment puis-je coder ceci ?

Un exemple dans le fichier excel du rendu.

Merci à vous pour votre aide

bonjour

a mettre dans un module : puis soit creer unraccourci clavier pour cette macro ou a attribuer a un bouton

Sub copie_Sheet_3()

Sheets(3).[A:D].ClearContents

If Sheets(1).[A65536].End(xlUp).Row > 2 Then Sheets(1).Range("A1:D" & Sheets(1).[A65536].End(xlUp).Row).Copy Sheets(3).[A1]
If Sheets(2).[A65536].End(xlUp).Row > 2 Then Sheets(2).Range("A1:D" & Sheets(2).[A65536].End(xlUp).Row).Copy Sheets(3).Range("A" & Sheets(3).[A65536].End(xlUp).Row + 1)
Sheets(2).[A1].Select

Application.CutCopyMode = False

End Sub

fred

Bonsoir,

Une alternative avec tes plages transformées en tableaux (dynamiques).

La mise à jour de la consolidation, est effectuée à l'activation de la feuille.

Cdlt.

Private Sub Worksheet_Activate()
Dim lastRow As Long

    Application.ScreenUpdating = False

    With Me.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With

    Feuil1.ListObjects(1).DataBodyRange.Copy _
            Destination:=Feuil3.Cells(2, 1)
    lastRow = Feuil3.Cells(Rows.Count, 1).End(xlUp).Row
    Feuil2.ListObjects(1).DataBodyRange.Copy _
            Destination:=Feuil3.Cells(lastRow + 1, 1)

End Sub

Bonjour, à tous

une proposition pour lancer la macro

Un double-clic sur la 1ère ligne de la feuille

A coller dans le code de la feuille active

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Target.Row = 1 Then   '1ère ligne     ''''''Column =1   '' Colonne A
    Cancel = True
    copie_Sheet_3      ' Nom de la macro
    End If

End Sub

Amicalement

Pierrot

super merci à tous