copier 3 lignes d'une même cellule dans 3 cellules différentes

Question

Mon pb est sur excel car je cherche un code pour faire la manipulation suivante:

Pour résumer: dans la cellule A1, j'ai 
-Nom sur une ligne
-Adresse sur une autre ligne
-Ville sur une autre ligne

et je voudrais avoir
-Nom en B1
-Adresse en C1
-Ville en D1

Merci
La guigne

izords · Answer

Voici le code a mettre dans le visual basic editor de excel 

Private Sub CommandButton1_Click()
    Dim maString As String
    maString = Feuil1.Cells(1, "A")
    Feuil1.Cells(1, "B") = Mid(maString, 1, InStr(1, maString, Chr(10)) - 1)
    maString = Mid(maString, InStr(1, maString, Chr(10)) + 1, Len(maString))
    Feuil1.Cells(1, "C") = Mid(maString, 1, InStr(1, maString, Chr(10)) - 1)
    maString = Mid(maString, InStr(1, maString, Chr(10)) + 1, Len(maString))
    Feuil1.Cells(1, "D") = Mid(maString, 1, Len(maString))
End Sub

izords · Answer

Salut j'ai encore mieux pour toi

Dim maString As String
Dim montab

maString = Feuil1.Cells(1, "A")

montab = Split(maString, Chr(10), -1, vbBinaryCompare)

Feuil1.Cells(1, "B") = montab(0)
Feuil1.Cells(1, "C") = montab(1)
Feuil1.Cells(1, "D") = montab(2)

End Sub

Copier 3 lignes d'une même cellule dans 3 cellules différentes

2 réponses

Discussions similaires