VBA petits soucis de debutant

vgendron à dit:

avec ce code, c'est encore mieux

VB:

Private Sub CommandButton1_Click()

'le message de confirmation arrive apparait "confirmez vous..." si oui alors
If MsgBox("confirmez vous l'ajout de la fiche " & ComboBox1, vbYesNo, "attention") = vbYes Then

    'avec la feuille Code
    With Sheets(ComboBox1.Value)
        L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Range("a" & L) = TextBox2.Value
        .Range("b" & L) = TextBox3.Value
        .Range("c" & L) = TextBox4.Value
    End With
End If

Unload Me
End Sub

Cliquez pour agrandir...

Si... à dit:

Bon_soir
Nota
-ne disposant du contrôle Calandar sur ma machine, je l'ai remplacé par le contrôle DTPicker.
Dans le cas contraire, remplacer dans mes codes DTPicker par Calandar !

Cliquez pour agrandir...

Si... à dit:

Bon_soir

Pour récupérer une date(Usf) en français vers la feuille, on a intérêt à utiliser CDate

Pourquoi ne pas utiliser un seul formulaire avec les 2 boutons commedans le fichier joint ?

Nota
-ne disposant du contrôle Calandar sur ma machine, je l'ai remplacé par le contrôle DTPicker.
Dans le cas contraire, remplacer dans mes codes DTPicker par Calandar !
-Il faudrait peut-être prévoir d'éviter des répétitions contradictoires !

Cliquez pour agrandir...