Erreur d'exécution 421 sur UserForm

Deniro01 · 1 Octobre 2009

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 · 1 Octobre 2009

Re : Erreur d'exécution 421 sur UserForm

bonjour Deniro01,

je te propose de remplacer

Code:

    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

Code:

    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 · 1 Octobre 2009

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

Erreur d'exécution 421 sur UserForm

Deniro01

XLDnaute Junior

mromain

XLDnaute Barbatruc

Deniro01

XLDnaute Junior

Discussions similaires

Erreur d'exécution 421 sur UserForm

Deniro01

XLDnaute Junior

mromain

XLDnaute Barbatruc

Deniro01

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency