F
Fifi Bricotin
Guest
Bonjour,
Partant d'un code que Robert m'a gentiment donné le w-end dernier, j'ai essayé de l'adapter à quelque chose de simple, mais j'ai un souci.
Je veux saisir un code postal dans un ComboBox nommé CBcp et que l'autre Combobox, nommé CB ville me affiche la ville.
Les données CP et ville sont stockées sur l'onglet 'CP'.
Le code est le suivant :
Private Sub UserForm_Initialize()
Dim p As Range
Dim cel As Range
Set p = Sheets('CP').Range('B2:B' & Sheets('CP').Range('B65536').End(xlUp).Row)
For Each cel In p
CBcp.AddItem cel.Value
CBville.AddItem cel.Offset(0, 1).Value
Next cel
End Sub
Private Sub CBcp_change()
CBville.ListIndex = CBedit.ListIndex
End Sub
Le problème : Quand je sélectionne un code postal dans le Combobox CBcp, j'ai un message d'erreur 424 'objet requis', et le débogueur pointe sur la ligne suivante :
CBville.ListIndex = CBedit.ListIndex
Il semble qu'il y ait un problème avec ListIndex, mais je ne sai pas lequel.
Merci de votre aide et bonne journée.
Fifi
Partant d'un code que Robert m'a gentiment donné le w-end dernier, j'ai essayé de l'adapter à quelque chose de simple, mais j'ai un souci.
Je veux saisir un code postal dans un ComboBox nommé CBcp et que l'autre Combobox, nommé CB ville me affiche la ville.
Les données CP et ville sont stockées sur l'onglet 'CP'.
Le code est le suivant :
Private Sub UserForm_Initialize()
Dim p As Range
Dim cel As Range
Set p = Sheets('CP').Range('B2:B' & Sheets('CP').Range('B65536').End(xlUp).Row)
For Each cel In p
CBcp.AddItem cel.Value
CBville.AddItem cel.Offset(0, 1).Value
Next cel
End Sub
Private Sub CBcp_change()
CBville.ListIndex = CBedit.ListIndex
End Sub
Le problème : Quand je sélectionne un code postal dans le Combobox CBcp, j'ai un message d'erreur 424 'objet requis', et le débogueur pointe sur la ligne suivante :
CBville.ListIndex = CBedit.ListIndex
Il semble qu'il y ait un problème avec ListIndex, mais je ne sai pas lequel.
Merci de votre aide et bonne journée.
Fifi