Bonjour à vous et merci de me lire,
Je souhaite pour le travail, transposer à l'aide d'une macro un calendrier lu en ligne, en colonne. J'y arrive et ça fonctionne.
Cependant, je souhaite que ces calendriers se transposent l'un en dessous des autres (actuellement ils se mettent à la suite en colonne donc les uns a côté des autres).
Voici ce que j'ai utilisé actuellement :
Sub TransposeColumnsRows()
Dim SourceRange As Range
Dim DestRange As Range
Dim j As Integer
Dim k As Integer
For j = 8 To 210 Step 17
Set SourceRange = Worksheets("2020").Range(Cells(j, 2), Cells(j + 15, 32))
Set DestRange = Application.InputBox(Prompt:="Select the upper left cell of the destination range", Title:="Transpose Rows to Columns", Type:=8)
SourceRange.Copy
DestRange.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub
Merci beaucoup pour votre retour, ça m'est d'une grande aide.
PS : Une partie du fichier en PJ et en colonne, l'essai de la macro transposé ( mais que je souhaiterais en dessous de l'autre)
Bonne soirée,
Maxime