Déplacer cellules tableau 50 000 lignes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Leviath7
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 19 avril 2018
Version d'Excel : 2010

Message par Leviath7 » 19 avril 2018, 10:04

Bonjour,

Je viens vers vous pour faire une transposition de tableau. J'ai le tableau initial que je veux transformer en le tableau final :

Tableau initial
Aj B Ci Di Ei
1764565 Pièce 1 C1 D1 E1
1765085 Pièce 2 C2 D2 E2
C3 D3 E3
1765266 Pièce 3 C4 D4 E4
C5 D5 E5
C6 D6 E6


Tableau final souhaité :
Aj B Ci Di Ei Ci Di Ei Ci Di Ei
1764565 Pièce 1 C1 D1 E1
1765085 Pièce 2 C2 D2 E2 C3 D3 E3
1765266 Pièce 3 C4 D4 E4 C5 D5 E5 C6 D6 E6
Voici mes codes de module :

Sub TestC() (utilisé pour C, D et E de façon analogue)
' Ramener contenu de C
Dim VA, i&, L&
DL = Cells(Rows.Count, 3).End(xlUp).Row
VA = Range("A2:AH" & DL).Value
For i = 1 To UBound(VA)
If VA(i, 1) > "" Then
L = i
Else
VA(i, 3.L-9) = VA(L, 3)
VA(i, 3) = ""
End If
Next
Cells(2, 1).Resize(UBound(VA), 3).Value = VA
End Sub



Sub Lignesvides()
' Supprimer les lignes vides
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.ClearContents
Selection.ClearContents
Selection.EntireRow.Delete
End Sub


Mon premier code ne marche pas... Qqn a une idée de code qui soit robuste à N éléments C D et E s'il vous plaît ? J'ai plusieurs tableaux de 50000 lignes avec parfois 10 références par numéro, merci pour votre aide :)

Merci pour votre retour :)
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'549
Appréciations reçues : 321
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 19 avril 2018, 13:03

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?
Bye !
Classeur1 v1.xlsm
(19.92 Kio) Téléchargé 9 fois
1 membre du forum aime ce message.
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 7'081
Appréciations reçues : 698
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 19 avril 2018, 13:58

Bonjour Leviath7, gmb,

Je te propose ce fichier Excel :
Exo Leviath7.xlsm
(16.63 Kio) Téléchargé 5 fois
Ctrl e ➯ travail effectué

Alt F11 pour voir le code VBA, puis revenir sur Excel

Si besoin, tu peux demander une adaptation.
Merci de me dire si ça te convient.

dhany  Image
L
Leviath7
Jeune membre
Jeune membre
Messages : 18
Inscrit le : 19 avril 2018
Version d'Excel : 2010

Message par Leviath7 » 19 avril 2018, 15:26

Bonjour dhany & gmb,

Le code fonctionne, j'ai bougé sur certains onglets un ou deux trucs mais il est très flexible et robuste !
J'attends juste encore un ou deux jours avant de clore le sujet, des fois qu'un imprévu que je n'ai pas vu aujourd'hui apparaisse :)

Encore merci pour votre réactivité, à +
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message