Option Explicit
Dim Loc As Long
Private Sub ComboBox1_Change() 'année
Dim i As Byte
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Sheets("B").Range("C1") = ComboBox1.Value
For i = 1 To 12
Me.ComboBox2.AddItem Format(CDate("01/" & i & "/" & ComboBox1), "mmm-yy")
Next
End Sub
Private Sub UserForm_Initialize()
Sheets("B").Range("c1") = [A!B4].Value
TextBox3.Text = Sheets("A").Range("B1").Value
TextBox1.Text = Sheets("A").Range("B2")
ComboBox1.List = [liste1].Value
End Sub
Private Sub Par_Click() 'enregistrer
If Me.TextBox1 = "" Or TextBox3 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then MsgBox "Champs non Renseignés ", vbOK + 64: Exit Sub
If MsgBox(" Changer les Parametres du Fichier ? ", vbYesNo + 32) = vbYes Then
Sheets("A").Range("B1") = Me.TextBox3
Sheets("A").Range("B2") = Me.TextBox1
Sheets("A").Range("B3") = "DISTRICT SANITAIRE " & Me.TextBox1
Sheets("A").Range("B5") = DateSerial(Me.ComboBox1, Me.ComboBox2.ListIndex + 1, 1)
Unload Parametrer
End If
End Sub