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

laurent950

XLDnaute Barbatruc

• 4 Juin 2020

• #2

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

 

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 5 Juin 2020

• #3

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

 

Dernière édition: 5 Juin 2020

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juin 2020

• #4

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juin 2020

• #5

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

 

Pièces jointes

• Test Chti160.xlsm

  45.6 KB · Affichages: 15

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 5 Juin 2020

• #6

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Juin 2020

• #7

Re
Dommage !
Bonne fin de journée
Jean marie

 

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 6 Juin 2020

• #8

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 6 Juin 2020

• #9

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

 

Dernière édition: 7 Juin 2020

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Juin 2020

• #10

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

 

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 7 Juin 2020

• #11

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

 

Pièces jointes

• test 07-06-2020.xlsm

  36.6 KB · Affichages: 14

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 7 Juin 2020

• #12

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

 

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 8 Juin 2020

• #13

J'attends l'aide..

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Juin 2020

• #14

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

 

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 8 Juin 2020

• #15

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

 

Vote positif 0 Vote négatif