Discussion :

[rvtoulon]

Bjr Le Forum,
suite à mon sujet d'hier "comment remplir une listview", je suis à nouveau devant un problème.
dans le formulaire que j'ai fait il y a 1 combobox, 1 listview,1 listbox. lorsque je sélectionne une entrée de la combo la listbox ce met à jour, lorsque je clique sur une ligne de la listbox, la listview affiche une donnée, jusque là tout va bien. Mais si je sélectionne une autre ligne de ma listbox la listview ne se met pas à jour l'ancienne donnée reste affichée... que faire?
voici le code de la combo:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Dim i As Long
 
For i = 1 To 2
If ComboBox1.Value = Sheets(i).Name Then
  ListBox1.RowSource = ("Noms" & i)
 
End If
Next i
 
End Sub

voici le code de la listbox:

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
Private Sub ListBox1_Click()
With ListBox1
For x = 1 To 2
' boucle sur tous les données de la listbox
'Les index des Listbox commencent par zéro
    For i = 0 To .ListCount - 1
     Debug.Print .List(i)
     If .ListIndex = i Then
     ListView1.ListItems(1).ListSubItems.Add , , Sheets(x).Range("B" & (i + 2)).Value
     End If
     Next i
Next x
End With
 
End Sub

Pouvez-vous me dire si j'ai loupé quelques choses? merci

Re,
pour mieux comprendre voici un fichier d'exemple.
A+

[rvtoulon]

slt le forum,
apparemment on est pas trop inspiré par les listview, lol.
à force de persévérence et de beaucoup de lecture j'ai fait quelques modifications qui fonctionnent les voici (en rouge):

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
Private Sub ListBox1_Change()
With ListBox1
       
ListView1.ListItems(1).ListSubItems.Clear

For x = 1 To 2
' boucle sur tous les données de la listbox
'Les index des Listbox commencent par zéro
  
    For i = 0 To .ListCount - 1
     Debug.Print .List(i)
     If .ListIndex = i Then
     ListView1.ListItems(1).ListSubItems.Add , , Sheets(x).Range("B" & (i + 2)).Value
     End If
     Next i
Next x
End With
End Sub

d'abord j'ai changé le "_click" en "_change", ensuite je me suis rendu compte qu'il fallait effacer le contenu de la listview sinon il garde en mémoire la première entrée. Donc avec ce code si je choisis une autre ligne de ma listbox, la listview affiche bien la donnée correspondante.
Toutefois si je choisis dans le combobox un autre choix ( ex le 2eme) ma listbox change mais comme je boucle sur l'index de ma listbox dans le premier passage sur la boucle, il m"afffiche dans la listview le résultat de la première listbox et comme je n'efface pas la listview au deuxieme passage le résultat ne change pas.
Voyez-vous un moyen d'introduire la ligne ci dessous afin qu'elle puisse m'effacer la listview ?

Code :

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

ListView1.ListItems(1).ListSubItems.Clear

ou peut-être avez-vous une autre solution? Merci pour votre aide

[rvtoulon]

Re,
j'ai eu un flash,
A force de réfléchir et grâce à la touche F8 (je l'adore) j'y suis arrivé. j'ai fait quelques changement dans mon code tout d'abord ici en rouge:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Dim i As Long

For i = 1 To 2
If ComboBox1.Value = Sheets(i).Name Then
  ListBox1.RowSource = ("Noms" & i)
Sheets(i).Activate
End If
Next i

End Sub

puisque je sélectionne ma feuille avant du coup je n'ai plus besoin de faire une boucle sur les feuilles donc j'ai supprimé une boucle dans listbox1_changevoici le 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
Private Sub ListBox1_Change()
With ActiveSheet
 
ListView1.ListItems(1).ListSubItems.Clear
 
' boucle sur tous les données de la listbox
'Les index des Listbox commencent par zéro
 
    For i = 0 To ListBox1.ListCount - 1
     Debug.Print ListBox1.List(i)
     If ListBox1.ListIndex = i Then
     ListView1.ListItems(1).ListSubItems.Add , , Range("B" & (i + 2)).Value
     End If
     Next i
 
End With
End Sub

tout fonctionne c le pied
A+ le Forum