Petit Probleme de code

Bonjour,

J'ai un petit fichier de réservation assez simple. Mais j'ai une petit problème qui pour vous n'en sera pas un. Quand je valide la résa, l'enregistrement commence à la ligne 4 au lieu de 3.

Le fichier est en pièce jointe

Merci

14resa-tennis.xlsm (81.43 Ko)

Bonjour,

Une petite correction :

Private Sub BtnAjout_Click()
If MsgBox("Confirmez-vous cette réservation ?", vbYesNo, "Demande de confirmation de réservation") = vbYes Then
    With Worksheets("Réservation")
        L = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
        .Cells(L, 1) = CDate(LabelDate)
        .Cells(L, 2) = CboCourt
        .Cells(L, 3) = CboHrDeb
        .Cells(L, 4) = CboHrFin
        .Cells(L, 5) = TxtNom
        .Cells(L, 6) = TxtPrenom
        .Cells(L, 7) = TxtTel
        .Cells(L, 8) = TxtMail
        .Cells(L, 9) = CboPaiement
        .Cells(L, 10) = CboResa
        .Cells(L, 11) = TxtCommentaires
    End With
End If
End Sub

En amont, je vous conseille de sélectionner vos lignes 3 à 9 et de faire suppr car j'ai l'impression qu'il y a un caractère invisible en ligne 9 (L me renvoyait 9 avant cette manipulation).

Cdlt,

Parfait merci

Rechercher des sujets similaires à "petit probleme code"