Copier coller sans retour à la ligne

[claudy]

Bonjour à tous...
J'ai une cellule dans laquelle j'ai fait un double retour à la ligne(Alt + Enter)...
Comment en VBA, effectuer un "Copier coller" de cette cellule, mais sans retour à la ligne, et séparé par une virgule?
Merci d'avance,
Claudy

 

[A_binouze_drinker_among_others]

bonjour

utilise la méthode getfromclipboard qui te permettra de stocker dans une variable la chaîne, puis à l'aide de la fonction substitute tu remplaceras les caractères chr(10) ou 13 par une virgule ,
etc.

 

[daniel]

une solution:

Private Sub CommandButton1_Click()

str_A = Sheet1.Range("B6").Value
int_A = Len(str_A)
Line = ""
For i = 1 To int_A
a = (Mid(str_A, i, 1))
If Asc(a) <> 10 Then
Line = Line & a
Else
Line = Line & ","
End If
Next i

Sheet1.Range("B12").Value = Line

End Sub

 

[A_binouze_drinker_among_others]

[B2] = Application.WorksheetFunction.Substitute([B2], Chr(10), ",")

 

[claudy]

ok...
merci à vous deux...
Pour la binouze:
sur mon Mac, je dois remplacer chr(10) par vblf
mais ça roule!
)
A+
Claudy