Microsoft 365 transposer en colonne

kenny · 17 Janvier 2021

Bonjour,

J'aimerais transposer les données de ma feuille 1 en colonne comme dans l'onglet 2 (je le fais avec collage spécial transposé). dans mon onglet remplissage tableau reporter les données transposées car chaque semaine de l'année j'aurais ce fichier.

En sachant que dans ma feuille 1 je peux avoir plus de nom donc pas limité à Dupont 33.
Pourrait -on le faire par VBA Excel.

Merci d'avance (fichier test joint)

Staple1600 · 17 Janvier 2021

Bonjour

On peut ne pas le faire en VBA.
Puisque tu disposes d'Office 365
On peut utiliser PowerQuery
(En quelques clics, tout à la souris)
Interessé-e?

Staple1600 · 17 Janvier 2021

Re

Voici un avant-gout
Ci-dessous les étapes suivies

kenny · 17 Janvier 2021

Bonjour Staple 1600,

Biens sur je suis preneur.
Pour ma compréhension, on peut pas faire de macro avec office365 ??

Staple1600 · 17 Janvier 2021

Re

Ce qui donnera un beau tableau structuré comme ci-dessous

sylvanu · 17 Janvier 2021

Bonjour Kenny,
Un exemple en PJ s'inspirant beaucoup de l'enregistreur de macro :

VB:

Sub TransposeTableau()
    Application.ScreenUpdating = False
    ' Suppression du tableau transposé existant
    Sheets("transposé").Select
    Columns("A:Z").Delete Shift:=xlToLeft
    ' Copie du tableau initial
    Sheets("Feuil1").Select
    Range("A1").CurrentRegion.Copy
    ' Collage du tableau transposé
    Sheets("transposé").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Cells.Select
    ' Mise en forme largeur colonne
    Cells.EntireColumn.AutoFit
    Range("A1").Select
    ' Vide le presse papier
    Application.CutCopyMode = False
End Sub

kenny · 17 Janvier 2021

Staple1600 à dit:
Re

Ce qui donnera un beau tableau structuré comme ci-dessous
Regarde la pièce jointe 1091945

Merci en effet c'est tres beau et pourrais je avoir le déroulé de la manip ;o))
merci

Staple1600 · 17 Janvier 2021

Re

Si.
Mais avec 365 (et depuis Excel 2013) Excel dispose d'un puissant outil.
POWERQUERY
Et comme me disait mon maître tibétain quand j'apprenais les rudiments d'Excel dans les Alpes bavaroises pendant l'hiver 54
"Toujours utiliser les fonctions natives d'Excel avant de faire ALT+F11"
Donc c'est ici ce que je voulais dire

Utilisons la Puissante Requête plutôt que le VBA.

C'est plus ergonomique, dynamique et actualisable.

Staple1600 · 17 Janvier 2021

Re

Alors pour le déroulé
1) Tu sélectionnes ton tableau
2) Tu cliques sur l'onglet POWERQUERY
4) Tu cliques sur A partir d'un tableau...

Tu y es?

kenny · 17 Janvier 2021

sylvanu à dit:

Bonjour Kenny,
Un exemple en PJ s'inspirant beaucoup de l'enregistreur de macro :

VB:

Sub TransposeTableau()
    Application.ScreenUpdating = False
    ' Suppression du tableau transposé existant
    Sheets("transposé").Select
    Columns("A:Z").Delete Shift:=xlToLeft
    ' Copie du tableau initial
    Sheets("Feuil1").Select
    Range("A1").CurrentRegion.Copy
    ' Collage du tableau transposé
    Sheets("transposé").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Cells.Select
    ' Mise en forme largeur colonne
    Cells.EntireColumn.AutoFit
    Range("A1").Select
    ' Vide le presse papier
    Application.CutCopyMode = False
End Sub

Merci beaucoup Sylvanu,
Ta méthode fonctionne tres bien aussi

Staple1600 · 17 Janvier 2021

Re

kenny
Donc on oublie le déroulé et le pas à pas ?
parce que je t'attends pour la suite de mes explications depuis le message#9

EDITION: Bonjour sylvanu

kenny · 17 Janvier 2021

Staple1600 à dit:
Re

Alors pour le déroulé
1) Tu sélectionnes ton tableau
2) Tu cliques sur l'onglet POWERQUERY
4) Tu cliques sur A partir d'un tableau...

Tu y es?

Staple,
Je vois PowerPivot mais pas PowerQuery

Staple1600 · 17 Janvier 2021

Re

Ca doit être équivalent.

kenny · 17 Janvier 2021

kenny à dit:
Staple,
Je vois PowerPivot mais pas PowerQuery

ah oui j'ai trouvé dans j'ai une page de requête qui c'est ouvert

sylvanu · 17 Janvier 2021

Bonjour Staple,
Depuis la nouvelle release j'ai l'impression que les refresh ne se font pas.
Je livre, il n'y a personne puis quelques temps plus tard des messages arrivent avant le mien. Désagréable.
Donc mes respects dominicaux.

Microsoft 365 transposer en colonne

kenny

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

kenny

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

kenny

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

kenny

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

kenny

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

kenny

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires