Macro pour transposer des données - à corriger SVP

borisparis Messages postés 87 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour,

j'ai une macro faite grâce à votre aide !

Il s'agit de mettre sur une même ligne des données d'une même personne qui sont sur deux lignes différentes. La personne est identifiée par un numéro unique.

La macro est ici : HCmtDW4A78X_macro-transposer.xlsm

Mon problème : lors de la transposition, seules les données à partir de la colonne F sont transposées. Je voudrais que tout soit transposé sauf le numéro unique.

Merci de votre aide,

Boris

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour

    Je pense qu'il y a juste une modif.
    ' on commence à la colonne 2 au lieu de la colonne 6
        For t = 2 To derncol
          i = i + 1
          Sheets(2).Cells(Ligne2, derncol2 + i) = Sheets(1).Cells(n, t)
          Sheets(2).Cells(1, derncol2 + i) = Sheets(1).Cells(1, t)
        Next t

    je te joins le fichier, avec la macro indentée (lisibilité)
    https://www.cjoint.com/c/HCmuGhHPCcB

    Cdlmnt
    0