RECUPERATION DONNEES USERFORM

[lotus]

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

 

[@+Thierry]

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