Bonjour à tous,
J'ai une combobox sans limitations de colonnes.
Lorsque j'applique le code ci-dessous, pas de problème, jusqu'à 9 colonnes... Après, j'obtiens le code erreur :
380 Impossible de définir la propriété list. Valeur de proprété non valide...
Une idée?
merci.
With Worksheets("Annulées")
Lig = 0
For Each c In .Range("A1:A" & .Cells(.Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible) 'uniquement colonne A
Me.zl_Annulations.AddItem (c.Value) 'ajout d'une ligne (colonne 0 de ML_Utilisateur)
For col = 1 To 9 'ajout dans les colonnes
Me.zl_Annulations.List(Lig, col) = .Cells(c.Row, col + 1)
Next col
Lig = Lig + 1
Next c
End With
J'ai une combobox sans limitations de colonnes.
Lorsque j'applique le code ci-dessous, pas de problème, jusqu'à 9 colonnes... Après, j'obtiens le code erreur :
380 Impossible de définir la propriété list. Valeur de proprété non valide...
Une idée?
merci.
With Worksheets("Annulées")
Lig = 0
For Each c In .Range("A1:A" & .Cells(.Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeVisible) 'uniquement colonne A
Me.zl_Annulations.AddItem (c.Value) 'ajout d'une ligne (colonne 0 de ML_Utilisateur)
For col = 1 To 9 'ajout dans les colonnes
Me.zl_Annulations.List(Lig, col) = .Cells(c.Row, col + 1)
Next col
Lig = Lig + 1
Next c
End With