validation & Impression donnés Userform

Staple1600 à dit:

Bonsoir le fil, IMBO (Bienvenue sur le forum)

Sur ton userform dans un Frame, ajouter 3 OptionButton, deu TextBox et un CommandButton
Puis copier le code VBA ci-dessous dans l'userform

VB:

Private Sub CommandButton1_Click()
If OptionButton1 Then Option1
If OptionButton2 Then Option2
If OptionButton3 Then Option3
End Sub

Sub Option1()
Sheets(1).Visible = -1
Sheets(2).Visible = -1
Sheets(1).Cells(1) = TextBox1
Sheets(2).Cells(1) = TextBox2
Sheets(1).Visible = 2
Sheets(2).Visible = 2
End Sub
Sub Option2()
Sheets(1).Visible = -1
Sheets(2).Visible = -1
Sheets(1).PrintOut Copies:=3
Sheets(2).PrintOut Copies:=3
Sheets(1).Visible = 2
Sheets(2).Visible = 2
End Sub
Sub Option3()
Sheets(2).Visible = -1
Sheets(2).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & InputBox("Nom de la sauvegarde?", "Backup", Format(Now, "yyyymmddhmmss"))
ActiveWorkbook.Close True
Sheets(2).Visible = 2
End Sub

PS: Ce n'est qu'un petit code pour faire un test
(pour te mettre sur la voie 😉)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu as l'exemple de syntaxe dans l'exemple que je te proposais, non ?
Sheets(1).Cells(1) = TextBox1
Sheets(2).Cells(1) = TextBox2
Partant de là, on pouvait deviner et tenter
Sheets(1).Range("A62") = Me.TextBox25
ou aussi
Sheets("TOTO").Range("A62") = Me.TextBox25
ou TOTO est à remplacer par le vrai nom de feuille

Bref, il fallait ne pas d'oublier d'être curieux et expérimentateur 😉
(mettre les mains dans le cambouis, en somme 😉)

Cliquez pour agrandir...