Problème avec combox alimentée dynamiquement
Bonjour, j'ai entré du code VBA pour alimenter un combobox avec des données variables (il y en a une comme il y en aurait 100). Voici mon code mais la cobobox reste toujours vide bien que les cellules soient remplies
De plus, les cellules seront remplies par un autre userform mais je ne pense qu'il n'y a pas de pb (ce n'est pas la peine de donner son code, il est fait)
Merci à ce qui pourront m'aider et éventuellement corriger le code
Private Sub Article_Initialize()
Dim de, derlign As Integer
With Feuil3
dernlign = .Range("X65536").End(xlUp).Rows
de = .Range("X3:X" & derlign)
Combobox1.List = de
End With
End Sub
De plus, les cellules seront remplies par un autre userform mais je ne pense qu'il n'y a pas de pb (ce n'est pas la peine de donner son code, il est fait)
Merci à ce qui pourront m'aider et éventuellement corriger le code
4 réponses
-
Bonjour
en claire je prefere comme caPrivate Sub UserForm_Initialize() Dim Derlign As Long Dim L As Long With Feuil3 Derlign = .Range("X" & Rows.Count).End(xlUp).Row Me.ComboBox1.Clear For L = 3 To Derlign ComboBox1.AddItem .Range("X" & L).Value Next End With End Sub
A+
Maurice -
Bonjour Maurice, malgré ta correction je n'ai rien!
Je me suis aidé de ce tuto en vidéo pour la rédaction du code mais, même s'il est identique, ça ne fonctionne pas!
Mon fichier pour vous aider https://www.cjoint.com/c/EFomPC0KYKB -
Bonjour
tu regarde Mal le code
Private Sub UserForm_Initialize() Dim Derlign As Long Dim L As Long With Feuil3 Derlign = .Range("X" & Rows.Count).End(xlUp).Row Me.CodeTVA.Clear For L = 3 To Derlign CodeTVA.AddItem .Range("X" & L).Value Next End With End Sub
A+
Maurice -
en effet j'avais mal lu.
Merci Maurice
