Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Méthode additem et tableau

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Matt51100

XLDnaute Occasionnel
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) :

Code:
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 :

Code:
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+
 
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([A2😀2])

ou

Me.ComboBox1.Column =[A2😀2]

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
612
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…