B
BAZ
Guest
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
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