Coller le contenu de plusieurs textbox dans une feuille

MANUTR808 · 22 Juin 2004

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 · 22 Juin 2004

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 · 23 Juin 2004

Super, je vais essayer cela.

Merci à toi

Coller le contenu de plusieurs textbox dans une feuille

MANUTR808

Guest

petchy

Guest

MANUTR808

Guest

Discussions similaires