Déplacer les données d'un tableau

[serir]

Bonjour ;

Je suis heureux que ce site existe et je le trouve très bénéfique;

Ma question: quelle la formule conditionnelle pour que je puisse déplacer les données d'un tableau ? avec l'exemple ci-joint vous comprenez la question.

Merci pour votre aide!!!

 

[Efgé]

Re : Déplacer les données d'un tableau

Bonjour serir,

Par formule, je ne sais pas faire (surtout par formule "conditionnelle").
Mais comme tu n'as pas de réponse, je te propose une macro:

Sub test()
Dim I&, J&
Dim D As Object, TData As Variant, TReport As Variant
Const Col As Long = 4 'Nombre de colonnes du tableau source
 
Set D = CreateObject("Scripting.dictionary")
With Sheets("Feuil1")
    TData = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(3)(1, Col))
End With
ReDim TReport(1 To UBound(TData, 1), 1 To UBound(TData, 2))
For I = LBound(TData, 1) To UBound(TData, 1)
    If Not D.Exists(TData(I, 1)) Then D(TData(I, 1)) = D.Count + 1
    For J = 1 To Col
        If TData(I, J) <> "" Then TReport(D(TData(I, 1)), J) = TData(I, J)
    Next J
Next I
Sheets("Feuil1").Range("$G$11").Resize(D.Count, Col) = TReport
End Sub

Cordialement