XL 2013 Selection périodique de données dans 2 colonnes Excel

MathieuF · 7 Septembre 2021

Bonjour tout le monde,

18	10	18	10
40	25	40	25
55	45	45	55
66	77	77	66
10	99	10	99
77	32	77	32
45	51	51	45
88	78	78	88

Voilà, je galère un peu: j'ai 2 colonnes de plusieurs milliers de valeurs, et je souhaite sélectionner et copier périodiquement les valeurs d'une colonne dans une autre.
Mettons que j'ai 1800 valeurs dans Colonne A et Colonne B, et 2 autres colonnes vides C et D, je veux prendre les 600 premières valeurs de la Colonne A et les copier dans Colonne C, prendre les 600 suivantes et les copier dans colonne D, et les 600 dernières de nouveau copiées dans la Colonne C.
Voici un tableau pour imager ce que je recherche, j'ai conscience que c'est pas forcément commun ^^
Voilà, merci aux courageux!

sylvanu · 7 Septembre 2021

C'était précisé :

Un essai en PJ sans aucune boucle, peut être optimisée modifiée si les plages étaient plus grandes

Un essai en PJ avec :

VB:

Sub Transfert()
    Dim L%, i%, j%, Flag%
    L = 600         ' Longueur des segments
    i = 1:  Flag = 0 ' Index et Flag ( si 0 A sur C B sur D, si 1 B sur C et A sur D )
    [C:D].ClearContents
    While Cells(i, "A") <> ""
        If Flag = 0 Then
            Range("C" & i & ":C" & i + 599) = Range("A" & i & ":A" & i + 599).Value
            Range("D" & i & ":D" & i + 599) = Range("B" & i & ":B" & i + 599).Value
            Flag = 1
        Else
            Range("D" & i & ":D" & i + 599) = Range("A" & i & ":A" & i + 599).Value
            Range("C" & i & ":C" & i + 599) = Range("B" &...

sylvanu · 7 Septembre 2021

Bonjour Mathieu et bienvenu sur XLD,
Un essai en PJ sans aucune boucle, peut être optimisée modifiée si les plages étaient plus grandes mais le principe resterait le même, avec :

VB:

Sub Transfert()
    [C:D].ClearContents
    
    Range("C1:C600") = Range("A1:A600").Value
    Range("C601:C1200") = Range("B1:B600").Value
    Range("C1201:C1800") = Range("A601:A1200").Value
    
    Range("D1:D600") = Range("B1:B600").Value
    Range("D601:D1200") = Range("A1:A600").Value
    Range("D1201:D1800") = Range("B601:B1200").Value
End Sub

MathieuF · 7 Septembre 2021

sylvanu à dit:
Bonjour Mathieu et bienvenu sur XLD,
Un essai en PJ sans aucune boucle, peut être optimisée modifiée si les plages étaient plus grandes mais le principe resterait le même, avec :

VB:

Sub Transfert() [C:D].ClearContents Range("C1:C600") = Range("A1:A600").Value Range("C601:C1200") = Range("B1:B600").Value Range("C1201:C1800") = Range("A601:A1200").Value Range("D1:D600") = Range("B1:B600").Value Range("D601:D1200") = Range("A1:A600").Value Range("D1201:D1800") = Range("B601:B1200").Value End Sub

Merci pour votre réponse rapide ! si je comprends bien, pour chaque 600 valeurs, je dois écrire une ligne de code c'est cela? Est-ce possible d'automatiser cela, dans la mesure où je pense que pour mon cas ( une vingtaine de fichier contenant chacun 2 colonnes de 30000 valeurs), cela resterait assez contraignant.
Sinon votre solution est super intéressante ! merci beaucoup de me l'avoir partagé

sylvanu · 7 Septembre 2021

C'était précisé :

Un essai en PJ sans aucune boucle, peut être optimisée modifiée si les plages étaient plus grandes

Un essai en PJ avec :

VB:

Sub Transfert()
    Dim L%, i%, j%, Flag%
    L = 600         ' Longueur des segments
    i = 1:  Flag = 0 ' Index et Flag ( si 0 A sur C B sur D, si 1 B sur C et A sur D )
    [C:D].ClearContents
    While Cells(i, "A") <> ""
        If Flag = 0 Then
            Range("C" & i & ":C" & i + 599) = Range("A" & i & ":A" & i + 599).Value
            Range("D" & i & ":D" & i + 599) = Range("B" & i & ":B" & i + 599).Value
            Flag = 1
        Else
            Range("D" & i & ":D" & i + 599) = Range("A" & i & ":A" & i + 599).Value
            Range("C" & i & ":C" & i + 599) = Range("B" & i & ":B" & i + 599).Value
            Flag = 0
        End If
        i = i + L
    Wend
End Sub

Ca s'arrête lorsqu'une cellule de A est vide.
"L" est à modifier si la longueur des segments changeait.

sylvanu · 7 Septembre 2021

??? Que voulez vous dire ?

MathieuF · 7 Septembre 2021

Wow, je crois que vous as parfaitement répondu à ma question, merci encore, vous n'imaginez même pas le temps que cela va me faire gagner ! merci encore
(désolé pour le message vide, erreur de frappe)

sylvanu · 7 Septembre 2021

Une V3 ! J'ai complétement oublié de figer l'écran avec Application.ScreenUpdating = False pour accélerer le processus.
Sur 30k lignes on passe de 3.14s à 0.42s.

MathieuF · 7 Septembre 2021

sylvanu à dit:
Une V3 ! J'ai complétement oublié de figer l'écran avec Application.ScreenUpdating = False pour accélerer le processus.
Sur 30k lignes on passe de 3.14s à 0.42s.

j'en attendais pas autant ^^ on dirait que ma question vous a stimulé ! en tout cas merci beaucoup

XL 2013 Selection périodique de données dans 2 colonnes Excel

MathieuF

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

MathieuF

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

MathieuF

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

MathieuF

XLDnaute Nouveau

Discussions similaires