Problème de référence dans Listbox
Bonjour,
J'essaye d'afficher des données filtrées dans ListBox
L'affichage fonctionne bien avec la fonction ListBox1.AddItem mais lorsque je clique sur un élément de la Listbox pour afficher les détails dans des Textbox, ce sont les données d'un autre élément qui sont pris en compte
Je suis sur que ctte situation a déjà été posée dans ce forum mais je ne trouve aucune discussion qui répond à ma question
Voici le code pour ajouter des éléments à la listeBox :
Private Sub Affiche_Liste()
With Me.ListBox1
.ColumnCount = 4
.ColumnWidths = "80;100;120;80" 'Statut,Nom, Prénom, CodePostal
.Clear
End With
Dim k, i
k = 0
With Sheets("Data")
For i = 3 To .[A65000].End(xlUp).row
If .Cells(i, 2) = "TempsPlein" Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = .Cells(i, 2) 'Statut
Me.ListBox1.List(k, 1) = .Cells(i, 3) 'Nom
Me.ListBox1.List(k, 2) = .Cells(i, 4) 'Prénom
Me.ListBox1.List(k, 3) = .Cells(i, 8) 'CodePostal
k = k + 1
End If
Next i
End With
End Sub
Voici le code pour afficher dans des texxbox :
Private Sub ListBox1_Click()
Dim Ligne As Long
Ligne = Me.ListBox1.ListIndex + 3
With Sheets("Data")
txt_date = .Range("A" & Ligne)
txt_statut = .Range("B" & Ligne)
txt_nom = .Range("C" & Ligne)
txt_prenom = .Range("D" & Ligne)
txt_ddn = .Range("E" & Ligne)
txt_tel = .Range("F" & Ligne)
txt_adresse = .Range("G" & Ligne)
txt_codepostal = .Range("H" & Ligne)
End With
End Sub
Merci pour vos conseils
Bonjour M12,
Vraiment ça fonctionne bien avec ta formule : Ligne = Sheets("Data").Range("C:C").Find(ListBox1.Column(1), LookIn:=xlValues).Row
Ma question est de savoir quoi faire si dans la colonne C le Nom est répété 2 fois. Je pense dans ce cas que ca ne fonctionnera pas
As-tu une solution pour celà?
Merci comme-même pour la solution
Bonjour et bienvenue sur le forum
Bonjour à tous
Une variante à tester.
Bye !
Bonjour gmb,
Si je comprends bien, tu compares toutes les colonnes de la Listbox aux valeurs des cellules B, C, D et H et si on trouve l'équivalent on affiche les valeurs dans les textbox
Je trouve cette solution géniale car ça fonctionne même si on a des valeurs qui se répètent mais impossible que toutes les valeurs soient identiques
Merci beaucoup pour cette solution et je pense que je vais devenir un habitué de ce forum
Merci
misig a écrit :... je pense que je vais devenir un habitué de ce forum
J'en serai ravi !
Alors à bientôt peut-être !
Bye !