Discussion :

[Mr l'Ashanti]

Bjr à vous. Je vais aller droit au but comme les marseillais
J'ai créé une listbox qui affiche les données de la base de données se trouvant dans la feuille''source'' qui comporte 14 colonnes.( B à O).
Je voudrais que mes textbox affichent les données se trouvant dans la listbox quand je clique sur une ligne de la listbox et ensuite porter les modifications.
J'ai mis ce code :

Code :

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

1
2
3
4
5
Private sub  listbox_click()
On error resume next
Me.t_nom1. value= listbox.list(listbox.list,1)
Me.t_prenoms1.value =listbox.list(listbox.list2)
Etc

Mais un message d'erreur s'affiche : impossible de lire la propriété list.index de table de propriétés non valide.
J'accepte toute aide venant de votre part.


''Le bons sens est la chose au monde le mieux partagé''

[pijaku]

Bonjour,

1- supprimer : On error resume next
2- utiliser ListIndex au lieu de List :

Code :

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

Me.t_nom1.Value = ListBox1.List(ListBox1.ListIndex, 1)

[patricktoulon]

re
bonjour
je supose que tu a plusieurs colonne dans ta listbox et que le nom est en premiere colonne donc index de colonne(0)
dans ce cas las on peut l'ecrire comme ca

Code :

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

1
2
3
4
5
6
Private Sub listbox_click()
With ListBox
Me.t_nom1.Value = .List(.ListIndex, 0)
Me.t_prenoms1.Value = .List(.ListIndex, 1)
End With
Etc

[Mr l'Ashanti]

bonjour homo merci pour ta reponse.
lorsque je rentre le code dans le module il y a un message d' erreur: débogage sur le [me.t_nom1.value=list(.listindex,1)][/CODE]
j'ai mis listindex ,1 parce que la colonne de mon nom commence dans la deuxieme colonne
donc je t'envoie mon fichier.
tout ce que je rentre dans le module comme supprimer , recherche dans la textbox ou charger les combobox et textbox affiche debogage. je ne commprends pas le fond du probleme. tu pourras me donner un coup de main.

[pijaku]

Bonjour,

A quoi te sert, dans l'événement Click de ta ListBox, la ligne :

Code :

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

If ListBox1.Selected(0) = True Then ListBox1.Selected(0) = False

Simplement, elle "déselectionne" la ligne que tu as sélectionné.
Par conséquent, après cette ligne de code, la propriété Listindex = -1...

[Mr l'Ashanti]

C'est pour afficher le nombre de lignes de la listbox dans la case à numéro. Càd si j'ai 3 noms dans la listbox la textbox ( t_resultat_rech=3)

[Mr l'Ashanti]

Bonjour,

1- supprimer : On error resume next
2- utiliser ListIndex au lieu de List :

Code :

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

Me.t_nom1.Value = ListBox1.List(ListBox1.ListIndex, 1)

Merci pour la réponse
La suppression ne s'effectue pas. Mais au contraire elle se charge dans mes combobox et textbox qui sont destinés a la modification.

[Mr l'Ashanti]

Bonjour,

1- supprimer : On error resume next
2- utiliser ListIndex au lieu de List :

Code :

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

Me.t_nom1.Value = ListBox1.List(ListBox1.ListIndex, 1)

Pdf😖😖😖😖😖😖😖
Désolé pour la réponse. J ai confondu mes données. Ça marche . Les combobox et textbox se chargent. Merci et un grand merci.