Problème avec combox alimentée dynamiquement

Question

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

Private Sub Article_Initialize()Dim de, derlign As IntegerWith Feuil3dernlign = .Range("X65536").End(xlUp).Rowsde = .Range("X3:X" & derlign)Combobox1.List = deEnd WithEnd 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

Maurice · Answer

Bonjour

en claire je prefere comme ca

Private 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

tyranausor · Answer

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

Maurice · Answer

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

tyranausor · Answer

en effet j'avais mal lu.
Merci Maurice

Problème avec combox alimentée dynamiquement

4 réponses

Discussions similaires

Newsletters