daniel_a1 | Bonjour, j'ai dans une cellule excel un texte avec des retours à la ligne.
Je souhaiterais avec VBA recopier chaque ligne de texte dans une cellule distincte.
Quelqu'un sait-il comment faire ?
J'ai commencé avec ça mais je m'emmèle les pinceaux avec la boucle car le compteur i doit être remis à 1 après que ma chaîne de charactère soit coupée.
Code :
- Sub formating()
- Dim c As String
- Dim str As String
- str = Worksheets("Download" ).Cells(1, 1)
- str = Right(str, Len(str) - 4)
- j = 1
- For i = 1 To Len(str)
- c = Mid(str, i, 1)
- If c = Chr(10) Then
- Worksheets("User" ).Cells(j, 1) = Left(str, i - 1)
- j = j + 1
- str = Right(str, Len(str) - Len(Left(str, i - 1)))
- ' ElseIf c = Chr(13) Then
- ' Worksheets("User" ).Cells(j, 1) = Left(str, i - 1)
- ' j = j + 1
- ' str = Right(str, Len(str) - Len(Left(str, i - 1)))
- End If
- Next i
- End Sub
|
Merci |
