Bonsoir à tous peut être une amélioration à apporter à ce code ?
Voila c'est un userform avec des données saisie via dtpicker et textbox et qui se range dans des tableaux en fonction du mois choisi , ce code fonctionne trés bien mais il m'est bien 5 à 6 secondes avant de s'executer est ce normal ? ou il y a une amèlioration à apporter. Sur mon classeur j'ai d'autre smacros qui elles s'ex"cutent normalement .
D'avance merci à tous, mes amitiés
Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
Dim Mois As Byte
Mois = Month(DTPicker1)
With Sheets(Mois + 1)
DerLig = .Range("A65000").End(xlUp).Row + 1
.Cells(DerLig, 1) = DTPicker1
.Cells(DerLig, 2) = ComboBox1
.Cells(DerLig, 3) = TextBox3
.Cells(DerLig, 4) = TextBox4
.Cells(DerLig, 5) = TextBox1
.Cells(DerLig, 7) = ComboBox2
.Cells(DerLig, 8) = ComboBox3
.Cells(DerLig, 9) = ComboBox5
.Cells(DerLig, 10) = TextBox2
.Cells(DerLig, 11) = ComboBox4
.Cells(DerLig, 12) = ComboBox6
.Cells(DerLig, 13) = ComboBox7
.Cells(DerLig, 14) = ComboBox8
.Cells(DerLig, 15) = ComboBox9
.Cells(DerLig, 16) = ComboBox10
.Cells(DerLig, 17) = ComboBox11
.Cells(DerLig, 18) = ComboBox12
.Cells(DerLig, 19) = ComboBox13
.Cells(DerLig, 20) = ComboBox14
.Cells(DerLig, 21) = ComboBox15
End With
' On décharge le formulaire
Unload Me
End Sub