Discussion :

[MamaB]

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

[unparia]

Bonjour

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.

[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 ( ), 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)

[Guy7700]

Bonjour,

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

Bàt,

[patricktoulon]

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

[MamaB]

je viens de tester la méthode de unparia, cela fonction.

Code :

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

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

[patricktoulon]

re
exemple
transposition et reproduction format

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

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

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

[Menhir]

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.

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.
On a parfois l'impression de perdre son temps à aider certains...

[patricktoulon]

respect menhir

Code :

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

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