XL 2021 Remplir des listes à partir d'une base de données

[chajmi]

Bonjour,
J'ai une base de données en feuille "A"
Comment renseigner automatiquement mes tableaux en feuille "B"

Merci de votre aide

 

[Phébus]

Bonjour,
J'ai une base de données en feuille "A"
Comment renseigner automatiquement mes tableaux en feuille "B"

Merci de votre aide

bonsoir chajmi

Voici une proposition.

Bonne soirée

 

[OKBI]

Bonsoir,
Un essai avec PQ
Cdt

 

[Jacky67]

Bonjour,
J'ai une base de données en feuille "A"
Comment renseigner automatiquement mes tableaux en feuille "B"

Merci de votre aide

Bonjour à tous,
Sinon, par formules en gardant la structure donnée

 

[job75]

Bonjour chajmi, le forum,

Ou en VBA, le code de la feuille "B" :

Private Sub Worksheet_Activate()
Dim dest As Range, n%
Set dest = [B3]
Application.ScreenUpdating = False
Rows(dest.Row + 1 & ":" & Rows.Count).Delete 'RAZ
With Sheets("A").[A3].CurrentRegion
    For n = 1 To .Columns.Count - 2
        .Columns(1).Resize(, 2).Copy dest(2, 4 * n - 3)
        .Columns(2 + n).Copy dest(2, 4 * n - 1)
    Next
End With
End Sub

La macro se déclenche quand on active la feuille.

A+