code macro pour transposer une feuille Résolu

Question

Bonjour, 
je cherche à transposer l'intégralité de ma feuille Consolidation sur la feuille Synthèse afin de générer des TCD par la suite

avec un copier coller c'est très simple, mais il faut que ma macro prenne en compte le fait que les colonnes et les lignes ne seront jamais fixes

voici le fichier si quelqu'un peut m'aider

http://www.cjoint.com/c/FCFnZvjjRyi

un grand merci

via55 · Answer

Bonjour cooljuly

Macro à mettre dans un module et à lancer depuis la feuille Consolidation
Sub transfert()
Dim Ligne As Long, DernCol As Integer
'derniere colonne remplie en ligne1 de la feuille active
DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
'derniere ligne remplie en colonne 1 de la feuille active
Ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'selectionne plage et copie
    Range(Cells(1, 1), Cells(Ligne, DernCol)).Select
    Selection.Copy
    ' colle dans Synthèse
    Sheets("Synthèse").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Tu peux rajouter en début de macro une instruction pour effacer la feuille Synthèse si nécessaire, style 
Sheets("Synthèse").Range("A1:Z2000).ClearContents 

Cdlmnt
Via

Code macro pour transposer une feuille

1 réponse

Newsletters