Macro : ajouter des lignes et déplacer des données

Résolu
KatleenR Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
via55 Messages postés 14512 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
A voir également:

8 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut dans ton premier message > les trois petits points)

Cdlmnt
1
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
0
KatleenR Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Voici le fichier. entre temps pas mal de choses ont changé, je dois ajouter des colonnes également

https://www.cjoint.com/c/LEymWu5mFTG
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour à tous les deux

à tester
https://www.cjoint.com/c/LEyoq6FJamB

Cdlmnt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
KatleenR Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour @ccm81,

Génial ta Macro.
En revanche ça ne fonctionne pas si on a 300 ligne :)
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
ç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 1
Public 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
0
KatleenR Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Ca marche!!
Merci beaucoup!!! c'est vraiment top!!
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour

Voilà une possibilité par macro - explications dans le fichier
https://www.cjoint.com/c/LEyq7SfU6Ye
0