Les combobox n'affichent pas correctement les données sources

[fb62840]

Bonjour à toutes et tous,

Je viens vers vous car j'ai un problème d'affichage dans des combobox qui se trouve sur un multipage.

voici le code que j'utilise pour alimenter les différentes combobox :

Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0
Dim i As Byte, x As Byte
i = Sheets("Sources").Range("A36353").End(xlUp).Row
For x = 2 To i
With Cb_ville
        .AddItem Sheets("Donnees_Sources").Range("A" & x) 'La colonne A contient la liste des villes
    End With
    With CB_cp
        .AddItem Sheets("Donnees_Sources").Range("B" & x)'La colonne B contient les codes postaux
    End With
    With CB_niveau
        .AddItem Sheets("Donnees_Sources").Range("C" & x)'La colonne C contient les niveaux
    End With
    With CB_recommandations
        .AddItem Sheets("Donnees_Sources").Range("D" & x)'La colonne D contient les recommandations
    End With
    With CB_hauteurs
        .AddItem Sheets("Donnees_Sources").Range("E" & x)'La colonne E contient les hauteurs
    End With
    With CB_largeurs
        .AddItem Sheets("Donnees_Sources").Range("F" & x)'La colonne F contient les largeurs
    End With
Next x
End Sub

Ce qui se produit :
La combobox CB_cp ville affiche correctement la liste des villes
La combobox CB_ville affiche correctement la liste des codes postaux
La combobox CB_niveau n'affiche aucune liste
La combobox CB_recommandations affiche la liste de la colonne D à savoir Les recommandations
La combobox CB_hauteurs affiche également la liste de la colonne D
La combobox CV_largeurs affiche également la liste de la colonne D

Je vous remercie pour votre aide.

 

[phlaurent55]

Re : Les combobox n'affichent pas correctement les données sources

Bonjour fb.........

le code présenté ci-dessus semble correct d'autant plus qu'il y a 3 combobox qui sont correctement remplies

peut-être qu'en déclarant X & I en Integer au lieu de Byte ............
mais sans voir le fichier pour pouvoir tester ????????????

à+
Philippe

 

[fb62840]

Re : Les combobox n'affichent pas correctement les données sources

Merci Philippe,

J'ai testé en remplaçant Byte par Integer, le problème est toujours le même.

Je n'y comprends vraiment rien.
L'erreur est sans doute évidente mais je sèche complètement.

En pièce jointe le fichier avec le code des combobox.

 

[phlaurent55]

Re : Les combobox n'affichent pas correctement les données sources

Re,

il me semble que les instructions With ne prennent pas en compte le nom du combo


largeur correspond au combo CB_niveau
hauteur correspond au combo CB_annee_formation
niveau correspond au combo CB_premis
recommadations correspond au combo CB_metier_cible

il suffit de mettre le nom du bon combo dans les instructions With

à+
Philippe