Macro pour transposer des données - à corriger SVP

Fermé
borisparis Messages postés 79 Date d'inscription vendredi 21 août 2015 Statut Membre Dernière intervention 9 août 2023 - 12 mars 2018 à 20:35
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 12 mars 2018 à 21:33
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




A voir également:

1 réponse

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié le 12 mars 2018 à 21:35
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