VBA: Comment supprimer les chr(10) en gardant la mise en forme

[MJ13]

Bonjour à tous

Je cherche un moyen en VBA pour supprimer les doubles chr(10) d'une cellule mais en gardant les textes en gras ou pas de façon a voir chaque ligne avec un numéro dans la cellule.


Merci d'avance 🙂.

 

[Roland_M]

Re : VBA: Comment supprimer les chr(10) en gardant la mise en forme

bonjour,

perso j'aurai essayé ceci (à voir tapé à la volée !)

while instr(cell.Value,chr(10)): cell.Value = Replace(cell, Chr(10), ""):wend


soit:

Sub Remplace_CHR10()
On Error Resume Next
For Each cell In Selection
 While InStr(cell.Value, Chr(10)): cell.Value = Replace(cell, Chr(10), ""): Wend
Next
End Sub

EDIT: par-contre pour la mise en forme !?

 

[MJ13]

Re : VBA: Comment supprimer les chr(10) en gardant la mise en forme

Bonjour Roland

Merci pour ce code, mais cela me fait pareil en supprimant le gras, si il y en a 🙁.

 

[MJ13]

Re : VBA: Comment supprimer les chr(10) en gardant la mise en forme

Bonjour à tous

Du coup, j'ai cherché un peu, ce n'était pas facile 😕.

Voici une solution 🙂.