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

KatleenR · 12 Mai 2022

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 · 12 Mai 2022

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 · 12 Mai 2022

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 :

VB:

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 · 20 Mai 2022

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 · 24 Mai 2022

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.

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

KatleenR

XLDnaute Nouveau

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

KatleenR

XLDnaute Nouveau

KatleenR

XLDnaute Nouveau

Pièces jointes

Discussions similaires