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

Zanlepan -
Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention - 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
Vente objet occasion entre particulier - Guide
Objet interdit en cabine ryanair - Guide
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
J'aime par erreur facebook notification - Forum Facebook

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention 526

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 3005 sur France TV

Code erreur 3000

Problème streaming France 2

Panne T32 sur telecommande Orange

impossible lire vidéos france 2

Votre réponse

Discussions similaires