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

Question

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

Gyrus · Answer

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 WithEnd Sub
A+

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

1 réponse

Discussions similaires