Affichage dans une ListView

Question

Bonjour à tous
J'ai besoin d'aide pour un problème avec une ListView.
J'ai un ComboBox avec saisi semi automatique, en fonction de mon texte et a fur et a mesure qu'il s'affiche dans le ComboBox, je voudrais que ma ListView se mette à jour.
Est-ce possible?
 Merci d'avance

cs_Jack · Answer

Salut
Tu n'es pas assez précis dans ta demande.
Mettre à jour une ListView, pourquoi pas, mais avec quoi ?
Quel est le lien entre ta ComboBox et ta ListView ?
"en fonction de mon texte" : Quel texte ? Celui que tu saisis dans la ComboBox ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

jojoye · Answer

Salut
Je vais essayer d'être un peu plus précis.
J'ai une combobox alimenté par une feuille."Articles"
Combo:   Tube 1
               Tube 2
               Tube 3
               Tube 4
               ect.....
J'ai également une listview alimenté par la meme feuille. "Articles"
Liste:       Tube 1
               Tube 2
               Tube 3
               Tube 4
               ect.....
La Combobox est en saisi semi automatique, donc lorsque je commence a mettre du texte dans la combo (exemple "Tube 3") tout le texte de la listview avant le mot "Tube 3" doit s'enlever. Dans ce cas précis je ne veux plus voir ("Tube 1" et "Tube 2") dans ma ListView.

Clad49 · Answer

salut !

Utilise tu des requettes pour afficher tes résultats dans la listview ?

Clad

jojoye · Answer

Salut
et merci de t'interesser a mon probleme, voici le code que j'utilise pour alimenter ma ListView.

Private Sub UserForm_Activate()
    Worksheets("Articles").Activate
    Columns("A:I").Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Me.TxtRemise = 0
    
    ListView1.ColumnHeaders.Clear
    
    ListView1.ColumnHeaders.Add , , "N° Auto", ListView1.Width * 0, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Référence", ListView1.Width * 0.15, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Désignation", ListView1.Width * 0.5, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Unité", ListView1.Width * 0.05, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Prix U. HT", ListView1.Width * 0.2, lvwColumnRight
    ListView1.ColumnHeaders.Add , , "Prix mini HT", ListView1.Width * 0, lvwColumnRight


    Dim iLigArticle As Integer
    iLigArticle = 2

    ListView1.ListItems.Clear


    While Sheets("Articles").Cells(iLigArticle, 1) <> ""
    
    'Alimentation des éléments de la liste
    ListView1.ListItems.Add iLigArticle - 1, , Sheets("Articles").Cells(iLigArticle, 1)
    ListView1.ListItems(iLigArticle - 1).SubItems(1) = Sheets("Articles").Cells(iLigArticle, 2)
    ListView1.ListItems(iLigArticle - 1).SubItems(2) = Sheets("Articles").Cells(iLigArticle, 3)
    ListView1.ListItems(iLigArticle - 1).SubItems(3) = Sheets("Articles").Cells(iLigArticle, 4)
    ListView1.ListItems(iLigArticle - 1).SubItems(4) = Format(Sheets("Articles").Cells(iLigArticle, 9), "## ##0.00 ?")
    ListView1.ListItems(iLigArticle - 1).SubItems(5) = Format(Sheets("Articles").Cells(iLigArticle, 8), "## ##0.00 ?")
    
    iLigArticle = iLigArticle + 1
    Wend
    
End Sub

Clad49 · Answer

salut !
En faite je ne connait pas vraiment l'utilisation des feuilles exel avec vb ! Tu aurai utilisé une base de donnée acces (.mdb) cela aurai était plus simple pour moi.
Car je ne sais pas si il est possible d'utiliser les requêtes sql pour sélectionner les éléments que l'on veut afficher ?
c'est du genre " Select * from LaOuTuVeut" .
Un avantage c'est que tu peut vraiment mieux affiner ta recherche. Et pour en venir la ou je voulais il y a une requête qui permet de sélectionné les infos en fonction des lettre que tu a rentrer. Il t’aurai juste fallu vider ta listeview à chaque entré de l'utilisateur et de réafficher les nouvelle en fonction de ceux qu'il aurai entré dans la combo !

Clad

jojoye · Answer

Merci quand meme

Affichage dans une ListView

6 réponses

Votre réponse

Discussions similaires