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