Bonjour, s'il vous plait je veux savoir comment on peut contrôler cette commande a l'aide de optionbutton:
rivate Sub CommandButton1_Click()
Sheets("Congé database").Activate
Dim L As Integer
If MsgBox("Etes-vous certain de vouloir INSERER cette nouvelle date ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = [A60245].End(xlUp).Row + 1
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = TextBox1.Value
Range("B" & L) = CDate(TextBox1.Value)
Range("C" & L).Value = TextBox2.Value
Range("C" & L) = CDate(TextBox2.Value)
Range("D" & L).Value = TextBox3.Value
Range("D" & L).Value = CDate(TextBox3.Value)
Range("E" & L).Value = TextBox4.Value
Range("E" & L).Value = CDate(TextBox4.Value)
Range("F" & L).Value = TextBox5.Value
Range("F" & L).Value = CDate(TextBox5.Value)
Range("G" & L).Value = TextBox6.Value
Range("G" & L).Value = CDate(TextBox6.Value)
End If
