Deconcatener si NBVAL > 38

Bonjour a tous ,

Est il possible de de-concaténer ou scinder une cellule texte si le nombre de caractère de celle ci

est supérieur a 38

Dans mon exemple joint, je ne dois pas avoir plus de 38 caractères dans la colonne E2, est il possible de scinder en 2 et mettre le texte restant en D2.

Dans l'Ideal , mettre le max de caractère en E2 et couper a l'endroit d'un "espace" et mettre le texte restant en D2

Merci bcp

Bonjour

Rajoute ca a ta macro de filtre

Dim c As Range

For Each c In Range("e:e")
If Len(c) >= 38 Then
c.Offset(0, 1).Value = Right(c.Value, Len(c.Value) - 38)
c.Value = Left(c.Value, 38)
End If
Next

Cdlt

Rebonour,

en paufinant un peu ....

Merci bcp, cette solution me convient parfaitement

Dim c As Range

For Each c In Range("e:e")
If Len(c) >= 38 Then
c.Offset(0, 1).Value = Right(c.Value, Len(c.Value) - 38)
c.Value = Left(c.Value, 38)
End If
Next