Pb saut de ligne

bonjour,

Voici mon code :

Private Sub CommandButton2_Click()
If TextBox1 = "" Or TextBox1 = "jj/mm/aaaa" Or TextBox2 = "" Or TextBox2 = "hh:mm" Or TextBox4 = "" Or TextBox4 = "hh:mm" Or TextBox5 = "" Or TextBox6 = "" Or ComboBox1 = "" Or ComboBox3 = "" = "" Then
MsgBox ("Tous les champs ne sont pas remplis")
Else
    If Sheets("Astreinte").Range("A2") = "" Then     ' Select feuil1 & A2. si vide
        Sheets("Astreinte").Range("A2") = TextBox1      ' on inscrit se qu'il y a dans le TextBox1,
    Else ' sinon...
       Sheets("Astreinte").ListObjects(1).ListRows.Add  ' on crée une nouvelle ligne.
    End If
    '

    dlt = Sheets("Astreinte").Range("A1048576").End(xlUp).Row

    TextBox1 = Format(TextBox1, "MM/DD/YYYY") ' date début...
    Sheets("Astreinte").Range("A" & dlt) = TextBox1.Value
    TextBox2 = Format(TextBox2, "HH:MM")      ' heure début...
    Sheets("Astreinte").Range("B" & dlt) = TextBox2.Value
    Sheets("Astreinte").Range("C" & dlt) = ComboBox1
    Sheets("Astreinte").Range("D" & dlt) = ComboBox3
    Sheets("Astreinte").Range("E" & dlt) = TextBox7
    Sheets("Astreinte").Range("F" & dlt) = TextBox5
    If OptionButton1.Value = True Then 'Si coché ...
        Sheets("Astreinte").Range("G" & dlt) = "Oui"
        Else 'Si non coché ...
       Sheets("Astreinte").Range("G" & dlt) = "Non"
    End If
    TextBox4 = Format(TextBox4, "HH:MM")     ' heure fin...
    Sheets("Astreinte").Range("H" & dlt) = TextBox4.Value
    Sheets("Astreinte").Range("I" & dlt) = TextBox6

    Unload Me               ' Ferme le formulaire
End If
End Sub

lorsque je rentre les data dans mon formulaire, il y a la première ligne en A2 qui me met la dernière date rentré à chaque fois que je rentre une data? comment supprimé cette ligne ?

Bonjour

Voici le fichier complet. Quand j'enregistre m'a première ligne, il y a la date qui se créer dans la cellule A2 et ensuite il y a ma ligne complète ?? comment me débarrasser de ce problème.

Bonjour

Si j'ai bien compris tu dois masquer la ligne2

Cordialement

Bonjour

En fait, quand on test le code, le tout 1er enregistrement, quand on enregistre avec le bouton "Enregistrer", une date apparait dans la cellule A2 ? et dans la ligne du dessous apparait mon enregistrement normal. la ligne du dessous complète et donc la bonne, mais pas la date seule dans Cellule A2...En clair oui la ligne 2 n'est pas bonne.

Bonjour

Tu utilises un listobject donc code en listobject

J'ai modifié plusieurs Sub

Merci cela fonctionne.

Par contre a quoi correspond le IIF dans la ligne :

.Cells(1, 7) = IIf(OptionButton1.Value = True, "Oui", "Non")

RE

C'est une version condensée d'un if then else sur le principe du SI ou IF dans Excel

Merci