Erreur d'exécution '424' Objet requis

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
rosco1669
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 12 décembre 2017
Version d'Excel : 2013 FR

Message par rosco1669 » 15 février 2020, 13:56

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. :bof:

Je joint le fichier.

Un grand merci pour votre précieuse aide.
Carnet_épurer.xlsm
(40.91 Kio) Téléchargé 11 fois
Carnet_épurer.xlsm
(40.91 Kio) Téléchargé 11 fois
Marc
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'394
Appréciations reçues : 163
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 15 février 2020, 14:38

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+
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
r
rosco1669
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 12 décembre 2017
Version d'Excel : 2013 FR

Message par rosco1669 » 18 février 2020, 16:37

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.
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'394
Appréciations reçues : 163
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 19 février 2020, 04:18

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+
Carnet_épurer VG.xlsm
(40.82 Kio) Téléchargé 2 fois
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
r
rosco1669
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 12 décembre 2017
Version d'Excel : 2013 FR

Message par rosco1669 » 23 février 2020, 14:14

Un grand merci pour avoir pris du temps pour résoudre mon problème.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message