bonjour,

je solicite votre aide pour debloquer un code. n'ayant pas les connaissances necessaire pour le faire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub rotate()
 Dim i, maxC, maxL, r, s
 Set r = ActiveSheet.UsedRange
 Set s = Sheets.Add(After:=Sheets(Worksheets.Count))
 r.Copy
 s.Cells(1, 1).PasteSpecial
 Paste:=xIPasteAll, Transpose=True With s.UsedRange
  maxC = .Column + .Columms
.Count -1
  maxL = .Row + .Rows.Count - 1
 .HorizontalAlignment = xIGeneral
 .VerticalAlignment = XIBottom
 .Orientation = 90
 .EntireColumn.AutoFit
End With
s.Range(s.Rows(1), s.Rows(maxL)).Insert shift = xIShitDown
For i = 1 To maxL
 s.Rows(maxL + i).Cut
 s.Rows (maxL - i + 1)
Next i
End Sub
** j'ai une erreur entre autre sur Paste:=XI
pouvez vous m'aider, merci d'avance

Change ton titre, tout le monde demande de l'aide et là nous ne sommes pas plus avancés sur ce que tu veux.
Balises et tag ajoutées par ouskel'n'or