Discussion :

[typouce]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Philippe Tulliez]

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.

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, " ", " ")

[Igloobel]

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

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

[typouce]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[typouce]

Re-bonjour Phlippe,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BENNASR]

pour alimenter combobox sans doublons adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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

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).