Message d'erreur 424

[Guesh]

Bonjour à tous,

Il se trouve que j'ai un code qui est sensé, lorsque je clique sur le bouton en question, m'ouvrir un userform.

Ce code est le suivant:

Private Sub CmdMenuVente_Click()
Unload USFmenu
UsfVente.Show
End Sub

et le code du userform devant s'ouvrir (UsfVente) est quant à lui le suivant:

Private Sub CmdVenteQuit_Click()

Unload UsfVente
USFmenu.Show

End Sub


Private Sub UserForm_Initialize()

CmbVenteArticle.RowSource = ("Données!Article")
CmbKdoArticle.ListIndex = -1

CmbVenteQtte.RowSource = ("Données!Qtte")
CmbVenteQtte.ListIndex = -1

CmbVenteTaille.RowSource = ("Données!Taille")
CmbVenteTaille.ListIndex = -1

End Sub

Private Sub CmdVenteOK_Click()

num = Sheets("ladystock").Range("A65536").End(xlUp).Row + 1

Sheets("ladystock").Activate
Range("A" & num).Value = CmbVenteArticle.Value
Range("C" & num).Value = CmbVenteTaille.Value
Range("E" & num).Value = CmbVenteQtte.Value
Range("H" & num).Value = TxtVenteDate.Value

Unload UsfVente
UsfVenteBis.Show

End Sub

Le problème c'est que quand je fais un essai et que je clique sur le bouton j'ai un mesage d'erreur 424 qui me dit "Objet requis" et me surligne la ligne UsfVente.Show

Que dois-je faire ?
Si qq'un a une idée elle est la bienvenue.

Merci d'avance

GSh

 

[Roland_M]

Re : Message d'erreur 424

bonsoir

les lignes du genre ci-dessous, il me semble que ce n'est pas correct !?

CmbVenteArticle.RowSource = ("Données!Article")

essais les tous comme ceci
CmbVenteArticle.RowSource = Sheets("Données").Range("Article")

 

[Roland_M]

Re : Message d'erreur 424

re

tu dis: "il me surligne la ligne UsfVente.Show"
ceci ne signifie pas erreur sur cette ligne !
mais qu'il ne peut pas charger l'userform !
si tu as une erreur à l'initialisation il s'arrêtera toujours là !

 

[skoobi]

Re : Message d'erreur 424

Bonsoir tout le monde,

Quand le message d'erreur s'affiche, clic sur déboguage et appuie sur F8 (touche pas à pas) pour trouver sur quelle ligne exactement cela se produit.

 

[Guesh]

Re : Message d'erreur 424

merci pour vos conseils !