[VBA-E] Problème pour remplir une listbox multicolonne

Version imprimable

Bonjour à tous,

j'ai un problème avec une listbox récalcitrante.

Je cherche à la remplir avec des données qui viennent d'une feuille Excel.
Dans mon userform, j'ai plusieurs combobox, notamment une qui liste des noms de personne. La source est la même que celle de la listbox.

Je cherche a mettre à jour dynamiquement ma listbox en fonction de la valeur de la combobox. Il y a 5 colonnes à mettre à jour.

Quand je fais un test en séléctionnant le nom de la première personne qui est dans la feuille Excel, ma macro fonctionne, j'ai bien trois lignes (car il a trois entrées qui correspondent au nom de cette personne dans la feuille Excel) ainsi que les valeur des 5 colonnes suivantes.

Par contre, dès que je séléctionne un autre nom dans ma combobox, la mise à jour de ma listbox ne se fait que pour la 1ère colonne.

J'ai retourné le problème dans tous les sens, je n'ai pas encore réussi à comprendre d'où venait le problème. Intuitivement, je pense qu'il y a un soucis dès que l'on séléctionne le nom d'une personne qui n'est pas le premier dans la liste de la feuille Excel... Mais après... :aie:

Qu'en pensez vous ?

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Private Sub ComboBox1_Change() Dim Comptes As New Collection Dim id As Integer Dim n As Integer Application.ScreenUpdating = False Sheets("Database").Activate id = Sheets("Database").Range("A1000").End(xlUp).Row ListBox1.Clear On Error Resume Next For n = 4 To id If Sheets("database").Range("A" & n).Value = ComboBox1.Value Then ListBox1.AddItem Sheets("database").Range("W" & n).Value ListBox1.List(n - 4, 1) = Sheets("database").Range("F" & n).Value ListBox1.List(n - 4, 2) = Sheets("database").Range("J" & n).Value ListBox1.List(n - 4, 3) = Sheets("database").Range("L" & n).Value ListBox1.List(n - 4, 4) = Sheets("database").Range("V" & n).Value End If Next n Application.ScreenUpdating = True End Sub
Qu'en pensez vous ?

Juste pour le principe. Dans l'exemple, le No de colonne de la feuille de calcul est utilisé pour déterminer le No de colonne dans le combo

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DernièreLigne = 100
NbreColonnes = 6
'Je commence par remplir la première colonne de mon combo avec Additem
'DernièreLigne = DernièreLigne de la colonne Nom
NoCol = 1 'N° de la 1ère colonne lue
For i = 1 To DernièreLigne - 1 '(-1) voir explication ci-dessous
    '(+1 pour passer la ligne de titre dans la feuille de calcul, 
    'donc DernièreLigne -1 parce Cells(NoLigne + 1, NoCol)
    MaForm.ComboAideLoyers.AddItem Cells(i + 1, NoCol).Value  
Next i
 
'Dans cet exemple, la première colonne lue est la colonne 1, donc, je lis les suivantes
For NoCol = 2 To NbreColonnes
    For NoLigne = 2 To DernièreLigne - 1
        MaForm.ComboAideLoyers.List(NoLigne - 1, NoCol) = Cells(NoLigne, NoCol).Value
    Next NoLigne
Next NoCol

On peut bien sûr combiner les deux comme tu l'as fait. ;)
C'est toi qui vois...
A+

07/05/2007, 15h41
Invité

Je vois ce que tu veux dire Ouskel'n'or, j'ai aussi pensé faire une boucle sur les colonnes mais je ne peux pas car ces dernières ne sont pas juxtaposées.

Pas d'idées sinon sur le fait que je n'arrive pas à remplir les autres colonnes de ma listbox quand je change la séléction de ma combobox ?
07/05/2007, 16h01
ouskel'n'or

Citation:

Envoyé par Tu

quand je change la séléction de ma combobox ?

Que représente cette sélection ? Une donnée ? Une colonne ou un nom de colonne ?
A+
07/05/2007, 16h20
Invité

Il s'agit d'un nom.

Je compare ce nom avec la valeur de chaque cellules de la colonne A de n à id.

Lorsque je trouve une valeur identique, alors j'ajoute les valeurs de certaines cellules de la même ligne dans ma listbox.

Normalement l'orthographe des nom est identique car ces derniers sont rentrés à partir d'un userform et d'une list de nom prédéfinie.

Déjà, tu peux tester ça en adaptant id et le nom de la combo...

Code:

1
2
3
4
5
6
7
8
9
id = 10
With Worksheets("Feuil1")
    Set Plage = .Range(Cells(1, 4), Cells(1, id))
    Set c = Plage.Find(Combo.List(Me.Combo.ListIndex), LookIn:=xlValues, SearchOrder:=xlByColumns)
        If Not c Is Nothing Then
                NoCol = c.Column
            Else
                MsgBox "La colonne " & Me.Combo.List(Combo.ListIndex) & " n'existe pas"
        End If

Après on verra. (pas testé mais ça devrait aller)

07/05/2007, 16h55
Invité

Je viens de trouver la solution.

Il suffit de rendre indépendant le numéro de la ligne de la listbox que l'on souhaite remplir.

Dans mon code, n était le numéro de ligne de chacune des cellules testés.

J'ai remplacé n par une autre variable que j'incrémente de 1 à chaque fois que mon test "si" est vrai.

Merci pour le temps que vous avez passé sur mon problème.