Erreur 438 l'objet ne gère pas cette propriété ou méthode

Fermé

Zanlepan - 15 sept. 2015 à 21:10
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 16 sept. 2015 à 00:11

Bonjour,
J'ai écrit ce code pour remplir un ComboBox dans la feuille nommée "Template" d'un classeur excel avec des données présentes sur une autre feuille (Port List) du même classeur excel. Quand j'essaie de le "runner" pour remplir le ComboBox, cette erreur apparait : Erreur 438 l'objet ne gère pas cette propriété ou méthode .

Je ne comprends pas ce qui se passe, pouvez vous m'aider svp ? Merci d'avance :)

Private Sub CB_LoadPort_Change()

With Sheets("Ports List")
premierPort = .Range("A2").Address
dernierPort = .Range(premierPort).End(xlDown).Address

ports = .Range(premierPort & ":" & dernierPort)
End With

With Sheets("Template").CB_LoadPort
For Each portName In ports
.AddItem portName
Next portName

.Style = .fmStyleDropDownList
.AutoSize = False

End With

End Sub

A voir également:

Erreur 438 l'objet ne gère pas cette propriété ou méthode
Erreur 0x80070643 - Guide
Vente objet occasion entre particulier - Guide
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
Erreur 10016 epson - Forum Imprimante
Erreur c2002 western union ✓ - Forum Vos droits sur internet

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
16 sept. 2015 à 00:11

Bonjour,

Essaie avec

Private Sub CB_LoadPort_Change()
    With Sheets("Ports List")
        premierPort = .Range("A2").Address
        dernierPort = .Range(premierPort).End(xlDown).Address
        Set ports = .Range(premierPort & ":" & dernierPort)
    End With
    With Sheets("Template").CB_LoadPort
        For Each portName In ports
            .AddItem portName
        Next portName
        .Style = fmStyleDropDownList
        .AutoSize = False
    End With
End Sub

A+

Discussions similaires

Erreur 1004 - Erreur définie par l'application ou par l'objet

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Discussions similaires

Newsletters