Discussion :

[SFrane]

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

Qu'en pensez vous ?

Voici mon code :

Code :

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

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 ?

[ouskel'n'or]

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 :

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

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+

[SFrane]

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 ?

[ouskel'n'or]

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+

[SFrane]

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.

[ouskel'n'or]

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

Code :

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

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)

[SFrane]

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.