Max
Ton premier problème je n'ai pas compros, sinon tu pourrais utiliser le controle calendar.
Pour ton deuxième soucie :
Recopie ce code, il contien les modifications a faire, se sera plus rapide que de te dire ce qu'il faut enlever et rajouter:
Option Explicit
'Réalisé par Max Diack Baye Fallou Serigne Massamba
Dim MaPlage As Integer
Private Sub userform_initialize()
Dim Var1 As Integer
Dim Var2 As String
Var1 = Sheets("Produits").Range("A65536").End(xlUp).Row
Var2 = Sheets("Produits").Range("A2:A" & Var1).Address
ListBox1.RowSource = "Produits!" & Var2
End Sub
Private Sub listbox1_Click()
MaPlage = UserForm1.ListBox1.ListIndex + 2
Label1 = Format(Sheets("Produits").Range("B" & MaPlage).Value, "#,##0.00")
Label2 = Format(Sheets("Produits").Range("C" & MaPlage).Value, "#,##0.00")
End Sub
Private Sub CheckBox1_change()
If TextBox3 = "" Then
MsgBox "Vous devez mettre une date SVP"
End If
Label3 = Format((TextBox1 * Label1) + (TextBox2 * Label2), "0#")
End Sub
Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox3.Value
ActiveCell.Offset(0, 1).Value = ListBox1
ActiveCell.Offset(0, 2).Value = Val(TextBox1)
ActiveCell.Offset(0, 3).Value = Val(TextBox2)
ActiveCell.Offset(0, 4).Value = Val(Label3.Caption)
Range("A65536").End(xlUp).Offset(1, 0).Select
userform_initialize
End Sub
Private Sub Commandbutton3_click()
Unload UserForm1
End Sub
Private Sub textbox3_change()
TextBox3.Value = Format(Now, "DD/MM/YYYY")
End Sub
Salut, G'Claire