XL 2019 alimenter les textbox depuis une sélection dans un listbox

[le___destin]

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

 

[laurent950]

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

 

[le___destin]

Non c'est pas un virus .. je suis sûr
C'est un macro il demande une autorisation c'est sur

 

[ChTi160]

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

 

[ChTi160]

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

 

[le___destin]

Merci pour ton aide mais j'ai échoué d'adapté le code dans mes travaux..

 

[ChTi160]

Re
Dommage !
Bonne fin de journée
Jean marie

 

[le___destin]

 

[ChTi160]

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

 

[ChTi160]

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

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 !

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

 

[le___destin]

bonjours
ça marche pas le bouton supprimer son bloqué et la recherche s'arrête
merci d'avance pour ton aide

 

[le___destin]

Le problème c'est que a la recheche dans textbox27 la listbox1 reste toujour vide

 

[le___destin]

J'attends l'aide..

 

[ChTi160]

Bonsoir!
Je regarde cela demain ,Si personne ne passe lol
Jean marie

 

[le___destin]

Merci bien pour ton aide .. tu mérite le bien