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