Discussion :

[Zifnab]

Bonjour à tous, amis programmeurs

Je cherche à réaliser une macro Excel qui va retraiter automatiquement la mise en page d'un fichier particuliers.

Voilà ce qui se passe :
1. Importation d'un fichier .txt dans Excel toujours structuré de la même façon
2. Créer une "boucle" qui va tester chaque ligne du fichier dans le style suivant :

2a. si X "espace" avant mot / caractère, envoyer le contenu des caractères de la ligne à la colonne X
2b. si aucun caractère sur une ligne de la feuille Excel, arrêt de la macro

J'ai quelques connaissances de base en programmation, mais très peu en VBA, c'est pourquoi je me tourne vers vous pour m'orienter correctement (et ne pas perdre inutilement du temps).

Voici un exemple d'une feuille Excel :


Note : ce fichier texte est créé par une autre application (CMAP) qui génère automatiquement l'indentation.

Peut-être existe-t-il une autre manière d'y arriver plus simple...
Si vous avez des questions, je reste bien entendu à votre disposition

En vous remerciant pour votre aide,
Zifnab

[zazaraignée]

Ça m'amuserais de faire ça pour toi. Profites-en, ça ne m'arrives pas souvent.

De retour quand j'aurai quelque chose à te proposer.

zaza

[Zifnab]

[EDIT] (Destiné à traiter de mes avancées / découvertes sur la macro)

Le fichier .txt importé dans Excel (cf. ci-dessus) met toutes les données dans les cellules de la colonne A (par ligne bien sûr). Et en comptant ces maudits espaces, j'ai pu voir que ceux-ci étaient par groupe de 4.

En gros :
Les séparateurs se font sur 4 "espaces".
Donc :
Si 0 "espace" dans la cellule Ax -> couper / coller du contenu dans cellule Ax (on laisse comme tel donc)
Si 4 "espace" dans la cellule Ax -> couper / coller du contenu dans cellule Bx
Si 8 "espace" dans la cellule Ax -> couper / coller du contenu dans cellule Cx
etc. jusqu'à 92 "espace" (...)

Le truc, c'est comment compter les espaces sous VBA Excel...

@zazaraignée : lol ^____^ (mais merci !) de toute façon, je cherche aussi pour comprendre

[zazaraignée]

Justement, c'est une aubaine! Tu examines le code et pour chaque bidule que tu ne comprends pas, tu appuies sur F1. Sinon, tu demandes, je t'expliquerai.

[Zifnab]

Et bien, je n'en reviens pas ^____^. La partie qui me posait problème fonctionne grâce à ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim plage As Range, cellule As Range
    Dim chaine As String, texte As String
    Dim n As Integer
    ' Replacer le texte dans les bonnes colonnes selon l'indentation du texte 
    Set plage = Range(Range("A1"), Range("A1").End(xlDown))
    For Each cellule In plage
        chaine = cellule.Value
        texte = Trim(chaine)
        n = Len(chaine) - Len(texte)
        If n > 0 Then
            cellule.Offset(0, (n / 4)).Value = Trim(cellule.Value)
            cellule.Clear
        End If
    Next
    Set plage = Nothing

Je suis en train de la décortiquer pour mieux la comprendre, il y a en effet certaines syntaxes VBA que je ne connais pas.

En tout cas, un grand merci !
Ne me reste plus qu'à paufiner la macro pour qu'elle réponde à tous mes besoins (mais tu viens de faire au moins 70% de la macro).

[zazaraignée]

J'ai fait ce code assez rapidement. J'ai donc une recommandation. Remplace la fonction Trim par LTrim. Trim enlève les espaces à chaque bout de la chaîne. Donc, s'il y a des espace aussi à droite, ça faussera la donne.

LTrim enlève les espace à gauche seulement. Ce sera plus approprié, je crois.

[AlainTech]

Ce n'aurait pas été plus simple de faire un Replace (dans le fichier texte d'origine) de 4 espaces par un Tab et d'importer le fichier avec séparateur Tab???

[Zifnab]

Et bien j'y ai pensé (utiliser le "Tab"), mais ma macro buggait. J'ai renoncé quand Zaza m'a généreusement donné une solution quasiment toute faite (enfin je l'ai intégrée à ma macro multi-fonction).