2800 lignes a trier

Bonjour,

Je suis nouveau sur le forum novice sur excel et je n'ai pas eu le temps de fouiller pour trouver une réponse a mon problème

Je travail en Bureau d’étude, on utilise un soft de dessin qui nous permet de récupérer des donner sous format txt

J'aurai aimé avoir un beau truc avec excel pour faciliter les recherches sur ce fameux fichier

Donc quand je l'ouvre avec excel tout es la.

sauf que tout est sur la Colonne A comment je pourrai faire pour garder des choses sous la colonne A d'autres en B etc

Peut-on faire ça grâce a une macro?????

Merci d'avance

bonjour Saf68 le forum

oui on peut te faire cela mais il me faudrait au moins quelques lignes de ton fichier avec les explications de ce que tu souhaites obtenir et je te fais cela

a+

papou

Super

Merci de ton aide

En rouge j'aimerai bien le garder ds la colonne A

En bleu Colonne B

En vert Colonne C

Et tous les commentaires (en noir) dans la colonne D

Pour les filtres ça sera plus simple

Encore merci et bonne année

re Saf68 le forum

bon alors tu n'est pas très explicite mais on va y arriver

alors tu veux que si tu as trois lignes ligne 1 rouge ligne 2 verte ligne 3 bleu que l'on te mette dans la cellule A1 la rouge B1 la verte et C1 la bleu c'est bien cela????

et si maintenant tu as que 1 ligne verte et une ligne bleu on fait quoi ???

Et le texte en noir tu as des fois 50 lignes noires en dessous des trois lignes colorées, on fait quoi dans ce cas???

Tu veux pas me mettre dans la colonne L M N deux lignes du résultat à obtenir ??

a+

papou

Re,

Non en fais en rouge ce sont des ZONE

en bleu les PIPE

en vert les branche

dans les ZONE on a des PIPE qui sont eux mêmes divisé en BRANCH

Tout ce qui es noir ce sont des erreurs relevés

ZONE

PIPE

BRANCH

commentaires

commentaires

PIPE

BRANCH

commentaires

ZONE

PIPE

BRANCH

Un peu ds ce style tu pense que c'est possible???

J'avais mis des espaces pour bien comprendre en faite les ZONE en colonne A

Les PIPE en colonne B

Les BRANCH en colonne C

Et les commentaires en colonne D

Re Saf68 le forum

oui tout est possible quand j'aurai compris comment tu veux obtenir tes données à la fin

mais tu me réponds un long texte au lieu de me donner les quatre premières lignes que tu souhaites obtenir

je vais faire un essai de macro mais je vais perdre mon temps j'en suis sur enfin je vais faire

a+

papou

Bonjour,

Bonjour Papou

Un petit essai (0.04 s pour traiter tes 2498 lignes)

le code :

Sub transpose()
Dim Cel As Range
Dim Tblo()
Dim a
Dim DerLig As Long
Dim T As Single
T = Timer
DerLig = Cells(Rows.Count, "A").End(xlUp).Row
a = Range("A3:A" & DerLig).Value
ReDim Preserve Tblo(1 To UBound(a), 1 To 4)
For i = LBound(a) To UBound(a)
    Select Case Left(Trim(a(i, 1)), 4)
        Case "ZONE"
            Tblo(i, 1) = Trim(a(i, 1))
        Case "PIPE"
            Tblo(i, 2) = Trim(a(i, 1))
        Case "BRAN"
            Tblo(i, 3) = Trim(a(i, 1))
        Case Else
            Tblo(i, 4) = Trim(a(i, 1))
    End Select
Next i
With Sheets("resultat")
    .Cells.Clear
    .Range("A1").Resize(UBound(a), 4).Value = Tblo
End With
MsgBox Timer - T
End Sub

Le fichier :

Bonne soirée

Bonsoir Saf68 cousinhub le forum

bon alors avec ce que j'ai compris

voilà tu ouvres tu cliques et tu redis si le résultat correspond à ce que tu attends ???

a+

papou

re Saf68 cousinhub le forum

une autre version avec de la couleur

a+

papou

re bonsoir saf le forum

bon alors voilà une version 3 avec couleur et peut-être que si saf68 répond on saura si c'est ce qu'il veut

a+

papou

Bonsoir à tous,

salut cousinhub, paritec,

Je suis admiratif de vos codes, mais comme je ne maitrise pas les "tablo",

il m'est difficile de les modifier,

serait-il possible de mettre ZONE, PIPE et BRANCH sur la même ligne ?

de manière à obtenir une base de données.

encore bravo !

Claude

Bonjour Claude,

oui on peut mais c'est pas ce que saf veut enfin je pense!!

moi je lui avait demandé quelques lignes du résultat souhaité et il n'as pas voulu le faire alors ???

mais pour toi je te le ferai demain matin

a+

Papou

Merci Papou,

en attendant j'ai trouvé çà,

il suffit de décaler les lignes, avec en fin de macro

    Cells(1, "b").Resize(1, 3).Delete Shift:=xlUp
    Cells(1, "c").Resize(1, 2).Delete Shift:=xlUp
    Cells(1, "d").Delete Shift:=xlUp

Claude

Bonjour Claude le forum

moi je pensais que tu voulais aussi les lignes de la colonne D en colonne??

a te relire

a+

papou

Merci a tous je viens d'arriver au boulot j'ai pas encore tout regarder mais franchement "LA CLASSE"

Bonjour,

Désolé pour hier mais après le boulot je ne me suis pas connecté au net a la maison

Quelle belle surprise en arrivant au boulot ce matin la version 3 me plait bien

C'est du bon boulot tout ça.

C'est quand même une langue bizarre le visual basic

Merci........

T' le meilleur papou

Par contre ds la version 3 si je veux faire un filtre auto sur la colonne A les ZONE

Et que je sélection une ZONE en particulier

pourquoi je ne vois pas les PIPE les BRANCH plus les commentaires sous chaque BRANCH

A moins que je sache pas faire correctement la manip ..... ça c'est possible aussi.

bonjour saf68 le forum

bah c'est trés simple, parce que hier je t'ai demandé de me faire un exemple de ce que tu souhaitais obtenir et tu n'as pas répondu, donc j'ai fait comme je pensais, maintenant si c'est pas cela que tu veux tu fais un exemple et là je comprendrai

a+

papou

Encore désolé pour hier

dans le fichier joint j' ai tout effacer a part une ZONE dans laquelle on trouve trois PIPE avec une ou plusieurs BRANCH

C'est ce que j'aimerai obtenir en faisant un filtre sur la Colonne A (ZONE)

Sur la ZONE en question

Je sais pas si mes explications sont clair .....

En tout cas merci encore pour le coup de main

Bonjour à tous,

Ce que j'ai cru comprendre,

ici, j'ai compléter le code de cousinhub pour faire une BDD

il nous dira si meilleure solution.

à voir !

Bonne journée

Claude

Bonjour,

C'est pas mal aussi comme solution

Comme ça les recherches sont simplifiées

On peut facilement retrouver les infos

Merci Claude