Supprimer des caractères et réorganiser en colonne

Bonjour,

Je n'avais pas remarqué que cette possibilité existait,

nouveau fichier

Bonne journée

Claude

Bonjour claude, le forum,

J'ai testé le nouveau code (ingénieux !). j'ai toujours un problème avec les lignes du type:

,,109,[473-484],1459.546,0,ENAEDMGNGCFK(1*BPL,1*Carbamidomethyl(C),1*Oxidation(M))

puisque j'obtiens dans ce cas, respectivement dans les colonnes a, b et c :

a b c

ENAEDMGNGCFK(1*BPL 1*Oxidation 1*BPL,1*Carbamidomethyl(C),1*Oxidation(M)

je ne comprends pas pourquoi...

Bonne journée,

Bien amicalement

Bonjour,

Sous réserve que les chiffres utilisés commencent après la 4ème virgule,

ce qui à l'air d'être le cas.

et seules ces lignes seront traitées

édit: je viens de m'apercevoir qu'en remplaçant cette ligne

                [barrer]'If A > 0 Then .Cells(i, "c") = Mid(f1.Cells(i, "a"), A, Len(f1.Cells(i, "a")))[/barrer]
                If A > 0 Then .Cells(i, "c") = Mid(f1.Cells(i, "a"), A, Len(f1.Cells(i, "a")) - A)

on peut supprimer celles-ci

                '--- supprime dernier caractère de droite (double apostrophe)
                [barrer]'.Cells(i, "c") = Mid(.Cells(i, "c"), 1, Len(.Cells(i, "c")) - 1)

[/barrer]

Bonne journée

Claude

Bonjour Claude, le forum,

c'est tout simplement parfait !!

Merci beaucoup de ton aide

Bonne journée,

Bien amicalement