IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Excel Discussion :

Macro copier/coller transposer


Sujet :

Excel

  1. #1
    Futur Membre du Club
    Homme Profil pro
    cadre
    Inscrit en
    Août 2022
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : cadre
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Août 2022
    Messages : 10
    Points : 9
    Points
    9
    Par défaut Macro copier/coller transposer
    Bonjour à tous,

    Je bloque depuis plusieurs sur un besoin qui parait simple sur le papier.

    Je souhaite transposer des lignes en colonnes via une macro mais je n'y arrive pas...

    Rien de mieux qu'un exemple pour illustrer tout ça (cf. pièce jointe : Feuil1 mise en forme initiale et Feuil2 mise en forme souhaitée)

    Merci d'avance de votre aide

    Exemple transposer.xlsx

  2. #2
    Membre émérite
    Homme Profil pro
    ingénieur
    Inscrit en
    Mars 2015
    Messages
    1 120
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : ingénieur
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2015
    Messages : 1 120
    Points : 2 652
    Points
    2 652
    Par défaut
    Bonjour

    pas besoin de macro, vous transformez vos données en tableau (menu insertion/tableau)
    puis vous chargez vos données dans Power Query, vous sélectionnez les premières colonnes, vous dépivotez les autres colonnes afin d'avoir les dates en lignes
    enfin vous pivotez la colonne "Valeur" pour avoir les volumes en colonne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    let
        Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
        #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(Source, {"SITE", "Client", "Produit", "CATEGORIE", "Produit 2 ", "données"}, "Attribut", "Valeur"),
        #"Colonne dynamique" = Table.Pivot(#"Supprimer le tableau croisé dynamique des autres colonnes", List.Distinct(#"Supprimer le tableau croisé dynamique des autres colonnes"[données]), "données", "Valeur", List.Sum)
    in
        #"Colonne dynamique"
    Nom : Dépivot Pivot.gif
Affichages : 146
Taille : 1,73 Mo

    Stéphane

  3. #3
    Membre expert
    Homme Profil pro
    Formateur et développeur bureautique
    Inscrit en
    Mars 2007
    Messages
    1 494
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Formateur et développeur bureautique
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2007
    Messages : 1 494
    Points : 3 043
    Points
    3 043
    Par défaut
    Bonsoir

    MaxiRch, si vous ne vous y opposez pas, je me servirai de votre fichier comme exercice à réaliser pour mes futurs stagiaires.

    Bonne nuit

    Pierre Dumas

Discussions similaires

  1. Macro copier/coller transposer
    Par MaxiRch dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 17/08/2022, 09h22
  2. [A-00] macro copier coller
    Par nadege46 dans le forum IHM
    Réponses: 1
    Dernier message: 14/10/2008, 21h41
  3. Macro copier/coller avec tri
    Par Lechette dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/03/2008, 12h44
  4. Macro copier coller première cellule vide
    Par jul85 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 24/02/2008, 17h06
  5. Macro copier/coller colonne- insérer nouvelle colonne
    Par rembliec dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 15/11/2007, 16h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo