Bonjour,
Et pour vous aider un peu plus dans vos démarches dans excel ou approfondir la fonction Transpose, retrouvez sur cet excellent fil aux multiples répondeurs des réponses aussi en vba (et pour le plaisir de relire nos amis!!!
:
'http://www.excel-downloads.com/html/French/forum/messages/1_75736_75736.htm
Sub Transposer()
'exemple pour tableau commencant dans la cellule A1
Dim Ligne As Integer, j As Integer
Dim Colonne As Byte, i As Byte
Dim Tableau()
Ligne = Range('A65536').End(xlUp).Row ' determination nb lignes tableau
Colonne = Range('AZ1').End(xlToLeft).Column 'nb colonnes tableau
ReDim Tableau(Ligne, Colonne)
For i = 1 To Colonne
For j = 1 To Ligne
Tableau(j - 1, i - 1) = Cells(j, i)
Next j
Next i
For i = 1 To Colonne
For j = 1 To Ligne
'transposition du tableau dans la feuille 2
Sheets(2).Cells(i, j) = Tableau(j - 1, i - 1)
Next j
Next i
End Sub
Celeda
un peu de nostalgie de notre forum 1ère Génération