![]() |
|
Forum
|
|
|
#5 (permalink) |
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Localisation: Near the pink town
Messages: 2 532
|
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 :P |
|
|
|
| ANNONCES | |
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|