J'ai pensé à coder une Macro en VBA, mais ne connaissant pas du tout ce langage, je suis relativement perdu.
Pour le moment, j'ai trouvé quelque chose de ce type :
'-----------------------------------------------------------'
Sub test()
Dim Rg As Range, R As Range
Dim Col As Integer, Ligne As Long
On Error Resume Next
With Feuil1
Set Rg = .Range("A2:A" & .Range("A6556").End(xlUp).Row)
End With
Ligne = 1
For Each R In Rg.Rows
Col = R.EntireRow.Cells.Find("*", LookIn:=xlValues, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
With Feuil2
.Range("A" & Ligne).Resize(Col - 1) = _
R.Cells(1, 1).Value
.Range("C" & Ligne).Resize(Col - 1) = _
Application.Transpose(R.Offset(, 1). _
Resize(, Col - 1).Value)
Ligne = Ligne + Col - 1
End With
Qu'est-ce que le copier/coller spécial avec transposition ne fait pas ? -- Quartzkyte
scrmbl
Quartzkyte a écrit le 29/06/2009 à 17h48 :
Qu'est-ce que le copier/coller spécial avec transposition ne fait pas ? -- Quartzkyte
Avec le copier/coller spécial, je n'ai pas les rubriques (FD00,FD01, etc.). Le problème ne se pose de toute façon pas, vu qu'il me faut absolument une macro qui sera réutilisée sur de nombreux gros fichiers.
Quartzkyte a écrit le 29/06/2009 à 17h48 :
Qu'est-ce que le copier/coller spécial avec transposition ne fait pas ?
--
Quartzkyte
Avec le copier/coller spécial, je n'ai pas les rubriques (FD00,FD01, etc.). Le problème ne se pose de toute façon pas, vu qu'il me faut absolument une macro qui sera réutilisée sur de nombreux gros fichiers.
Qu'est-ce que le copier/coller spécial avec transposition ne fait pas ? -- Quartzkyte
Avec le copier/coller spécial, je n'ai pas les rubriques (FD00,FD01, etc.). Le problème ne se pose de toute façon pas, vu qu'il me faut absolument une macro qui sera réutilisée sur de nombreux gros fichiers.