XL 2013 Transformation tableau en deux colonnes

[kingfadhel]

Bon après-midi aux Xlds,
Je viens vers vous une autre fois pour résoudre un problème,
J'ai un tableau qui contient des données de cartes numérotées déployées dans plusieurs régions et je souhaite pouvoir les transformer en deux colonnes.

Classeur joint.
Merci

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[kingfadhel]

Bonjour
Ci joint ma solution

A+ François

Super Merci,
Sauf que c'est un peu lent (presque 12 secondes).

 

[fanfan38]

Ca ira peu etre un peu plus vite ...

A+ François

 

[kingfadhel]

Ca ira peu etre un peu plus vite ...

A+ François

Merci, c'est kifkif.
Comme même 12 secondes, ce n'est pas grande chose.

 

[fanfan38]

Autre méthode

A+ François

 

[sylvanu]

Bonjour Kingfadhel, Fanfan,
Un essai en PJ avec :

Sub Compte()
    Dim T0, DL&, L&, i&: T0 = Timer
    [I:J].ClearContents: [I3] = "N° de carte": [J3] = "Région"
    Application.ScreenUpdating = False
    DL = [A1000000].End(xlUp).Row
    ReDim T(1 To Cells(DL, "C"), 1 To 2)
    For L = 4 To DL
        Premier = Cells(L, "B"): Dernier = Cells(L, "C"): Region = Cells(L, "A")
        For i = Premier To Dernier
            T(i, 1) = i: T(i, 2) = Region
        Next i
    Next L
    [I4].Resize(UBound(T, 1), UBound(T, 2)) = T
    [I1] = "Temps éxécution : " & Round(Timer - T0, 3) & " s"
End Sub

 

[kingfadhel]

Bonjour Kingfadhel, Fanfan,
Un essai en PJ avec :

Sub Compte()
    Dim T0, DL&, L&, i&: T0 = Timer
    [I:J].ClearContents: [I3] = "N° de carte": [J3] = "Région"
    Application.ScreenUpdating = False
    DL = [A1000000].End(xlUp).Row
    ReDim T(1 To Cells(DL, "C"), 1 To 2)
    For L = 4 To DL
        Premier = Cells(L, "B"): Dernier = Cells(L, "C"): Region = Cells(L, "A")
        For i = Premier To Dernier
            T(i, 1) = i: T(i, 2) = Region
        Next i
    Next L
    [I4].Resize(UBound(T, 1), UBound(T, 2)) = T
    [I1] = "Temps éxécution : " & Round(Timer - T0, 3) & " s"
End Sub

@sylvanu, c'est extraordinaire, génial.
SVP, commentez le code si possible.

 

[sylvanu]

Voilà.