Remplacer caractère par saut de chariot

Bonjour,

Dans ce code j'aimerais remplacer le "/" de la ligne Valeur = Valeur & C.Offset(0, 4) & "/" par un saut de chariot. J'ai tout essayé : chr(10), (13), vbCr, vbCrLf, etc mais rien n'y fait... Quelqu'un aurait il une idée. Merci!

Option Explicit
Function RechercheUNIVERS_DMX(Nom As Range) As String
 Application.Volatile
 Dim WsS As Worksheet
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Integer
Dim Valeur As String
    Set WsS = Worksheets("Patch DMX")
        If Not IsEmpty(Nom) Then
            Tablo = Split(Nom, "/")
            For i = 0 To UBound(Tablo)
                Set C = WsS.Columns(1).Find(Tablo(i), , xlValues, xlWhole)
                If Not C Is Nothing Then
                    Valeur = Valeur & C.Offset(0, 4) & "/"
                End If
            Next i
            RechercheUNIVERS_DMX = Left(Valeur, Len(Valeur) - 1)
            Valeur = ""
        End If
End Function

Bonjour, je ne sais pas ce que c'est un "saut de chariot" mais avez vous essayé vblf ?

je souhaite un retour à la ligne, mais même vblf ne fonctionne pas

Le saut de ligne c'est vblf mais vous ne pouvez peut-être pas le faire dans une variable comme dans votre exemple...

mince

Sinon essayez quelque chose comme ça mais vu comment est exploité valeur ensuite je me demande si un retour à la ligne est vraiment ce qu'il vous faut:

valeur = Feuil1.[A1]
valeur = valeur & vbLf & (ce que vous voulez)
Feuil1.[A1] = valeur

vbcrlf est pourtant bien correct et devrait fonctionner, peut-on voir ton fichier ?

je colle ça dans mon code? Car si oui, il ne fonctionne plus

miyhun a écrit :

je colle ça dans mon code? Car si oui, il ne fonctionne plus

c'est pour cela que je demandais si tu pouvais nous mettre ton fichier "qui ne fonctionne plus".

Non il ne faut pas coller ça dans votre code, je laisse la main.

Oui pardon je n'avais pas vu ta réponse h2so4

Voilà le fichier

Bonjour,

Cette fonction est correcte avec :

Valeur = Valeur & C.Offset(0, 4) & vbLf

Mais il faut formater la celule en conséquence.

Cdlt.

Formater ? Pardon

Merde ça marche!

Formater = réactualiser

Je vois pas où je faisais l'erreur car je le faisais à chaque fois

Bon, en plus de mettre le code &vblf, il faut aussi cocher la mise en forme automatique de renvoi à la ligne

Merci à tous