Microsoft 365 recopie contenu textbox dans plusieurs cellules

osiris150 · 22 Juillet 2022

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 · 22 Juillet 2022

Hello

un essai ici

VB:

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 · 22 Juillet 2022

Bonjour vgendron,

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

Microsoft 365 recopie contenu textbox dans plusieurs cellules

osiris150

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

osiris150

XLDnaute Occasionnel

Discussions similaires