Discussion :

[patriarche51]

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

[Vesta]

c'est pas XI mais Xl = XL

[ouskel'n'or]

Bonjour, bienvenue sue le forum.
Pour éditer du code, tu le sélectionnes et tu fais un clic sur
Et lis les règles du forum, elles t'aideront dans tes recherches.