ajouter une 2eme ligne dans listform

[nostress38]

bonjour le forum
je galere galere mais je compte sur vous

dans mon dossier lorsque j'appuie sur le bouton "verif tare" un listform s'inscrit
avec une seule lgne

mon probleme, je desire qu il y ai 2 lignes une pour la reference et une pour le produit en sachant que la meme reference aura toujours le meme produit

merci de tout coeur ;;;;;;

 

[jp14]

Re : ajouter une 2eme ligne dans listform

Bonjour

Ci joint le fichier avec une deuxième ligne !
Ne faudrai-il pas jouter une colonne ?

JP

 

[Spitnolan08]

Re : ajouter une 2eme ligne dans listform

Bonsoir,

L'intérêt d'une ListView est d'avoir plusieurs lignes de données...
Dans ton cas, même s'il est possible de faire ce tu demandes, il serait à mon sens plus pratique d'utiliser un autre type de contrôle pour afficher le résultat de la recherche via ta 1ère listView.
Cela t'éviterait l'utilisation du bouton mise à zéro qui n'est pas très fluide.

Par exemple :
-utilisation de labels si l'affichage est uniquement de type informatif
-Utilisation de textbox si tu dois faire des modifs ou déclencher une action par clic sur l'un des items.

Cordialement

Edit : Ben voilà JP14 a pointé son nez et t'a répondu. Mais ça ne change pas mon point de vue...
Euh...en fait je ne vois pas ce qu'a fait JP14😕

 

[fanfan38]

Re : ajouter une 2eme ligne dans listform

Bonjour j'ai remplacé le listview par un listbox (parametrable)

 

[jp14]

Re : ajouter une 2eme ligne dans listform

Bonsoir

Ci joint le fichier avec affichage d'une deuxième colonne.
Macro modifiée

Private Sub UserForm_Initialize()
    vale1 = ""
    col1 = 50
    col2 = 100 ' passage de 0 à la valeur 100 pour visualiser la colonne
    col3 = 0
....................
Private Sub Initlistview1()
          ......................
                data1 = Sheets(nomf1).Cells(I, 1)
                ' on rajoute les données deuxième colonne
                data2 = Sheets(nomf1).Cells(I, 2)
                .ListItems.Add , "k" & data1, data1
                ' on ajoute une colonne dans la liste view
                .ListItems(.ListItems.Count).ListSubItems.Add , , data2
.............................
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

    If col3 = 0 Then ' il faut indiquer la première colonne vide
             
        vale1 = ListView1.ListItems(Item.Index)
        'col2 = 60
        col3 = 60
        col4 = 60
 ...........................
    End If

 

[nostress38]

Re : ajouter une 2eme ligne dans listform

un grand merci a tous
bravo pour vos competences