Message d'erreurs 1004 erreur définie par l'application ou par l'objet)

Question

Un appel au secours Je ne parviens pas finaliser mon petit fichier Je souhaite supprimer un enregistrement et j'obtiens ce message d'erreurs 1004 erreur définie par l'application ou par l'objet) et je ne trouve pas la solution Si vous pouvez m'aider Un grand merci par avance pour votre aide Private Sub btnsupprimer_Click() With Feuil4 If MsgBox("Confirmez-vous la suppression de ce contact ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then Sheets("COMPTES").Rows(EnregBD, 1).Delete Shift:=xlUp - (j'ai ici un message d'erreurs 1004 erreur définie par l'application ou par l'objet) End If End With End Sub Private Sub C_Selection_Change() CETTE PARTIE SERT A SELECTIONNER L'ENREGISTREMENT QUE JE VEUX SUPPRIMER 'On Error Resume Next EnregBD = Me.C_Selection.ListIndex + 1 LigneComptes = Me.C_Selection.ListIndex + RngComptes.Row 'Me.Enreg = LigneEnreg ' Me.C_Selection = TblComptes(EnregBD, 1) 'Me.TxtNumEnr = TblComptes(EnregBD, 1) Me.datesaisie = TblComptes(EnregBD, 2) Me.ComboBoxMode = TblComptes(EnregBD, 3) TextBoxCheque = TblComptes(EnregBD, 4) Me.ComboBoxTiers = TblComptes(EnregBD, 5) Me.ComboBoxGroupe = TblComptes(EnregBD, 6) Me.ComboBoxCateg = TblComptes(EnregBD, 7) ComboBoxProduit.Value = TblComptes(EnregBD, 8) ComboBoxSousProduit.Value = TblComptes(EnregBD, 9) ComboBoxDébit = TblComptes(EnregBD, 11) ComboBoxCrébit.Value = TblComptes(EnregBD, 12) End Sub...

xorsankukai · Answer

Bonjour letranquille , le forum, Sheets("COMPTES").Rows(EnregBD, 1).Delete Shift:=xlUp Peut-être faut-il préciser à quoi correspond: EnregBD ? Cordialement...

Patrice33740 · Answer

Une très bonne habitude : Option Explicit en début de module t'oblige à déclarer toutes les variables. Et cerise sur le gâteau, ça te signalera d'où vient ton erreur ...