Séparation des données

[pedram0080]

Bonjour,
Vous pouvez m’aider pour créer un procédé pour séparer les données selon l’image et le fichier attaché ?
Merci beaucoup

 

[pierrejean]

Re : Séparation des données

bonjour pedram0080

Vois si cela te convient

 

[pedram0080]

Re : Séparation des données

Mille Merci, c'est superbe, je vais l'adapter avec le fichier orginal.
encore merciiiiiiii

 

[pedram0080]

Re : Séparation des données

Jeanpierre,
j’ai besoin d’une autre aide svp, en fait j’ai adapté la macro avec mon fichier orignal et ça marche très bien mais il y a un petit problème.
Le nombre des lignes ! après l’application, c’est plus de 65536 lignes, pourriez-vous m’indiquer comment je peux le réaliser sur les lignes originales ?c’est à dire sans coller sur les autres lignes.
Merc encore

Sub test()
Application.ScreenUpdating = True
derlin = Range("L2").End(xlDown).Row
Range("A" & derlin + 1 & ":E65536").Clear
For n = 1 To derlin
tablo1 = Split(Range("L" & n), ";")
tablo2 = Split(Range("S" & n), ";")
For m = LBound(tablo1) To UBound(tablo1)
For p = LBound(tablo2) To UBound(tablo2)
'MsgBox (tablo1(m) & " " & tablo2(p))
Range("A" & n).Copy Destination:=Cells(derlin + 2 + n, 1)
Range("B" & n).Copy Destination:=Cells(derlin + 2 + n, 2)
Range("C" & n).Copy Destination:=Cells(derlin + 2 + n, 3)
Range("D" & n).Copy Destination:=Cells(derlin + 2 + n, 4)
Range("E" & n).Copy Destination:=Cells(derlin + 2 + n, 5)
Range("F" & n).Copy Destination:=Cells(derlin + 2 + n, 6)
Range("G" & n).Copy Destination:=Cells(derlin + 2 + n, 7)
Range("H" & n).Copy Destination:=Cells(derlin + 2 + n, 8)
Range("I" & n).Copy Destination:=Cells(derlin + 2 + n, 9)
Range("J" & n).Copy Destination:=Cells(derlin + 2 + n, 10)
Range("k" & n).Copy Destination:=Cells(derlin + 2 + n, 11)
Range("K" & n).Copy

Cells(derlin + 2 + n, 12) = tablo1(m)
Cells(derlin + 2 + n, 12).PasteSpecial Paste:=xlPasteFormats

Range("M" & n).Copy Destination:=Cells(derlin + 2 + n, 13)
Range("N" & n).Copy Destination:=Cells(derlin + 2 + n, 14)
Range("O" & n).Copy Destination:=Cells(derlin + 2 + n, 15)
Range("P" & n).Copy Destination:=Cells(derlin + 2 + n, 16)
Range("Q" & n).Copy Destination:=Cells(derlin + 2 + n, 17)
Range("R" & n).Copy Destination:=Cells(derlin + 2 + n, 18)
Range("R" & n).Copy

Cells(derlin + 2 + n, 19) = tablo2(p)
Cells(derlin + 2 + n, 19).PasteSpecial Paste:=xlPasteFormats


Range("T" & n).Copy Destination:=Cells(derlin + 2 + n, 20)
Range("U" & n).Copy Destination:=Cells(derlin + 2 + n, 21)
Range("V" & n).Copy Destination:=Cells(derlin + 2 + n, 22)
Range("W" & n).Copy Destination:=Cells(derlin + 2 + n, 23)
Range("X" & n).Copy Destination:=Cells(derlin + 2 + n, 24)
Range("Y" & n).Copy Destination:=Cells(derlin + 2 + n, 25)

derlin = derlin + 1
Next p
Next m
derlin = derlin - 1
Next n
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

 

[pierrejean]

Re : Séparation des données

Re

Voila une adaptation de ton 1er fichier pour effectuer le developpement sur des colonnes adjacentes (tu pourras ensuite supprimer les colones originales)
Si tu as des difficultés a adapter a ton fichier original poste une copie avec quelques lignes (sans données confidentielles)

 

[pedram0080]

Re : Séparation des données

Merci Pierrejean,
Il y a un petit problème sur ton dernier exemple que je n’ai pas pu le corriger.
Il manque une ligne orange, à droite.
Merci encore

 

[pierrejean]

Re : Séparation des données

Re

OK , je suis allé un peu vite
Avec toutes mes excuses