Microsoft 365 Récupérer une valeur dans une ListBox filtrée

Emli15 · 3 Juin 2020

Bonjour,

Je suis embêtée et je ne trouve pas de solution à mon problème,
J'ai une ListBox que je peux filtrer à l'aide de Combobox, je récupère avec un double clique la valeur de la 6ème colonne de la ligne sélectionnée,
Puis charge une image, tout ça marche très bien sauf quand je filtre la ListBox en remplissant une ou des ComboBoxs.

Si quelqu'un à une idée, car là je ne sais vraiment plus où chercher.

Merci !

VB:

Private Sub ListBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

' Declaration des variables
Dim NuLigne As Integer
Dim intCurrentRow As Integer
Dim Index
 

' Boucle de recherche la ligne sélectionnée
For intCurrentRow = 0 To ListBox.ListCount - 1
If ListBox.Selected(intCurrentRow) Then
NuLigne = intCurrentRow
Exit For
End If
Next intCurrentRow


' récuperation de la valeur Index dans ListBox

    Index = ListBox.Column(6, NuLigne)


MonFichier = ("C:\Users...") & Index & (".jpg")

If FichierExiste(MonFichier) = True Then
        'MsgBox "Le fichier existe..."
        Label8.Visible = False
        Image1.Picture = LoadPicture(MonFichier)
    Else
        MsgBox "Le fichier image n'existe pas..."
        Image1.Picture = LoadPicture
    End If

End Sub

patricktoulon · 3 Juin 2020

re
ton problème vient d'ailleurs ca n'a rien a voir avec le filtre
listindex de donne l'index de la ligne sélectionnée et 6 te donne la 7 eme colonne car la 1 commence à 0

après un petit fichier avec des données bidons serait le bien venu là on travaille en aveugle

_Thierry · 3 Juin 2020

Bonjour @Emli15 , le Forum

Juste en voyant une variable nommée "Index", je tenterais en la la nommant "MyIndex" car je pense qe c'est un nom réservé...
Bonne journée
@+Thierry

Emli15 · 3 Juin 2020

Bonjour Thierry,
Merci, j'ai modifié le nom de ma variable mais l'erreur reste la même...

patricktoulon · 3 Juin 2020

bonjour à tous les deux
depuis quand on a besoins de boucler pour connaitre la ligne selectionnée
donc

VB:

'Dim NuLigne As Integer
'Dim intCurrentRow As Integer
Dim Index


' Boucle de recherche la ligne sélectionnée
'For intCurrentRow = 0 To ListBox.ListCount - 1
'If ListBox.Selected(intCurrentRow) Then
'NuLigne = intCurrentRow
'Exit For
'End If
'Next intCurrentRow


' récuperation de la valeur Index dans ListBox

   '' Index = ListBox.Column(6, NuLigne)
with listbox:index=.list(.listindex,6):end with'attention index devient ce qui il a d'ecrit en list(laligne selectionnée,colonne6) 

MonFichier = ("C:\Users...") & Index & (".jpg")

'If FichierExiste(MonFichier) = True Then
  if dir(MonFichier) =<>"" then
  'MsgBox "Le fichier existe..."
        Label8.Visible = False
        Image1.Picture = LoadPicture(MonFichier)
    Else
        MsgBox "Le fichier image n'existe pas..."
        Image1.Picture = LoadPicture
    End If

End Sub

Emli15 · 3 Juin 2020

Merci mais le problème reste le même, dès qu'on filtre la ListBox ça ne marche pas

patricktoulon · 3 Juin 2020

re
ton problème vient d'ailleurs ca n'a rien a voir avec le filtre
listindex de donne l'index de la ligne sélectionnée et 6 te donne la 7 eme colonne car la 1 commence à 0

après un petit fichier avec des données bidons serait le bien venu là on travaille en aveugle

Emli15 · 3 Juin 2020

Bah je vous remercie, j'ai cherché l'erreur dans le filtre du coup et elle était bien là, j'ai pu la corriger merci beaucoup

VB:

Sub AlimenteListbox()

Dim i, K, Lig, Col
    
'Remplissage ListBox avec filtre

Set f = Sheets("tab")
Tbl1 = f.Range("A2:G" & f.[A65000].End(xlUp).Row).Value
Dim Tbl2: ReDim Tbl2(1 To UBound(Tbl1), 1 To 7) 'C'était resté "1 To 6 donc évidemment quand je cherchais la 7ème valeur ça ne marchait pas"


    
End Sub

Merci beaucoup !

Microsoft 365 Récupérer une valeur dans une ListBox filtrée

Emli15

XLDnaute Nouveau

patricktoulon

_Thierry

XLDnaute Barbatruc

Emli15

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Emli15

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Emli15

XLDnaute Nouveau

Discussions similaires