Liste de valeurs dans ma liste combobox vident

Fermé
CogburnGrit - 9 janv. 2023 à 15:39
 CogburnGrit - 9 janv. 2023 à 16:19

Bonjour,

J'ai besoin d'alimenter une ComboBox dans un formulaire via une plage de données.

J'ai ce code :

    Dim Line As Integer
    Dim Column As Integer

    Line = 2
    Column = 2


    Do While ThisWorkbook.Sheets("Suivi").Cells(Line, Column).Value <> ""

    Ligne = ThisWorkbook.Sheets("Suivi").Cells(Line, Column).Value
    Form_Embauche.ComboBox_Ligne.AddItem
    Line = Line + 1


    Loop

    End Sub

Cela me permet d'alimenter ma liste déroulante jusqu'à la dernière ligne non vide de ma colonne (le tableau étant régulièrement alimenté je veux que mes choix s'ajoutent et apparaissent comme choix au fur et à mesure).

Ma ComboBox détecte bien les valeurs (plus il y a de valeurs plus la liste est longue) mais tous les choix sont blancs/vides.

Une idée d'où pourrait venir le problème ?
Windows / Chrome 108.0.0.0

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
9 janv. 2023 à 16:03

Bonjour,

voir ceci

dans cette ligne de code que fait Ligne?

Ligne = ThisWorkbook.Sheets("Suivi").Cells(Line, Column).Value

0

Bonjour,

Merci pour la réponse et la doc du lien.

Merci pour le point d'attention, je n'avais pas fait attention que le "Ligne" n'était pas renseigné par la suite 

Voici ce que je devais avoir (en gras ce qui me manquait) :

    Ligne = ThisWorkbook.Sheets("Suivi").Cells(Line, Column).Value
    Form_Embauche.ComboBox_Ligne.AddItem (Ligne)
    Line = Line + 1

Du coup en rajoutant "Ligne" entre parenthèse la liste affiche bien mes données

0