Macro : ajouter des lignes et déplacer des données
Résolu
KatleenR
Messages postés
5
Statut
Membre
-
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
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 :)
Configuration: Windows / Edge 101.0.1210.39
8 réponses
-
De rien
Si c'est fini, peux tu mettre le sujet à résolu (en haut dans ton premier message > les trois petits points)
Cdlmnt -
Bonjour
Il a forcément une solution par macro en VBA
Pour cela il nous faut le fichier pas son image
Poster l'exemple du fichier sur cjoint.com (ne pas choisir la durée illimité car ça bug), faire créer un lien, le copier et revenir le coller ici dans un prochain message
Cdlmnt
Via
-
Bonjour,
Voici le fichier. entre temps pas mal de choses ont changé, je dois ajouter des colonnes également
https://www.cjoint.com/c/LEymWu5mFTG -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour @ccm81,
Génial ta Macro.
En revanche ça ne fonctionne pas si on a 300 ligne :) -
ça ne fonctionne pas si on a 300 ligne
mais si ;-()
Tu supprimes la ligne lifin = 7 et ça ira jusqu'à la dernière ligne renseignée colonne 1Public Sub ok() Dim li As Long, lifin As Long lifin = Cells(Rows.Count, 1).End(xlUp).Row lifin = 7 For li = lidebFBD To lifin Call Transfert(li) Next li End Sub
Cdlmnt -
-
Bonjour
Voilà une possibilité par macro - explications dans le fichier
https://www.cjoint.com/c/LEyq7SfU6Ye
