XL 2010 Problème avec ma listbox VBA

[jadem]

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

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)

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

 

[herve62]

Bonjour
Pourquoi ne pas joindre le fichier ?? au moins on pourrait tester !

 

[jadem]

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

 

[fanch55]

Bonjour,
On fait référence à la ligne de titre dans un Filtre ( de préférence) :
.Range("b21:b" & LastLig).AutoFilter Field:=1, Criteria1:=Code

 

[jadem]

Bonjour,
On fait référence à la ligne de titre dans un Filtre ( de préférence) :
.Range("b21:b" & LastLig).AutoFilter Field:=1, Criteria1:=Code

merci ça fonctionne