Discussion :

[djibos]

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 :

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
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

[unparia]

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

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

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

[djibos]

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

[Pierre Fauconnier]

Salut.

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

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
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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

@Patrick,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Pierre Fauconnier]

@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é.