Modification automatisée du format de données

Version imprimable

13/08/2013, 10h33
Khask

Modification automatisée du format de données

Bonjour !

Je cherche une aide au sujet d'un fichier contenant plusieurs milliers de lignes mais qui est particulièrement mal foutu et que je voudrais transformer en vrai feuille de donnéess afin d'en faire ensuite une base dans Access avec formulaire de saisie et de recherche.

Je vais essayer d'être clair! C'est un classeur dans lequel figure plusieurs centaines de "fiches" qui ont la tête suivante:

Fiche 1
En colonne A: j'ai un intitulé de colonne (Référence Marchand) puis une cellule fusionnée sur 11 lignes (dans laquelle j'ai le nom de chaque Marchand)
En colonne B : un intitulé de colonnes (Libellés) avec 11 champs nommés (raison sociale, non du gérant...)
En colonne C et D: un intitulé de colonnes (Détails Entreprises puis Commentaires) avec sous chacun 11 champs
En colonne E : un intitulé de colonnes (Statut Dossier) en dessous duquel j'ai un champ fusionné sur 11 lignes
En colonne F : un intitulé de colonne (Etat S1 2013) en dessous duquel j'ai un champ fusionné sur 11 lignes

Fiche 2, ...Fiche n....la même chose.

Comment puis automatiser une remise en forme exploitable ensuite en BDD ?

Je vous remercie d'avance pour votre aide !

Khask :)

J'ai oublié de préciser que chaque fiche est séparée par une ligne vide.

Pouvez vous m'aider s'il vous plaît ?

Merci d'avance :calim2:
13/08/2013, 10h37
Daniel.C

Bonjour,

Mets un bout de classeur en pièce jointe, difficile de te répondre autremment.
13/08/2013, 10h41
Khask

1 pièce(s) jointe(s)

Extrait du fichier

Voilà un exemple de deux fiches successives...sauf que j'en ai....500 environ..;-)

1 pièce(s) jointe(s)

Regarde le classeur joint. Les résultats sont sur Feuil2. Voici la macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Formater()
    Dim Plage As Range, C As Range, Ligne As Long
    With Sheets("Feuil1")
        .[A:A,E:F].UnMerge
        Set Plage = .Range(.[B2], .Cells(.Rows.Count, 2).End(xlUp))
    End With
    With Sheets("Feuil2")
        Ligne = 1
        For i = 1 To Plage.Rows.Count Step 11
            Ligne = Ligne + 1
            .Cells(Ligne, 1) = Plage(i, 1).Offset(, -1)
            .Cells(Ligne, 24) = Plage(i, 1).Offset(, 3)
            .Cells(Ligne, 25) = Plage(i, 1).Offset(, 4)
            Plage(i, 1).Resize(11).Offset(, 1).Copy
            .Cells(Ligne, 2).PasteSpecial xlValues, Transpose:=True
            Plage(i, 1).Resize(11).Offset(, 2).Copy
            .Cells(Ligne, 13).PasteSpecial xlValues, Transpose:=True
        Next i
    End With
End Sub

13/08/2013, 15h32
Khask

Merci beaucoup pour ton aide...qui eut été absolument parfaite si mon fichier n'était pas pourri :aie:...je viens de m'apercevoir que certaines "fiches" ont 12 lignes sans en têtes de ligne et pas 11.. et certaines en ont dix de plus !

ca met un beau bazar avec des décalages de lignes... dans ces conditions, existe-t-il une solution ?

Bonne journée
K ;)
13/08/2013, 15h43
EngueEngue

Si tu défusionnes tes trucs oui.
13/08/2013, 16h07
Daniel.C

Bonjour, EngueEngue :

Citation:

Si tu défusionnes tes trucs oui.

C'est fait :

Code:

[A:A,E:F].UnMerge
13/08/2013, 16h10
Daniel.C

Citation:

je viens de m'apercevoir que certaines "fiches" ont 12 lignes sans en têtes de ligne et pas 11.. et certaines en ont dix de plus !

Est-ce qu'en partant de la ligne portant le nom du marchand et en se basant sur les libellés de la colonne B, on peut remplir Feuil2 ? Dans ce cas, que faire des lignes excédentaires ?