Combobox avec la méthode AddItem

Bonjour,

Je cherche à alimenter des combobox dans un formulaire en utilisant la méthode AddItem car le nombre d'entrée des combobox est variable.

J'utilise le code suivant pour faire cette manipulation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Organ_Initialize()   JN_RN.Clear   numLigneDernierSalarie = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row   For i = 3 To numLigneDernierSalarie Organ.JN_RN.AddItem Replace(Sheets("Data").Range("A" & i).Value, " ", " ") Next     End Sub

---

Par Contre, le combobox ne remonte aucune valeur.

Avez-vous une idée ?.

Merci !

Bonjour,

Citation:

---

Je cherche à alimenter des combobox dans un formulaire en utilisant la méthode AddItem car le nombre d'entrée des combobox est variable.

---

Pour moi, l'utilisation de la méthode AddItem n'a de sens que s'il y a une condition à remplir pour ajouter un élément dans la liste. Dans le cas contraire, il me semble plus simple d'utiliser la propriété List

A titre de curiosité, j'aimerais savoir ce que vous voulez remplacer dans la ligne 9 du code publié lorsque vous utilisez Replace(Sheets("Data").Range("A" & i).Value, " ", " ")

Bonjour à tous,

Oui c'est normal VBA fait ce que tu lui demandes

tu lui dit : ajoute un espace à la place de la valeur du contenu de la cellule et tu boucles jusqu'à la fin …

donc vire le replace et cela va mieux marcher :mrgreen:

tu nous tiens au courant

PS : pour mieux m'y retrouver perso j'utilise les initiales du type d'objet pour son nom
exemple
UF_Organ au lieu d'Organ

CB_ pour les ComboBox
BT_ pour les boutons
CKB_ pour les CheckBox
…

Comme cela d'un seul coup d'œil tu vois de quoi tu parles

Bonjour et merci pour votre aide :

J'ai modifié le code de la manière suivante, en suivant les conseils de Igloobel, mais ça ne fonctionne pas mieux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Organ_Initialize()   JN_RN.Clear   numLigneDernierSalarie = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row   For i = 3 To numLigneDernierSalarie Me.JN_RN.AddItem Sheets("Data").Range("A" & i).Value Next   End Sub

---

Y a-t-il un paramétrage supplémentaire à faire dans les propriétés du ComboBox ?

@Philippe : comment écrirais-tu le code avec la méthode List ?

Merci !

Cordialement.

Bonjour,
Exemple d'une procédure placée dans un module standard.
Les données utilisées se trouve dans un tableau structuré nommé t_Sales

Code:

---

1 2 3 4 5 6 7 8 9

Sub Main() With usfSalesConsultation With .lstSales .List = Range("t_Sales").Value .ColumnCount = Range("t_Sales").Columns.Count End With .Show End With End Sub

---

Re-bonjour Phlippe,

J'ai essayé le code suivant sans plus de succès :

Code:

---

1 2 3 4 5 6 7

Private Sub Organ_Initialize()   numLigneDernierSalarie = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row 'For i = 3 To numLigneDernierSalarie Me.JN_CdB.List() = Sheets("Data").Range("A3:A" & numLigneDernierSalarie).Value 'Next End Sub

---

Cordialement.

pour alimenter combobox sans doublons adapter :

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim i As Integer For i = 2 To Sheets("feuil1").Range("A65536").End(xlUp).Row ComboBox1 = Sheets("feuil1").Range("A" & i) If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").Range("A" & i) Next i End Sub

---

Bonjour,

Citation:

---

J'ai essayé le code suivant sans plus de succès

---

Qu'entendez-vous par "sans succès" ?
Que voulez-vous faire exactement, quels sont les éléments qui doivent être dans cette liste ?

Si vous persistez à utiliser des plages classiques, voici un code qui charge dans le ListBox nommé lstSales, toute la première colonne d'un tableau dont les données débutent en cellule A2. Le code est identique pour un ComboBox

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() Dim NumberOfRow As Long NumberOfRow = ThisWorkbook.Worksheets("Mes ventes").Range("A2").End(xlDown).Row Me.lstSales.List = ThisWorkbook.Worksheets("Mes ventes").Range("A2:A" & NumberOfRow).Value End Sub

---

Salut.

Il faudrait préciser ta version d'Excel...

Perso, je ne peux qu'approuver et plébisciter la réponse de Philippe au message #5. Un tableau structuré est à mon sens la meilleure structure pour contenir les données à placer dans une listbox. J'apprécie tout particulièrement l'architecture proposée qui déporte l'initialisation ailleurs que dans le Initialize qui ne devrait pas être utilisé pour amener des données externes dans le userform ;) :plusser:

Même lorsque l'on doit tenir compte d'une condition, je reste persuadé qu'en pensant Excel avant de penser VBA, on est gagnant, par rapport par exemple à l'utilisation d'un dictionary. Et là, la version d'Excel est déterminante:

• Autre que 365: on passe par un tableau temporaire que l'on filtre ou trie;
• 365: Les plages dynamiques alimentées avec TRIER, TRIERPAR, FILTRE et UNIQUE font des merveilles (voir mes billets ici et ici).