XL 2010 Macro automatique : ajout de ligne et compléter par des données

[KatleenR]

Bonjour,



Ci-joint un tableau avec sur les 7 premières lignes mon tableau excel de départ ; et à partir de la ligne 10 le tableau que je veux obtenir.



En gros, j'ai une base de données salariés avec sur 1 seule ligne toutes les informations d'un salarié.

Afin de réaliser un import dans un SIRH, je dois obtenir 1 ligne pour chaque données d'un collaborateur.

Il faudrait donc pour voir ajouter dès que l matricule change; autant de ligne qu'il y a de données, et en plus ajouter le nom des champs des colonnes en face des données concernées.



J'espère avoir été claire .



Merci pour votre solution si vous en avez une

 

[mapomme]

Bonjour @KatleenR
Bienvenue sur XLD

Une première méthode sans macro avec des formules, c'est plus amusant .

Recopier les formules en I1, J1, K1 vers le bas jusqu'à obtenir des lignes de cellules vides.

Si vous tenez vraiment à une macro, attendez quelques instants...

 

[mapomme]

Re,

La macro met à jour la ventilation à chaque fois que la feuille "Résultat" est sélectionnée.
Le code est dans le module de la feuille "Résultat".
Le code :

Private Sub Worksheet_Activate()
Dim t, r, i&, j&, k&
   With Sheets("Feuil1")
      t = Intersect(.Range("a1").CurrentRegion, .Columns(1).Resize(, 7))
   End With
   ReDim r(1 To 6 * UBound(t) - 1, 1 To 3)
   For i = 2 To UBound(t)
      For j = 2 To UBound(t, 2)
         k = k + 1
         r(k, 1) = t(i, 1)
         r(k, 2) = t(1, j)
         r(k, 3) = t(i, j)
      Next j
   Next i
   Columns(1).Resize(, 3).Clear
   Range("a1").Resize(UBound(r), UBound(r, 2)) = r
   Range("a1").CurrentRegion.Borders.LineStyle = xlContinuous
   Columns(1).Resize(, 3).AutoFit
End Sub

 

[KatleenR]

Bonjour @mapomme ,

Pardonnez moi pour ce délai de réponse !! les alertes sont arrivées en spam!
Je regarde tout de suite votre proposition.

MErci

 

[KatleenR]

Bonjour @mapomme ,

C'est incroyable ce que vous avez fait.
J'ai une préférence pour la macro !!

J'ai un deuxième fichier à mettre en forme. J'ose espérer que vous pourrez m'aider à nouveau .

C'est a peu de chose près le même objectif, mais avec plus d'infos et des colonnes à créer.
voir fichier ci-joint.