Microsoft 365 recopie contenu textbox dans plusieurs cellules

[osiris150]

Bonjour à tous,

Je ne sais pas si ma demande est réalisable mais qui tente rien n'a rien
J'ai un textbox dans lequel je fais un collé de plusieurs numéros les uns au dessus de autres. J'aimerais que lorsque je clique sur copier ces numéros viennent se mettre dans les cellules ici dans l'exemple A2 à A 11.
En vous remerciant par avance
Cordialement

 

[vgendron]

Hello

un essai ici

Private Sub CommandButton1_Click()

With TextBox1
   TestText = .Value
End With

tabdata = Split(TestText, Chr(10))
Range("A1").Resize(UBound(tabdata, 1)) = WorksheetFunction.Transpose(tabdata)
End Sub

 

[osiris150]

Bonjour vgendron,

ça marche impeccable !! Merci beaucoup ;-)
Cordialement