Compilation macro Userform et copie ligne et imprim

[BAZ]

Bonjour,

J'ai un userform qui a pour code :
Private Sub CommandButton1_Click()
Dim ValeurTableau As Integer
ValeurTableau = Sheets(1).Range("B1000:W1000").End(xlUp).Row + 1
With Sheets(1)
.Range("B" & ValeurTableau) = TextBox1.Value
.Range("C" & ValeurTableau) = TextBox13.Value
.Range("D" & ValeurTableau) = TextBox3.Value
.Range("E" & ValeurTableau) = TextBox4.Value
.Range("F" & ValeurTableau) = TextBox5.Value
.Range("G" & ValeurTableau) = TextBox6.Value
.Range("H" & ValeurTableau) = TextBox7.Value
.Range("I" & ValeurTableau) = TextBox8.Value
.Range("J" & ValeurTableau) = TextBox9.Value
.Range("K" & ValeurTableau) = TextBox10.Value
.Range("L" & ValeurTableau) = TextBox11.Value
.Range("M" & ValeurTableau) = TextBox12.Value
.Range("N" & ValeurTableau) = TextBox2.Value
.Range("S" & ValeurTableau) = TextBox14.Value
.Range("V" & ValeurTableau) = TextBox15.Value
.Range("T" & ValeurTableau) = TextBox16.Value
.Range("U" & ValeurTableau) = TextBox17.Value
End With
Unload Me
End Sub

Comment puise dire que apres cette macro je selectionne ce qui vient d'etre rentré, que cela les copie dans un autre tableau et que cela imprim ?

Pour etre plus clair, J'ai cette feuille qui est un tableau, je rentre les données grace à l'userform, ensuite je voudrais que ce qui vient d'etre généré soit copié dans la feuille "champs" dans la ligne 2. (la feuille champs est relié a un tableau qui sera imprimé)

Désélé si je suis pas assez précis mais je suis a fond la lol

 

[ZON]

Bonsoir à tous,

Baz, peut être que ceci te ferais l'affaire pas besoin de copier coller

With Sheets(1)
.Range("B" & ValeurTableau) = TextBox1.Value
.....
.Range("U" & ValeurTableau) = TextBox17.Value
sheets("champs").range("A2:T2")=.range(cells(ValeurTableau,2),cells(ValeurTableau,21)).value

End With

Plus explixte sinon.
A+++

 

[BAZ]

Merci pour ta reponse et désolé de pas avoir pu revenir avant, je n'avais plus de connexion.

En tout cas grand merci pour ta réponse et je vais essayer.