VBA Méthode additem et tableau

[Matt51100]

Bonjour à tous,

Je n'ai pas trouvé la réponse sur le forum aussi je viens vers vous.

J'ai mis en forme des tableaux sur des feuilles excel.
J'aimerais utiliser la méthode additem avec le nom des tableaux. Actuellement j'utilise ce genre de code (lors de l'initialistaion d'un userform) :

Dim ii, jj As Long
jj = Sheets("BDD").Range("P200").End(xlUp).Row
For ii = 3 To jj
ComboBox1.AddItem Sheets("BDD").Cells(ii, 16)
Next ii

Je me demande si il est possible d'avoir quelque chose comme ça :

ComboBox1.AddItem Sheets("BDD").Range("Tableau5")

bien sûr, ceci ne marche pas. J'ai essayé quelques autres variantes de "grammaire" VBA, sans succés.

Quelqu'un a-t-il une idée ?

Merci d'avance.

A+

 

[Pierrot93]

Re : VBA Méthode additem et tableau

Bonjour,

essaye avec la propriété "list" :

ComboBox1.List = Range("maplage").Value

sans plus de détails, difficile d'en dire plus...

bonne journée
@+

 

[Matt51100]

Re : VBA Méthode additem et tableau

bonjour Pierrot,

Merci, cela fonctionne au poil !

A+

 

[BOISGONTIER]

Re : VBA Méthode additem et tableau

Bonjour,

Propriété List

Il faut au moins 2 éléments dans le tableau ou le champ

Private Sub UserForm_Initialize()
Me.Service.List = Array("Etudes", "Informatique", "Marketing", "Production")
Me.Ville.List = Array("Boulogne", "Lyon", "Paris", "Versailles")
End Sub

Private Sub UserForm_Initialize()
Set f = Sheets("feuil2")
Me.ComboBox1.List = Range(f.[A2], f.[A65000].End(xlUp)).Value
End Sub

Si une liste est en ligne

Me.ComboBox1.List = Application.Transpose([A22])

ou

Me.ComboBox1.Column =[A22]

Avec un dictionnaire

Il peut y avoir un seul élément dans le dictionnaire.

Set d = CreateObject("Scripting.Dictionary")
d.Item("aa") = ""
Me.ComboBox1.List = d.keys

JB