Affichage listbox ?

Bonjour,

Voila dans mon listbox une liste complète s'affiche ( id,produit,prix)

Quand je sélection une ligne tout ce mes bien a ça place

Ce que je voudrais c'est juste que l'ID s'affiche , mes quand je sélection tout ce mette toujours (copie sur une ligne) ID,PRODUIT,PRIX

Voici mon code

Sub listeProduit(maVal)
    Dim derLigne As Integer
    Dim laLigne As Integer
    Dim laFeuille As String
    laFeuille = "Produits"

    derLigne = Sheets(laFeuille).Range("A" & Rows.Count).End(xlUp).Row
    laLigne = 2    
    F_Produit.ListBoxProduitNom.Clear

    While laLigne < derLigne + 1
        If LCase(Sheets(laFeuille).Range("B" & laLigne).Value) Like "*" & LCase(maVal) & "*" Then
            F_Produit.ListBoxProduitNom.AddItem Sheets(laFeuille).Range("A" & laLigne).Value & _
            "_" & Sheets(laFeuille).Range("B" & laLigne).Value & _
            "_" & Sheets(laFeuille).Range("C" & laLigne).Value & "€"
        End If        
    laLigne = laLigne + 1
    Wend      
End Sub

Sub choixProduit()
    Dim leChoix() As String
    Dim qte As Integer
   ' MsgBox F_Client.ListBoxClientNom.Text
   qte = F_Produit.TextBoxQte.Value
   leChoix = Split(F_Produit.ListBoxProduitNom.Text, "_")

    derLigne = Sheets("Devis").Range("B" & Rows.Count).End(xlUp).Row + 1
    If derLigne < 18 Then derLigne = 18

    If derLigne > 40 Then
        MsgBox "Fini"
    ElseIf derLigne > 17 Then
        Sheets("Devis").Range("B" & derLigne).Value = leChoix(0)
        Sheets("Devis").Range("C" & derLigne).Value = leChoix(1)
        Sheets("Devis").Range("G" & derLigne).Value = leChoix(2)
        Sheets("Devis").Range("H" & derLigne).Value = qte
        Sheets("Devis").Range("I" & derLigne).Value = qte * leChoix(2)
    End If
End Sub

Bonjour toutes et tous

@Piloupil

Est-ce toujours ce lien d'actualité et ce classeur ci-joint ?

https://forum.excel-pratique.com/viewtopic.php?f=2&t=142792&p=877428#p877428

Sniff . Se serai sympa de répondre au post

Edit : j'ai supprimé le lien de téléchargement du classeur ce n'est pas le bon

crdlt,

André

Ha oui désoler je vais répondre j'ai zapé

Oui c'est en lien mes pas le même problème

Re,

Ne t'inquiètes pas se n'est pas grave, s'était juste pour savoir si s'était le bon classeur

aurais-tu du coup le classeur mis à jour ? afin de ne pas se mélanger les pinceaux, merci

C'est toujours le meme classeur

J'aimerai que dans le listbox il y est uniquement L'ID (1,2,3 ect.. )

Re,

arf non test trop rapide

crdlt,

André

Re

Je n'y arrive pas ,

Au début, j'avais pensé à la RowSource de la listbox1 de l'usf, nommé le tableau mais après cela ne fonctionnera plus

la listbox me fait devenir fou

le choix du produit arf

crdlt,

André

j'ai testé plusieurs truc je ni arrive pas non plus