celle ci fonctionne mais supprime tout:
Bijour,
Voilà mon soucis,
je suis un noOb énorme.
J'ai un fichier excel de clients que je voudrai utiliser pour faire du publipostage.
Mon problème c'est qu'il y'a des retours chariots dans les celule excel. (ex 4 lignes pr l'adresse).
J'aimerai faire une macro qui supprimme les retours chariots qui sont vides après.
Actuellement j'arrive à faire çà
Sub RemoveEnters()
Cells.Replace What:=Chr(10), Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
Mais çà me supprime tout les retours chariots.
J'ai celle-ci mais çà marche pas du tout:
Sub test()
Dim CPT As Integer
Dim STOC As String
Dim WORD As String
STOC = ActiveCell.Value
CPT = 1
WORD = ""
Do While CPT <= Len(STOC)
If Mid(STOC, CPT, 1) <> Chr(10) Then
WORD = WORD & Mid(STOC, CPT, 1)
CPT = CPT + 1
Else
WORD = WORD & " "
CPT = CPT + 1
End If
Loop
ActiveCell.Value = WORD
End Sub