chtite24
XLDnaute Nouveau
Bonjour,
Après avoir cherché des solutions sur d'autres posts, j'ai finalement trouvé une solution à mon problème... enfin c'est ce que je croyais... ça fonctionne pour tout le monde sauf pour moi...
Je vous explique donc mon problème :
J'ai une Boite de dialogue "Ajout_Objet" dans laquelle j'ai deux combobox "Liste_Type" et "Liste_Groupe"
Le souci c'est que si je renseigne la case RowSource de mes combobox, j'ai le droit à plein de lignes vides.
(En effet, je prévois une plage très large car les listes sont variables (de 1 ligne à 100...).
J'ai donc effacer le contenu de RowSource et mis le code suivant dans le code de ma BDD "Ajout_Objet"
Private Sub Ajout_Objet_Initialize()
For Each cel In Sheets("Donnees").Range("A2:A" & Sheets("Donnees").Range("A65536").End(xlUp).Row)
If cel.Value <> "" Then Me.Liste_Type.AddItem cel.Value
Next cel
For Each cel In Sheets("Donnees").Range("D2" & Sheets("Donnees").Range("D65536").End(xlUp).Row)
If cel.Value <> "" Then Me.Liste_Groupe.AddItem cel.Value
Next cel
End Sub
Mais maintenant, au lieu d'avoir ma liste suivie de lignes vides, je n'ai plus qu'une seule ligne vide comme choix de selection... ma liste n'apparait pas.
Comment faire? Quel est l'erreur dans mon code?
Merci d'avance,
Cordialement,
Après avoir cherché des solutions sur d'autres posts, j'ai finalement trouvé une solution à mon problème... enfin c'est ce que je croyais... ça fonctionne pour tout le monde sauf pour moi...
Je vous explique donc mon problème :
J'ai une Boite de dialogue "Ajout_Objet" dans laquelle j'ai deux combobox "Liste_Type" et "Liste_Groupe"
Le souci c'est que si je renseigne la case RowSource de mes combobox, j'ai le droit à plein de lignes vides.
(En effet, je prévois une plage très large car les listes sont variables (de 1 ligne à 100...).
J'ai donc effacer le contenu de RowSource et mis le code suivant dans le code de ma BDD "Ajout_Objet"
Private Sub Ajout_Objet_Initialize()
For Each cel In Sheets("Donnees").Range("A2:A" & Sheets("Donnees").Range("A65536").End(xlUp).Row)
If cel.Value <> "" Then Me.Liste_Type.AddItem cel.Value
Next cel
For Each cel In Sheets("Donnees").Range("D2" & Sheets("Donnees").Range("D65536").End(xlUp).Row)
If cel.Value <> "" Then Me.Liste_Groupe.AddItem cel.Value
Next cel
End Sub
Mais maintenant, au lieu d'avoir ma liste suivie de lignes vides, je n'ai plus qu'une seule ligne vide comme choix de selection... ma liste n'apparait pas.
Comment faire? Quel est l'erreur dans mon code?
Merci d'avance,
Cordialement,