Déplacer cellules tableau 50 000 lignes

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

[table="width: 500, class: grid, align: left"]

Tableau final souhaité :

[table="width: 500, class: grid, align: left"]

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

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

10classeur1-v1.xlsm (19.92 Ko)

Bonjour Leviath7, gmb,

Je te propose ce fichier Excel :

6exo-leviath7.xlsm (16.63 Ko)

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

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é, à +

Rechercher des sujets similaires à "deplacer tableau 000 lignes"