Transformez votre bazar de données !

Si vos don­nées ressem­ble à ceci : 

Voici une par­tie de la solution !

Plus sérieuse­ment…

Si vos don­nées n’ont pas de colonne de date et qu’il y dupli­ca­tion de don­nées du même type sur plusieurs colonnes, alors ce nou­v­el util­i­taire devrait vous aider…

Voici donc un util­i­taire très pra­tique qui per­met de trans­former une table de don­nées mal organ­isée en quelque chose de plus pra­tique et efficace.
C’est une appli­ca­tion qui m’a pris un peu de temps à dévelop­per, donc prof­itez-en bien !

excel_vba_transformation_plage 1Cet util­i­taire fera fait l’ob­jet d’un cours VBA avancé, où j’ex­plique en détail com­ment il a été créée et com­ment il fonctionne.
Il est encore en test, donc si vous voyez des bugs ou des amélio­ra­tions, n’hésitez-pas !

Cliquez ici pour le télécharge­ment du fichi­er : transformer_plages.xlsm

Vous avez aus­si ci-dessous une vidéo sur le fonc­tion­nement de cette application.

N’hésitez pas à me faire des remar­ques ou à remon­ter des bugs pour que je les intè­gre dans l’application.

A bien­tôt.

Gaë­tan

Pour marque-pages : Permaliens.

5 réponses à Transformez votre bazar de données !

  1. Krysscool dit :

    Bon­jour Gaétan,

    Encore mer­ci pour ce partage et tout ce que tu proposes.

    Pour info, la vidéo n’est pas acces­si­ble sur mon Chrome. pas de pb avec IE.

    Bonne journée

    Kryss

  2. Gaetan dit :

    Bon­jour Krysscool,

    Mer­ci pour le retour, il faut que je vois ce qui se passe.

    Je viens de tester sur mon chrome et ca fonc­tionne correctement.
    Je vais tester sur d’autres ordi­na­teurs ou pass­er la vidéo en mp4

    Cor­diale­ment

    Gae­tan

  3. Laurent27 dit :

    Cool, mer­ci.
    J’au­rai besoin d’un coup main Inser­er La colonne E et F dans cette ligne de com­mande . merci
    Sor­tie ====> Mouvement
    derligjourn = derligjourn + 1
    ‘je par­cours les lignes des sorties
    For Each C In Sheets(“Sorties”).Range(“A4:A” & derlig)
    ‘je m’as­sure que la sor­tie n’est pas vide pour éviter une inser­tion d’une ligne vide
    If C “” Then
    ‘je saisie que c’est une sortie
    Sheets(“MVT”).Range(“A” & derligjourn).Value = “Sor­ties”
    ‘je saisie la designation
    Sheets(“MVT”).Range(“A” & derligjourn).Offset(0, 1) = C
    ‘je saisie la quantité
    Sheets(“MVT”).Range(“A” & derligjourn).Offset(0, 2) = C.Offset(0, 1)
    ‘je saisie la date
    Sheets(“MVT”).Range(“A” & derligjourn).Offset(0, 5) = Date
    ‘j’in­cre­mente le numéro de ma derniere ligne
    derligjourn = derligjourn + 1
    End If
    Next

  4. Gaetan dit :

    Bon­jour Laurent,
    Sans le fichi­er, c’est un peu dif­fi­cile de voir ce qui se passe.
    Vous pou­vez me l’en­voy­er par email.
    Cordialement
    Gaetan

  5. SKS14 dit :

    Bon­jour Gaëtan

    l’in­verse est-il fais­able ? sur un critère unique colonne A ?

    Mer­ci

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.