XL 2013 Transformation tableau en deux colonnes

kingfadhel · 23 Septembre 2023

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

sylvanu · 23 Septembre 2023

Bonjour Kingfadhel, Fanfan,
Un essai en PJ avec :

VB:

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

fanfan38 · 23 Septembre 2023

Bonjour
Ci joint ma solution

A+ François

kingfadhel · 23 Septembre 2023

fanfan38 à dit:
Bonjour
Ci joint ma solution

A+ François

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

fanfan38 · 23 Septembre 2023

Ca ira peu etre un peu plus vite ...

A+ François

kingfadhel · 23 Septembre 2023

fanfan38 à dit:
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 · 23 Septembre 2023

Autre méthode

A+ François

sylvanu · 23 Septembre 2023

Bonjour Kingfadhel, Fanfan,
Un essai en PJ avec :

VB:

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 · 23 Septembre 2023

sylvanu à dit:

Bonjour Kingfadhel, Fanfan,
Un essai en PJ avec :

VB:

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 · 23 Septembre 2023

Voilà.

XL 2013 Transformation tableau en deux colonnes

kingfadhel

XLDnaute Impliqué

Pièces jointes

sylvanu

fanfan38

XLDnaute Barbatruc

Pièces jointes

kingfadhel

XLDnaute Impliqué

fanfan38

XLDnaute Barbatruc

Pièces jointes

kingfadhel

XLDnaute Impliqué

fanfan38

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

kingfadhel

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires