Coller le contenu de plusieurs textbox dans une feuille

[MANUTR808]

Bonjour,

J'ai un formulaire dans lequel j'ai une bonne dizaine de textbox.
J'aimerai lorsque je clique sur un bouton copier le contenu de tous les textbox et les placer à différents endroits de ma fauille. Est-ce possible de faire cela en une seule fois ?

Merci à vous

 

[petchy]

bonsoir Manutr808 et le forum
volia un code, à toi de l'adapté pour tes besoins

Private Sub CommandButton1_Click() 'bouton validée la saisie
Dim rep As Byte
Dim feuille As String
Dim client
feuille = "ARCHIVE" 'le nom de la feuille qui rreçois les infos


With Sheets(feuille)
Range("a1:c1").Select
Selection.Insert Shift:=xlDown

.Range("A1").Value = TextBox1.Text
.Range("B1").Value = TextBox2.Text
.Range("C1").Value =TextBox3.Text

End With
Exit Sub
End Sub
@ plus
petchy

 

[MANUTR808]

Super, je vais essayer cela.

Merci à toi