Discussion :

[noel_kos]

Bonjour à tous

Je sollicite votre aide pour la création d'un petit macro qui pourrai me faire gagner de nombreuse heure.

Dans une cellule j'ai :

'[Name],Mr moi
[Serial Number], 12345678
[Send Date],05/12/12
[texte],12345
[Texte2],123456
[Texte3],123456
[Texte4],123456

Je souhaiterais que chaque ligne soit séparer dans des colonne différente.
N'eyan pas de connaissance en prog excel je fait appel a votre savoir.

Merci d'avance

[fring]

Bonjour,

Ci-dessous un exemple pour extraire les lignes de texte de la cellule A1 et réinjection de chaque ligne dans les cellules A1, B1, C1, D1, etc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim strTxt() As String, i As Integer
 
strTxt = Split(Range("A1"), Chr(10))
 
For i = LBound(strTxt) To UBound(strTxt)
    Cells(1, 1 + i) = strTxt(i)
Next
 
End Sub