Transpose row to column

Bonjour,

je souhaiterais transformer des lignes en des colones. J'ai trouve ce bout de code qui marche parfaitement bien. Mais il renverse tous les sheets de mon workbooks alors que je souhaiterais renverser les donnees d une seule sheet
qui peut m aider la de-dans

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub TRANSPOSE() Dim Ws As Worksheet, Ws2 As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Worksheets("#TempSheet#").Delete On Error GoTo 0 Worksheets.Add.Name = "#TempSheet#" Set Ws2 = Worksheets("#TempSheet#") For Each Ws In Worksheets If Ws.Name <> "#TempSheet#" Then Ws2.Cells.Clear Ws.UsedRange.Copy Ws2.Range("A1").PasteSpecial TRANSPOSE:=True Ws.Cells.Clear Ws2.UsedRange.Copy Ws.Range("A1") End If Next Ws Ws2.Delete Application.CutCopyMode = False Application.DisplayAlerts = True Application.ScreenUpdating = True   End Sub

---

Bonjour
Et sans vouloir parler du reste de ton code, assez surprenant à divers titres .
As-tu conscience de ce que fait ceci :

Citation:

---

If Ws.Name <> "#TempSheet#" Then

---

?
Il "traite" justement toutes les feuilles dont le nom n'est pas "#TempSheet#"

Citation:

---

Envoyé par unparia

Bonjour
Et sans vouloir parler du reste de ton code, assez surprenant à divers titres .
As-tu conscience de ce que fait ceci :

?
Il "traite" justement toutes les feuilles dont le nom n'est pas "#TempSheet#"

---

Je pense avoir compris cela, le code est assez suprenant raison pour laquelle je veux de l'aide

merci

Salut.

Si tu ne souhaites traiter qu'une feuille, tu ne dois pas boucler sur toutes tes feuilles.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub TRANSPOSE() Dim Ws As Worksheet, Ws2 As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Worksheets("#TempSheet#").Delete On Error GoTo 0 Worksheets.Add.Name = "#TempSheet#" Set Ws2 = Worksheets("#TempSheet#") Set Ws = Worksheets("blabla") Ws.UsedRange.Copy Ws2.Range("A1").PasteSpecial TRANSPOSE:=True Ws.Cells.Clear Ws2.UsedRange.Copy Ws.Range("A1") Ws2.Delete Application.CutCopyMode = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

---

je n'aime pas la programmation par gestion d'erreur, et en cas de plantage, il faut noter que ton code ne passera pas par la remise à TRUE de DisplayAlerts, ce qui pourrait causer des soucis pas la suite. Cela étant, c'est fonctionnel.

re
Bonjour ceci te choppe la plage utilisée dans le sheets (1) et te la transpose dans le meme sheets sans passer par un sheets intermediaire

Code:

---

1 2 3 4 5 6 7

Sub test() With Sheets(1) tablo = .UsedRange.Value .UsedRange.Clear [A1].Resize(UBound(tablo, 2), UBound(tablo)) = Application.Transpose(tablo) End With End Sub

---

@Patrick,

Citation:

---

Envoyé par patricktoulon

re
Bonjour ceci te choppe la plage utilisée dans le sheets (1) et te la transpose dans le meme sheets sans passer par un sheets intermediaire

Code:

---

1 2 3 4 5 6 7

Sub test() With Sheets(1) tablo = .UsedRange.Value .UsedRange.Clear [A1].Resize(UBound(tablo, 2), UBound(tablo)) = Application.Transpose(tablo) End With End Sub

---

---

En bousillant les dates et les mises en forme au passage :?

Le 02/01/2018 devient le 01/02/2018...

@Djibos,

Tu pourrais également copier/coller directement dans la feuille TempSheet en transposant, puis supprimer la feuille "Blabla" et renommer la feuille "TempSheet" en "Blabla" puisque de toute façon tu la bousilles à un moment donné.