Effectuer une transposée

Version imprimable

06/12/2018, 08h52
MamaB

Effectuer une transposée

Bonjour,
Je voudrais mettre en place une macro qui me permettrait au niveau de ma feuille « SYNTHESE » qui contient 43 colonnes et 33 lignes, de faire une inversion, c’est-à-dire que les colonnes deviennent des lignes et les lignes deviennent des colonnes.
Merci de votre aide, car je ne trouve pas de solution.
Bien cordialement.
MamaB
06/12/2018, 09h13
unparia

Bonjour

Citation:

car je ne trouve pas de solution

Elle est dans la lecture et l'application de la méthode Transpose que tu trouveras à la rubrique WorksheetFunction.Transpose, méthode de ton aide VBA.
06/12/2018, 09h32
Menhir

Si c'est pour faire une seule fois, pas besoin de macro.
Il suffit de sélectionner tes données > Ctrl+C > Sélectionner une cellule d'une zone vide > Ruban Accueil > Coller > Collage spécial > Cocher "Transposée" > Ok

Si tu tiens absolument à le faire en VBA, en plus de l'instruction indiquée par unparia ( :coucou: ), tu peux faire une combinaison des méthodes Copy et PasteSpecial avec l'option Transpose à True.
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)
06/12/2018, 09h42
Guy7700

Bonjour,

Le support office (sans macro) : https://support.office.com/fr-fr/art...5-d0f862209744

Bàt,
06/12/2018, 10h43
patricktoulon

re

re
Attention a la transposition si il y a des formules dans les cellules ;)
06/12/2018, 10h45
MamaB
je viens de tester la méthode de unparia, cela fonction.
Code:

1 2 wsh3.Range("A1:AG51") = WorksheetFunction.Transpose(wsh2.Range("A1:AY33"))
j'ai la question suivante, lors de la transposition dans la feuille "RESULTAT" (wsh3), je perds les couleurs des cellules.
Y a-t-il un moyen de concerner le format des cellules lors de la transposition ?
Autre point pas de formule
Merci de votre retour.
Cordialement.
MamaB

re
exemple
transposition et reproduction format

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 test()
    transposition_on_other_sheets Sheets(1).Range("A1:f10"), Sheets(2).Range("B3")
End Sub
'
Function transposition_on_other_sheets(plage As Range, desti As Range)
    Dim cel As Range, plusL&, plusC&
    plusC = desti.Column - 1: plusL = desti.Row - 1    ' au cas ou la transposition ne demarrerait pas en "A1"
    desti.Resize(UBound(plage.Value, 2), UBound(plage.Value)) = Application.Transpose(plage.Value)
    For Each cel In plage
        With desti.Parent.Cells(cel.Column + plusL, cel.Row + plusC)
            If cel.Interior.Color <> vbWhite Then .Interior.Color = cel.Interior.Color
            .Font.Bold = cel.Font.Bold
            .Font.Italic = cel.Font.Italic
            .Font.Color = cel.Font.Color
            .NumberFormat = cel.NumberFormat
            .HorizontalAlignment = cel.HorizontalAlignment
            .VerticalAlignment = cel.VerticalAlignment
            .WrapText = cel.WrapText
            'etc...
            'etc...
            'reste les bordures et 2/3 details
        End With
    Next
End Function

reste a faire les bordures
et au final on pourrais me procéder par copy destination dans la boucle comme ca on a tout identique !!!!!! puisque que l'on a lbien ciblée et determiner chaque correspondance de cellule entre les deux sheets

comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    transposition_on_other_sheets_with_all_format Sheets(1).Range("A1:f10"), Sheets(2).Range("B3")
End Sub
'
Function transposition_on_other_sheets_with_all_format(plage As Range, desti As Range)
    Dim cel As Range, plusL&, plusC&
    plusC = desti.Column - 1: plusL = desti.Row - 1    ' au cas ou la transposition ne demarrerait pas en "A1"
     For Each cel In plage
        cel.Copy Destination:=desti.Parent.Cells(cel.Column + plusL, cel.Row + plusC)
    Next
End Function

;)

06/12/2018, 12h07
Menhir

Citation:

Envoyé par patricktoulon

Attention a la transposition si il y a des formules dans les cellules ;)

C'est comme pour un déplacé de cellule : généralement, Excel gère ça plutôt bien.
Mais il y a toujours des exceptions et il convient d'être vigilant et de vérifier le résultat.

Citation:

Envoyé par MamaB

j'ai la question suivante, lors de la transposition dans la feuille "RESULTAT" (wsh3), je perds les couleurs des cellules.
Y a-t-il un moyen de concerner le format des cellules lors de la transposition ?

Oui, en utilisant la méthode que j'ai donnée. :roll:
On a parfois l'impression de perdre son temps à aider certains... :calim2:

respect menhir;)

Code:

1
2
3
4
Sub test3()
    Sheets(1).Range("A1:f10").Copy
    Sheets("Feuil3").Range("C4").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub