Copier coller sans retour à la ligne

A

A_binouze_drinker_among_others

Guest

• 7 Avril 2003

• #2

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.

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 7 Avril 2003

• #3

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

 

Vote positif 0 Vote négatif

A

A_binouze_drinker_among_others

Guest

• 7 Avril 2003

• #4

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

 

Vote positif 0 Vote négatif

C

claudy

Guest

• 7 Avril 2003

• #5

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

 

Vote positif 0 Vote négatif