Retour à la ligne dans cellule

[Riquet35]

Bonjour,

J'ai un problème avec des cellules contenant des retours à la ligne (obtenus à partir de ALT+ENTER). Je voudrais remplacer ceux-ci par un tiret. J'ai essayé plusieurs solutions mais sans succès. Si quelqu'un à une solution... merci d'avance.

Cordialement

Eric Blanchais

 

[myDearFriend]

Bonjour Riquet,

Je te propose le code ci-dessous (comme dans l'exemple joint) :

Private Sub btn_mDF_Click()
Dim C As Range
For Each C In Selection
'Pour les valeurs non numériques
If Not IsNumeric(C.Value) Then
C.Value = RetChar(C.Value)
End If
Next C
End Sub

Private Function RetChar(Chaine As String) As String
'Remplacer les retours chariot par '-'
Dim Caract As Integer
Dim i As Integer
For i = 1 To Len(Chaine)
If Mid(Chaine, i, 1) = vbLf Then Mid(Chaine, i, 1) = "-"
Next i
RetChar = Chaine
End Function


Cordialement,
Didier_mDF

 

[Riquet35]

Bonsoir Didier,

Merci Didier, c'est tout à fait ce que je recherchais.

Cordialement - Eric Blanchais