Réduction code

Fermé
Signaler
-
Bonjour à tous,
J'ai crée cette petite macro dont le code me semble long.
Etant débutant en vba, je souhaiterais savoir si il est possible de reduire ce code.
Merci d'avance pour vos réponses

ps: j'ai essayer ce code en utilisant un bouton contrôle activex, mais cela ne marche pas actuellement je tourne en utilisant un bouton contrôle de formulaire.


Sub ENREGISTREMENTFOUR()
If Sheets("saisie").TextBox1.Value = ("") Then
MsgBox ("Remplir les champs avec une astérique")
Else
Sheets("BDFOUR").Select
Rows("2:2").Insert Shift:=xlDown
Sheets("FORMULE").Select
Range("A2:K2").Copy
Sheets("BDFOUR").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("SAISIE").TextBox1.Value = ("")
Sheets("SAISIE").TextBox2.Value = ("")
Sheets("SAISIE").TextBox3.Value = ("")
Sheets("SAISIE").TextBox4.Value = ("")
Sheets("SAISIE").TextBox5.Value = ("")
Sheets("SAISIE").TextBox6.Value = ("")
Sheets("SAISIE").TextBox7.Value = ("")
Sheets("SAISIE").TextBox8.Value = ("")
Sheets("SAISIE").TextBox10.Value = ("")
Sheets("SAISIE").Select
End If

End Sub