Erreur 438 l'objet ne gère pas cette propriété ou méthode
Zanlepan
-
Gyrus Messages postés 3360 Statut Membre -
Gyrus Messages postés 3360 Statut Membre -
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
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
1 réponse
-
Bonjour,
Essaie avecPrivate 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+
