Microsoft 365 transposer en colonne

[kenny]

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]

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]

Re

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

 

[kenny]

Bonjour Staple 1600,

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

 

[Staple1600]

Re

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

 

[sylvanu]

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

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]

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]

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]

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]

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

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]

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]

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]

Re

Ca doit être équivalent.

 

[kenny]

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]

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.