bonsoir de le monde
je besoin d'aide
J'ai déjà réussi à faire la recherche et le filtre depuis un userform
mais pas a afficher les information dans des textbox
merci d'avance pour m'aider
Bonsoir
Cela semble être un virus !
Le fichier ne s'ouvre pas, unique une boite de dialogue et se ferme, a aucun moment la main sur le fichier excel test.xlsm
Pas fiable
Bonjour le ___destin
Bonjour Laurent ,le Forum
j'ai ouvert le fichier ,mais pas évident de travailler dans le Sens inverse Lol (inversion du sens de lecture)
une proposition :
Pourquoi ne pas remplir ta ListBox avec l'ensemble des données de ton Tableau (8 colonnes sur x Lignes)?
Tu pourras ainsi récupérer plus facilement ces données dans tes TextBox
Bonne Journée
jean marie
Re
un fichier pas évident vu que le Userform(biss) ne contient pas d’entêtés sauf des nn , nnnn et autre nnnnnnnnnn etc etc
Donc pas de possibilité de savoir quelle est la place de chaque Colonne , mais bon !
jean marie
Bonsoir ,
Je ne me souvient plus trop mais je ne pense pas avoir mis le numéro de ligne a cette endroit dans la listbox !
Ça me paraît bizarre
Mais bon !
Je regarde ça demain
Jean marie
Bonjour
apres avoir regarde le fichier que j'ai joint #5
c'est bien ce que je pensais
j'ai dans le Userform Initialize mis
Code:
With Me.ListBox1
.ColumnCount = [Tableau13].Columns.Count
.ColumnWidths = "0;1;0;0;0;0;0"
.List = [Tableau13].Value 'On met dans la ListBox l'ensemble de la BD
End With
puis lorsque l'on sélectionne une ligne dans cette ListBox
on récupére les données de la Ligne de la ListBox !
Code:
Private Sub ListBox1_Click()
c = 0
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
For j = 0 To 6
c = c + 1
Me.Controls("TextBox" & c).Text = Me.ListBox1.List(i, j)
Next j
Exit For
End If
Next i
End Sub
Donc regarde bien le Code et corrige !
Bonne journée
Jean marie