XL 2010 [RESOLU] Supprimer les retours à la ligne vides dans une cellule

[ralph45]

Bonjour le forum,

Dans le fichier joint exemple, j'ai en champ 2 des données avec retours à la ligne...

1° Certains sont normaux et doivent perdurer ;

2° D'autres sont inutiles, lorsqu'il n' y a plus de valeurs suivantes.
--> Je désirerai supprimer ceux-ci en masse (comme en colonne F), sachant que la base existante contient des milliers de lignes

Encore merci de votre aide !

 

[Dranreb]

Bonjour.

Sub SuprRetFin()
Dim T(), L&, C&, S$(), N&
T = Selection.Value
For L = 1 To UBound(T, 1): For C = 1 To UBound(T, 2)
   If VarType(T(L, C)) = vbString Then
      S = Split(T(L, C), vbLf)
      For N = UBound(S) To 0 Step -1
         If S(N) <> "" Then Exit For
         Next N
      If N >= 0 Then ReDim Preserve S(0 To N): T(L, C) = Join(S, vbLf) Else T(L, C) = Empty
      End If: Next C, L
Selection.Value = T
End Sub

 

[ralph45]

Merci, Dranreb !!

Je teste le code et te tiens au courant !

 

[ralph45]

Génial, Dranreb !!

Fonctionne à 100% !

Merci beaucoup...