Bonjour à tous, je rencontre des difficultés dans la manipulation d'une combobox dans un userform que je suis en train de créer. L'objectif est de pouvoir modifier une base de données à partir d'un userform. Pour cela je souhaite charger les valeurs d'une colonne de chaque ligne pour en faire une liste dans mon userform. Ensuite, une fois que l'utilisateur a sélectionné la ligne à modifier, il n'a plus qu'à saisir les informations voulus dans les textbox puis enregistrer pour que les valeurs soient modifiés aux colonnes concernées. Toutes les étapes semblent fonctionnels sauf la partie pour pouvoir charger les valeurs dans la combobox. J'ai beau essayé, elle s'affiche comme vide à chaque fois. Si quelqu'un serait capable de repérer ce qui cloche dans cette partie du code je lui en serais reconnaissant.
Private Sub Modifier3_Initialize()
ligne = 3
'Obtention de la première ligne vide
Do Until Worksheets("Base de données").Cells(ligne, 2) = ""
ligne = ligne + 1
Loop
'Définition de la liste
With ListeF 'nom de ma combobox
For i = 3 To ligne
.AddItem Worksheets("Base de données").Cells(i, 2)
Next i
End With
End Sub
Cordialement,