Erreur d'exécution 421 sur UserForm

[Deniro01]

Bonjour à tous

En cliquant sur 'Ajouter des DVD' J'ai une 'erreur d'exécution 424' qui se produit.
J'ai beau faire des contrôles du code VBA ou de l'userForm, rien n'y fait. Il y a toutes sortes d'erreurs.
Comment faire marcher la boite de dialogue pour enregistrer mes dvd.

Merci pour une solution.

PS : Je joints le fichier ZIP

Denis

 

[mromain]

Re : Erreur d'exécution 421 sur UserForm

bonjour Deniro01,

je te propose de remplacer

    CmbActeurs.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
    CmbRéalisateurs.List = .Range("B2:B" & .Range("B65536").End(xlUp).Row).Value
    CmbCatégories.List = .Range("C2:C" & .Range("C65536").End(xlUp).Row).Value

par

    With .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If .Cells.Count = 1 Then
            CmbActeur.AddItem .Value
        Else
            CmbActeur.List = .Value
        End If
    End With
    With .Range("B2:B" & .Range("B65536").End(xlUp).Row)
        If .Cells.Count = 1 Then
            CmbRéalisateur.AddItem .Value
        Else
            CmbRéalisateur.List = .Value
        End If
    End With
    With .Range("C2:C" & .Range("C65536").End(xlUp).Row)
        If .Cells.Count = 1 Then
            CmbCatégorie.AddItem .Value
        Else
            CmbCatégorie.List = .Value
        End If
    End With

PS : fait attention à déposer des fichier au format Classeur Excel 97 2003 (*.xls) sur ce forum. Sinon, il y a un forum spécial pour XL2007

a+

 

[Deniro01]

Re : Erreur d'exécution 421 sur UserForm

Merci romain et bonjour.

Il y avait quelques petites erreurs dans le code VBA et ta solution marche bien.
J'ai rectifier le tableau de la feuille Dvd, la 1ere ligne n'était pas inscrite.

La prochaine fois je ferai attention à l'extension de mes fichiers lorsque je les envois. Il est vrai que celui ci est au format 2007.

Merci pour le coup de main et A+

Denis