Copier une cellule avec plusieurs ligne de texte

Bonjour,

Je cherche à copier le contenu d'une cellule (qui comporte plusieurs ligne de texte), en plusieurs cellule

Exemple copier cellule "B3" en "B6" "B7" etc ...

Merci d'avance.

En image:

Bonjour,

Function DISSOCIERTXT(tx As String)
    Dim Txt
    Txt = Split(tx, Chr(10))
    DISSOCIERTXT = WorksheetFunction.Transpose(Txt)
End Function

Placer la fonction ci-dessus dans un module standard.

Sélectionner les cellules B6 à B8

Taper la formule :

=DISSOCIERTXT(B3)

Valider par Ctrl+Maj+Entrée (fonction matricielle).

Le contenu de B3 sera réparti en B6:B8 en fonction des sauts de ligne.

Cordialement.

Bonjour,

à tester,

Sub test()
x = Split(Range("B3"), Chr(10))
For i = LBound(x) To UBound(x)
Range("B" & i + 6) = x(i)
Next
End Sub

Merci beaucoup

Merci pour ce retour, au plaisir!

pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!

Édit: si votre problème est résolu, merci de clôturer ce message