XL 2010 Problème avec ma listbox VBA

jadem

XLDnaute Nouveau
Bonjour,

Je suis coincée avec une listbox !

J'ai crée un doc pour rédiger rapidement des réponses à des commentaires clients et je suis relativement contente des premières fonctionnalités codées (choix de réponses d'avis positifs ou négatifs), combobox qui fonctionne (youpi) mais j'ai un petit souci sur ma listbox
a priori le filtre par combobox fonctionne mais j'ai toujours la première ligne qui apparaît (enfin plus exactement la ligne 2 de mon tableau) si quelqu'un pouvait faire en sorte que mon filtre fonctionne COMPLÉTEMENT j'en serais ravie
ci joint quelques images et le code

user 1.png
liste.png


Sur l'image ci dessous, pourquoi j'ai toujours ma 1e ligne qui apparaît même si j'ai changé le filtre (et qu'il a l'air de fonctionner puisque j'ai bien ma réponse sur le cadre)

user fault.png





Private Sub Sujetchoice_Change()
Dim LastLig As Long
Dim Code As String
Dim c As Range

Application.ScreenUpdating = False
With Me.ListBox1
.Clear
.Visible = True
End With

Code = Me.Sujetchoice.Value
If Me.Sujetchoice.ListIndex > -1 Then
With Worksheets("bdd")
.AutoFilterMode = False
LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
.Range("b2:b" & LastLig).AutoFilter Field:=1, Criteria1:=Code
For Each c In .Range("c2:c" & LastLig).SpecialCells(xlCellTypeVisible)
With Me.ListBox1
.AddItem c
.List(.ListCount - 1, 1) = c.Offset(0, 1)
.List(.ListCount - 1, 2) = c.Offset(0, 2)
End With
Next c
Me.Sujetchoice.Visible = True
.AutoFilterMode = False
End With
End If
End Sub



merci d'avance
 

jadem

XLDnaute Nouveau
hello hervé !
parce que je dois anonymiser le contenu des listes pour des raisons de confidentialité alors dans un premier temps si l'erreur saute aux yeux de quelqu'un ça me fait gagner un peu de temps ?
mais si pas le choix je vous mettrai le fichier bien sur
 

Discussions similaires

Réponses
4
Affichages
165

Statistiques des forums

Discussions
311 718
Messages
2 081 866
Membres
101 827
dernier inscrit
kubinou