Formulaire de résa - Problème de compilation

Bonjour à toutes et tous,

Je viens de nouveau faire appel à vos lumières, parce que moi, je cale compte tenu de mon tout petit niveau dans ce domaine.

J'ai créé un fichier avec formulaire qui aura pour but de faciliter la prise de résa pour une infrastructure.

Tout allait bien dans la création tout ça tout ça, et au moment de tester le listing, pas de problème pour la première ligne, mais la seconde coince avec une boite info "Erreur d'exécution '9' : L'indice n'appartient pas à la sélection".

Dans le débogage, je suis renvoyé à cette ligne :

Sheets("feuil1").ListObjects(1).ListRow.Add

Je vous mets l'ensemble du code

Private Sub CommandButton1_Click()
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox ("Veuillez remplir tous les champs")
Else
If Sheets("feuil1").Range("b1") = "" Then
Sheets("feuil1").Range("b1") = TextBox1
Else
Sheets("feuil1").ListObjects(1).ListRow.Add
End If
dlt = Sheets("feuil1").Range("d1048576").End(xlUp).Row

Sheets("feuil1").Range("b" & dlt) = TextBox1
Sheets("feuil1").Range("c" & dlt) = TextBox2
Sheets("feuil1").Range("d" & dlt) = TextBox3
Sheets("feuil1").Range("e" & dlt) = ComboBox1
Sheets("feuil1").Range("f" & dlt) = ComboBox2

Unload UserForm1

End If

End Sub

Et le fichier en pièce jointe

Merci à vous par avance de vos suggestions

Bonsoir

a tester

Private Sub CommandButton1_Click()
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then
    MsgBox ("Veuillez remplir tous les champs")
    Exit Sub
End If
dlt = Range("d1048576").End(xlUp).Row + 1
    Range("b" & dlt) = TextBox1
    Range("c" & dlt) = TextBox2
    Range("d" & dlt) = TextBox3
    Range("e" & dlt) = ComboBox1
    Range("f" & dlt) = ComboBox2
Unload Me
End Sub

A+

Maurice

Tout simplement

ça fonctionne bien en ayant rajouté le +1

Merci beaucoup Maurice

Bonsoir

une dernier compatible tout excel

Range("D" & Rows.Count).End(xlUp).Row + 1

A+

Maurice