Erreur d'exécution '424' Objet requis

Bonjour,

Je travaille sur un projet de carnet d'entraînement.

J'ai repris un userform sur le site de Formation Excel de Boisgontiers que j'ai adapté à mes besoins.

Quand je veut transférer les données dans le tableau, j'ai le message suivant Erreur d'éxécution '424', Objet requis.

Cette erreur ce produit quand je déclenche la procédure B_Valid

J'ai chercher à comprendre ou ce trouve la bulle mais je coince.

Je pense qu'il à surement d'autre à venir.

Je débute en VBA.

Je joint le fichier.

Un grand merci pour votre précieuse aide.

Marc

bonjour,

cette Sub n'existe pas :

Private Sub UserFormModif_Initialize()

remplacer par celle-ci (et corriger les erreurs éventuelles qui vont se profiler...

(Dans ton fichier ChoixNom est un TextBox)

Private Sub UserForm_Initialize()
   Set f = Worksheets("DATA")
   lignefin = f.[a65000].End(xlUp).Row
   If lignefin > 2 Then
     Clé = f.Range("A2:A" & f.[a65000].End(xlUp).Row)
     Tri Clé, LBound(Clé), UBound(Clé)
     Me.ChoixNom.List = Clé
     Me.ChoixNom.ListIndex = -1
   Else
     If lignefin = 2 Then Me.ChoixNom.AddItem f.Range("A2")
   End If
   B_Ajout_Click
End Sub

A+

Merci pour la réponse.

Mais j'ai toujours le même code erreur pour la même ligne.

Mais je ne laisse pas tomber. Je continue à chercher pour débloquer la situation.

Bonjour,

Personnellement une fois remplacé le TextBox ChoixNom par un ListBox je n'ai plus d'erreur au chargement.

Avez vous remplacé la référence à UserFormModif_Initialize (à la fin de B_Valid ?)

Remarque : Il n'est pas interdit d'appuyer sur le bouton de débogage quand vous avez un message d'erreur !

A+

Un grand merci pour avoir pris du temps pour résoudre mon problème.