Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Reformatage de données brutes

  • Initiateur de la discussion Initiateur de la discussion KIM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

KIM

XLDnaute Accro
Bonjour le forum, bonjour les ami(e)s,
Je reçois une extraction brute de notre système de gestion. C'est un ensemble de blocs d'information qui commence par la ligne "Département" et se termine par "Total …" et entre les 2 il y a un complément d'informations pour l'entête de chaque bloc sur plusieurs lignes ainsi que les données de chaque bloc. Une centaine de blocs peuvent se retrouver dans cette extraction voir fichier joint (feuille dataserv_v1)
J'ai besoin de votre aide pour construire 2 feuilles:
- Feuille "Base_Data" dans laquelle je récupère les données de chaque bloc et je rajoute pour chaque ligne des données les informations de l'entète du bloc, voir fichier ci-joint
Le but est d'avoir toutes les données en format ligne.
- Feuille Recap dans laquelle je récupère une ligne par bloc qui regroupe les informations de l'entête de chaque bloc avec les informations de la ligne Total qui se trouve en fin du bloc, voir fichier joint.
Votre aide me permet de gagner beaucoup de temps et vous en remercie d'avance
Bien amicalement
 

Pièces jointes

Re : Reformatage de données brutes

Re

C'est cette boucle qu recupere les entetes

Code:
[COLOR=green]'pour toutes les valeurs de  les_entetes_A[/COLOR]
For n = LBound(les_entetes_A) To UBound(les_entetes_A)
[COLOR=green]'ecrire dans la feuille Base_Data sur la ligne ldbase colonne 1 et suivantes[/COLOR]
[COLOR=green]'(lbound d'un Array toujours=0) ,ce qu'il y a dans la feuille Dataserv_v1 ligne= celle[/COLOR] [COLOR=green]'ou Excel a repéré "Type" , colonne spécifié par l'Array les_entetes_A[/COLOR]
      Sheets("Base_Data").Cells(ldbase, n + 1) = Sheets("dataserv_v1").Cells(letype.Row, les_entetes_A(n))
    Next n
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
539
Réponses
5
Affichages
452
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…