Copier un textBox sur plusieurs lignes d'une feuille

Bonjour,

est ce qu'il est possible quand on rentre plusieurs lignes dans un TextBox (userform) et que l'on récupère le texte du textBox pour le mettre dans une colonne, que chaque ligne du textBox crée une ligne dans la feuille ? (pour l'instant l'ensemble du textbox est une seule ligne)

Je ne sais pas si je suis assez claire ...

Merci

Bonjour

Oui c'est possible. Il faut "couper" le textbox

Private Sub CommandButton1_Click()

Dim montexte() As String
Dim Maligne As Integer
With TextBox1
   'Découpe le contenu de la textbox par ligne
    montexte = Split(.Text, vbCrLf)
   'Parcourt le tableau montext (=chaque ligne). Ubound renvoie le numéro du dernier élément du tableau
    For Maligne = 0 To UBound(montexte)
         'Ecrit chaque ligne dans la cellule correspondante
        Feuil1.Cells(Maligne + 1, 1).Value = montexte(Maligne)

    Next Maligne
End With

End Sub

Cordialement

Christine