Selectionner une ligne dans une listbox

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Septembre 2013

• #2

Re : Selectionner une ligne dans une listbox

Bonjour Max,

sans voir le fichier ........... fais un/des essais en modifiant le 6 ( à tout hasard, essaie 8 )

pour le premier élément de la ListBox , la valeur ListIndex est égale à zéro

à+
Philippe

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Septembre 2013

• #3

Re : Selectionner une ligne dans une listbox

Bonjour Philippe

Non il me donne toujours le N° après le + ?

Mon code complet de la listbox

Code:

Private Sub ListBox1_Click()
    Dim L As Long
    If ListBox1.ListIndex = -1 Then Exit Sub
    L = ListBox1.List(ListBox1.ListIndex, 1)
    With Sheets(Ws)
        TextBox1 = .Cells(L, 1)    ' Ref
        TextBox2 = .Cells(L, 2)    ' N°
        TextBox3 = .Cells(L, 3)    ' Date
        TextBox4 = .Cells(L, 4)    ' N° Facture
        TextBox5 = .Cells(L, 5)    ' Nom
        TextBox6 = .Cells(L, 7)    ' Adresse
        TextBox7 = .Cells(L, 8)    ' Cp
        TextBox8 = .Cells(L, 9)    ' Ville
        TextBox10 = .Cells(L, 10)    ' Tél
        TextBox11 = .Cells(L, 14)    ' H.T
        TextBox12 = .Cells(L, 12)    ' T.V.A
        TextBox13 = .Cells(L, 18)    ' T.V.A

    End With
    CommandButton6.Enabled = False
    CommandButton2.Enabled = True
    CommandButton3.Enabled = True
Label151 = ListBox1.ListIndex + 8
End Sub

 

Dernière édition: 26 Septembre 2013

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Septembre 2013

• #4

Re : Selectionner une ligne dans une listbox

Re,


952 messages et tu n'a pas encore compris qu'il est difficile de pondre une réponse sans voir le fichier

à+
Philippe

 

Pièces jointes

• 111.jpg

  15 KB · Affichages: 57
• 111.jpg

  15 KB · Affichages: 58

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Septembre 2013

• #5

Re : Selectionner une ligne dans une listbox

Re,

Oui je suis au courant mais mon fichier est trop gros même en le compressant Bref j'ai fait un fichier

@+

 

Pièces jointes

• Regler.xlsm

  65.4 KB · Affichages: 42

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Septembre 2013

• #6

Re : Selectionner une ligne dans une listbox

Re,

j'ai l'impression que le Combo devrait contenir les données des colonnes B ou D ...... et pas les titres de la ligne 1

sur quelle base doit s'effectuer la recherche pour pouvoir ensuite remplir la partie gauche de l'Usf ?

à+
Philippe

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Septembre 2013

• #7

Re : Selectionner une ligne dans une listbox

Re,

La recherche se fait en deux temps je recherche d'abord la colonne "Nom, N°, Adresse ect sur la première ligne et après je tape ma recherche dans le textbox9 alors que j'aurais peut être mieux fait avec deux Combobox en cascade?

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Septembre 2013

• #8

Re : Selectionner une ligne dans une listbox

Re,

et après je tape ma recherche dans le textbox9

Cliquez pour agrandir...

TBox9 est maintenant devenu inutile, le choix se fait directement dans la Listbox

j'ai également corrigé une petite erreur concernant la colonne où il faut aller chercher la TVA

Remarque: ce problème aurait été insoluble sans voir le fichier 😡
Remarque 2: il est nécessaire de ne pas avoir des cellules vides en colonne A à partir de la ligne 6


à+
Philippe

 

Pièces jointes

• 111.xlsm

  29.1 KB · Affichages: 39
• 111.xlsm

  29.1 KB · Affichages: 44
• 111.xlsm

  29.1 KB · Affichages: 47

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Septembre 2013

• #9

Re : Selectionner une ligne dans une listbox

Re,

Je te remercie mais je ne voit pas ou se trouve le?

j'ai également corrigé une petite erreur concernant la colonne où il faut aller chercher la TVA

Cliquez pour agrandir...

Bonne journée et merci

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Septembre 2013

• #10

Re : Selectionner une ligne dans une listbox

Re,

maval à dit:

Re,

Je te remercie mais je ne voit pas ou se trouve le?


Bonne journée et merci

Cliquez pour agrandir...

il fallait remplacer:
TextBox12 = .Cells(L, 12)

par:
TextBox12 = .Cells(L, 17)

à+
Philippe

 

Vote positif 0 Vote négatif