Autres Retour a la ligne à annuler. Excel 97-2003

[MICHA2000]

Bonjour à vous,

J'avoue être dans la panade, j'ai un fichier de 40000l ou je dois transformer ce texte:



In 18K red gold.
Convertible case with a gold-plated
silver chain.
Mother of pearl dial with a
miniature painting " Red Horse".
XXX serpentine hands in case color.
Automatic Haute Horlogerie
standard movement, cal 11BA13.
Crown and strap-bolts set
with sapphire cabochons.
Alligator full skin bracelet.
Ardillon buckle in 18K rose gold.
Weight of the watch : 176 gr
Net weight of the gold : 116 gr

En ce texte

In 18K red gold.
Convertible case with a gold-plated silver chain.
Mother of pearl dial with a miniature painting " Red Horse".
XXX serpentine hands in case color.
Automatic Haute Horlogerie standard movement, cal 11BA13.
Crown and strap-bolts set with sapphire cabochons.
Alligator full skin bracelet.
Ardillon buckle in 18K rose gold.
Weight of the watch : 176 gr
Net weight of the gold : 116 gr

Donc en remettant sur la même ligne les lignes qui sont en deux parties non terminées par un point. (J'ai souligné pour vous faire un exemple)

A savoir les textes sont presque tous différents mais gardent la même nomenclature..
Ca fait 48h que je suis dessus à la main pour 1200 lignes sur 40 000 ...

Dans le fichier les cases vertes correspondent aux textes modifiés qui sont ok
Les blancs eux n'ont pas été modifiés

Par ailleurs si vous avez aussi la possibilité de me dire comment, dans ce texte on peut supprimer ligne dans une cellule qui contient un caractère spécifique (ex buckle, la ligne qui contient ce mot sera supprimée)
Si vous avez une solutions...

Merci

 

[MICHA2000]

Êt Merci a Job75 par ailleurs (pardon) j'avoue que je suis sous l'eau avec cette saloperie

 

[TooFatBoy]

C'est vraiment dès qu îl y a un point --> Retour a la ligne comme un ctrl alt enter

Ben non.

 

[MICHA2000]

Comment ca ? ^^
Dans la première requete ce serait une macro qui effectue un renvoi charriot dès qu'elle voit un point.

Pour la seconde de qu'il y a un une ligne vide dans la cellule, elle est supprimée

 

[TooFatBoy]

Comment ca ?

Voir mon message #13.

[edit]
Voir mon message qui est devenu #12 suite à la suppression du message #12 de Job75 qui disait que tu n'avais pas fourni le fichier.
[/edit]

 

[job75]

Bonjour MICHA2000, Marcel32,

J'avoue ne pas comprendre le Résultat souhaité2 en colonne D.

Il manque des renvois à la ligne après les points.

A+

 

[MICHA2000]

Alors au temps pour moi (oui pour le ctrlf) Marcel32, Oui c'est normal Job75 car c'est une autre requête qui n'a pas de lien avec la première.

L'objectif est ainsi:
1ere requête : Macro faisant en sorte de faire un retour à la ligne comme un CTRL ALT ENTER dès qu'il y a un point.

La seconde est une macro qui supprime les lignes vides dans la même cellule.

Merci ^^

 

[TooFatBoy]

J'avoue ne pas comprendre le Résultat souhaité2 en colonne D.

D'après ce que j'ai compris, en colonne D il faut simplement supprimer les lignes vides.
Et visiblement, s'il y a deux lignes vides à la suite, il ne faut en supprimer qu'une.

 

[MICHA2000]

Oui exact

 

[MICHA2000]

Pour la premiere requete j'ai trouvé ca =SUBSTITUE(A3;".";CAR(10))
En revanche toujours bloque pour la seconde...

 

[TooFatBoy]

Pour la premiere requete j'ai trouvé ca =SUBSTITUE(A3;".";CAR(10))

À mon avis ce n'est pas suffisant.

 

[MICHA2000]

En tout cas sur la base de donnee ca marche, reste plus qu'à enlever les saut du lignes ... Je n'ai pas encore trouvé

 

[job75]

Les 2 macros :

Sub Ajout_Renvoi_Ligne()
Application.ScreenUpdating = False
With [A3:A5] 'à adapter
    .Replace " : ", "|", xlPart
    .Replace vbCrLf, " "
    .Replace vbCr, " "
    .Replace vbLf, " "
    .Name = "P" 'plage nommée
    .Value = [TRIM(P)] 'formule matricielle pour SUPPRESPACE
    .Replace ". ", "." & vbLf
    .Replace "|", " : " 'restitution
    .ColumnWidth = 255
    .Rows.AutoFit
    .Columns.AutoFit
End With
End Sub

Sub Supprimer_Paragraphe_vide()
Application.ScreenUpdating = False
With [C3:C5] 'à adapter
    .Replace vbCrLf, vbLf, xlPart
    .Replace vbLf & vbLf, vbLf
    .Rows.AutoFit
End With
End Sub

Nota : pout la 1ère macro j'ai ajouté un point après XX/10 en A5.

 

[MICHA2000]

Merci beaucoup ¨!