déplacement de cellules par une boucle

eric57 · 19 Juin 2018

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 · 19 Juin 2018

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

VB:

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 · 19 Juin 2018

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 · 19 Juin 2018

Bonjour eric

Salut vgendron

Un essai

eric57 · 19 Juin 2018

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.

déplacement de cellules par une boucle

eric57

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

eric57

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

eric57

XLDnaute Occasionnel

Discussions similaires

déplacement de cellules par une boucle

eric57

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

eric57

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

eric57

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency