déplacement de cellules par une boucle

[eric57]

Bonjour

Je reviens vers vous pour cherche d l'aide pour la mise en forme de mon fichier .

Je recois un fichier CSV, avec un liste pour commande .

Mais l'ensemble est sur 1 seule colonne.

Je dois donc le remettre en forme pour avoir les informations telles que je puisse les traiter dans un autre logiciel .

Ma colonne est tjr un multiple de 8

Je dois déplacer donc chaque bloc de 8 , pour les mettre cote à cote

Au final, je dois avoir une seule colonne avec séparation par une virgule tel que sur mon exemple

Pouvez-vous m'aider, je rame depuis un moment

Je vous met un fichier exemple en PJ

 

[vgendron]

hello
je n'ai pas bien saisi le passage entre la colonne Jaune et ton petit tableau en rose...
donc. un début de réponse ici

Sub ColToTab()
Dim TabIni() As Variant
Dim TabFinal() As Variant

With Sheets("JOLIMONT")
    fin = .UsedRange.Rows.Count
    TabInit = .Range("A1:A" & fin).Value
    TailleFinal = Int(fin / 8)
    ReDim TabFinal(1 To TailleFinal, 1 To 8)
    k = 1
    For i = LBound(TabInit, 1) To UBound(TabInit, 1) Step 8
        For j = 1 To 8
            TabFinal(k, j) = TabInit(i + j - 1, 1)
        Next j
        k = k + 1
    Next i
    .Range("C2").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)) = TabFinal
End With
End Sub

 

[eric57]

Bonjour Vgendron,

Merci pour cette réponse.

La partie jaune, représente les données telles que je les reçois, et la partie "rose" les données telles que je les voudraient après transformation.

Mais je pense qu'avec ce que tu m'as déjà fait, je devrais arriver à faire le reste de la mise en forme, c'est plus de mon niveau .

 

[pierrejean]

Bonjour eric

Salut vgendron

Un essai

 

[eric57]

Bonjour pierrejean

Ouiiii c'est exactement cela. J'ai juste inversé l'info N° de client ( qui est tjr le même) et le N° de commande qui est différent a chaque commande est doit donc être renseigné par ton inputBox

C'est parfais et c'est génial

Jamais déçu par Excel-Download

Merci à vous 2 pour votre aide, et la vitesse à laquelle vous avez su me dépanner.