RECUPERATION DONNEES USERFORM

Bonjour,

Je voudrais par l'intermédiaire d'un bouton de commande récupérer les données contenues dans les zones de texte d'une userform afin de les imprimer. Voici le code que j'ai commencé à écrire mais j'ai du mal :

Private Sub CommandButton1_Click()
TextBox1.Copy

Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Range("A1:A2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub


Merci

Bonjour Lotus

Euh non, tu t'y prends mal, avec les controls TextBox ce n'est pas comme avec des cellules.

Essaie plutôt comme ceci :

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("A1").Value = TextBox1.Value
Sheets("Sheet1").PrintOut
End Sub

Tu remplaces "Sheet1" par le nom de ta feuille et "A1" par la cellule de destination.

Bon Week End
@+Thierry