Selectionner une ligne dans une listbox

[maval]

Bonjour,

J'ai un petit souci avec mon label pour retrouver le N° de la ligne sélectionner dans ma listbox

Mon code

        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 + 6

End Sub

"Label151 = ListBox1.ListIndex + 6" +6 puisque je commence à la ligne 7

Je vous remercie de votre aide

 

[phlaurent55]

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

 

[maval]

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

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

 

[phlaurent55]

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

 

[maval]

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

@+

 

[phlaurent55]

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

 

[maval]

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?

 

[phlaurent55]

Re : Selectionner une ligne dans une listbox

Re,

et après je tape ma recherche dans le textbox9

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

 

[maval]

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

Bonne journée et merci

 

[phlaurent55]

Re : Selectionner une ligne dans une listbox

Re,

Re,

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


Bonne journée et merci

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

par:
TextBox12 = .Cells(L, 17)

à+
Philippe