Power Query Power Query Gestion tableau

[guypont]

Bonjour,
Dans le tableau joint, je souhaiterai obtenir le résultat suivant :

- Les n° de Compte dans la colonne CpteHT (TVA).Cpte doivent se retrouver dans le colonne Code Encaisst TVA.
- Les montants de la colonne Crédits HT doivent correspondre aux n° de compte de la colonne CpteHT (TVA).Cpte et se retrouver dans la colonne Crédit HT

Exemple résultat souhaité : Tableau joint avec les chiffres en rouge à bouger


Avez-Vous une solution ?

Merci

 

[job75]

Bon OK j'ai compris, le tableau source est Tableau2.

Et le résultat est dans la feuille "Original", c'est curieux mais pas vraiment original 😎

 

[job75]

Ici la macro est assez évidente, il suffit de récupérer les lignes dont la colonne "Description" n'est pas vide :

Private Sub Worksheet_Activate()
Dim tablo, resu(), i&, n&
With [Tableau2] 'tableau structuré
    If Not .ListObject.DataBodyRange Is Nothing Then
        tablo = .Resize(, 11) 'matrice, plus rapide
        ReDim resu(1 To UBound(tablo), 1 To 6)
        For i = 1 To UBound(tablo)
            If tablo(i, 11) <> "" Then
                n = n + 1
                resu(n, 1) = tablo(i, 1): resu(n, 2) = tablo(i, 10)
                resu(n, 3) = tablo(i, 11): resu(n, 4) = tablo(i, 3)
                resu(n, 5) = tablo(i, 8): resu(n, 6) = tablo(i, 4)
            End If
        Next i
    End If
End With
'---restitution---
With [A2] '1ère cellule de destination
    If n Then .Resize(n, 6) = resu
    .Offset(n).Resize(Rows.Count - n - .Row + 1, 6).ClearContents 'RAZ
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

Bonne nuit.