Macro pour mise en forme

Question

Je dois extraire des données et les formater en Excel afin de les importer dans une application selon un template spécifique. Malheureusement, je ne peux les recevoir dans une fichier Excel. Or, je dois les convertir, car leur format ne respecte pas le template! Pour l'instant, je procède en 3 étapes : Changer le format d'une feuil vierge en texte (par macro) Copier-coller les données dans la feuil vierge en A2 Exécute la macro de mise en forme L'onglet rouge de mon fichier montre les données si je faisais un bête copier-coller dans une feuille. L'onglet jaune montre le résultat obtenu avec la macro que j'ai tenté de développer. Et l'onglet vert, montre le résultat souhaité. Cela dit, j'aurais besoin d'un coup de pouce pour bonifier et améliorer la macro. J'aimerais que chaque caserne (Colonne B) soit associé à sa division (colonne A), voir Master. Et que chaque numéro de caserne et de groupe soit nommé : exemple Division 7, Caserne 50, Groupe 4, etc. J'aimerais aussi, pour éviter d'autre manipulation, que la macro s'exécute sur les données copiées, et non pas sur des plages spécifiques. D'où j'extrais les données, il arrive parfois que certaines d'entre-elles n'aient pas toujours le même format, celles-là je n'aurais pas le choix de les modifier manuellement avant d'appliquer la macro Étape 2. Merci pour votre précieuse aide. A+...

Theze · Answer

En exécutant ta macro, je n'obtiens pas les même résultats que toi et je m'interroge sur la nécessité de répartir des dates sur trois colonnes qui donne des résultats plutôt surprenant ! Je te retourne ton classeur pour que tu constates par toi même (voir la feuille "Extratction_brute") : Pour faire coïncider casernes et divisions, je ne voit pas où on pourrait trouver une correspondance, je parle bien sûr des résultats que moi j'ai obtenus avec ta macro et d'ailleurs, je ne vois pas comment tu as pus obtenir les numéros de casernes à partir d'une date fractionnée ...

Theze · Answer

J'ai fais une petite fonction de conversion et pour ce qui est de faire correspondre caserne et groupe c'est très facile avec ta table de correspondance mais comme Excel transforme les valeurs en date et en plus à sa sauce, il est difficile de savoir si c'est le mois qui correspond, l'année ou le jour

J'ai fais un petit montage avec les données brutes comme je les ai dans le classeur, après conversion avec la fonction et celles que tu montre dans ta feuille, on peut voir que pour certaines c'est bon, il y a correspondance (il suffit juste de dispatcher les deux valeurs séparées par le tiret) mais pour d'autres non :

Voici une Sub pour la correspondance par rapport à ta feuille "Résultat-atteint" en prenant pour référence la colonne B de cette feuille et pour la plage des correspondances la plage "K2:S14". Adaptes à tes besoins :

Sub Attribution()

    Dim PlgCorres As Range
    Dim PlgGrade As Range
    Dim Cel As Range
    Dim Trouve As Range

    Set PlgCorres = Worksheets("Master").Range("K2:S14")

    With Worksheets("Résultat-atteint"): Set PlgGrade = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With

    For Each Cel In PlgGrade

        Set Trouve = PlgCorres.Find(Cel.Value, , xlValues, xlWhole)

        If Not Trouve Is Nothing Then

            Cel.Offset(, -1).Value = PlgCorres(1, Trouve.Column - PlgCorres(1, 1).Column + 1).Value

        End If

    Next Cel

End Sub

Theze · Answer

Bon et bien si ça te convient, je suis content d'avoir pu t'aidé...

i20100 · Answer

@Theze, Bravo pour ce nouveau look...

Theze · Answer

Merci, mais tu m'as devancé de peu si on peu dire donc bravo à toi aussi...