Bonjour à toutes et à tous,
je n'arrive pas à comprendre pourquoi mon code plante quand je veux charger un userform …
La simple instruction
débouche sur un message "Erreur d'exécution 424 : objet requis"
En fait, je me suis inspiré d'un code existant qui charge dans un userform une liste de valeurs uniques :
… et comme ce code a le mérite de la simplicité, je l'ai adapté mais ne peux pas voir s'il opère car je n'arrive pas à faire apparaître la combo …
Quelqu'un peut-il me dire ce qui coince chez moi ?
Au passage, quand ce sera debbugué, si quelqu'un peut m'expliquer le pourquoi du - 1 dans
If Dialogue_codes_articles.ListIndex = -1
Merci d'avance
je n'arrive pas à comprendre pourquoi mon code plante quand je veux charger un userform …
La simple instruction
VB:
Sub Montrer()
Dialogue_codes_articles.Show
End Sub
débouche sur un message "Erreur d'exécution 424 : objet requis"
En fait, je me suis inspiré d'un code existant qui charge dans un userform une liste de valeurs uniques :
VB:
Private Sub UserForm_Initialize()
Dim j As Integer
Dim Dialogue_codes_articles
'Récuperer les données da la colonne A
For j = 1 To Range("A2").End(xlUp).Row
Dialogue_codes_articles = Range("A" & j)
'Filtrer les doublons
If Dialogue_codes_articles.ListIndex = -1 Then Dialogue_codes_articles.AddItem Range("A" & j)
Next j
End Sub
… et comme ce code a le mérite de la simplicité, je l'ai adapté mais ne peux pas voir s'il opère car je n'arrive pas à faire apparaître la combo …
Quelqu'un peut-il me dire ce qui coince chez moi ?
Au passage, quand ce sera debbugué, si quelqu'un peut m'expliquer le pourquoi du - 1 dans
If Dialogue_codes_articles.ListIndex = -1
Merci d'avance