XL 2010 Besoins d'Aides !

[YoYo423401]

Bonjour a toutes et tous,
Etant débutant dans la programmations VBA, je me permets de vous demander de l'aide(s).

Pour commencer :

je possède 2 BDDs que j'aimerais lier avec une clé unique "Référence" afin de pouvoir avec mon USFGeneral récupérer certains champs de la base de données USFStock ( dans cellules les bleues à gauche du listviewGeneral). Ainsi en sélectionnant dans ligne ou suivant une recherche...., je pourrais voir les infos stocks.

De plus, je voudrais créer plusieurs listviews sans passer par les combos et donc directement réaliser un filtre dans le code du Listview..
Dans l'exemple suivant "Contrôle", je voudrais voir seulement les lignes ou apparaissent l'information "Contrôle" dans la section.

Merci pour vos aides.

 

[sylvanu]

Bonjour Yoyo,
En PJ avec ce que j'ai compris ( j'ai supposé que le Contrôle cherché était en colonne H )
J'alimente la listview avec :

'Alimenter la listview
    Ligne = 1
    Dim Indice
    For Each c In f.Range("A2:A" & Lr)
        If InStr(1, Cells(c.Row, "H"), "Contrôle") > 0 Then
            .ListItems.Add , , c
            For Indice = 0 To 16
                .ListItems(Ligne).ListSubItems.Add , , c.Offset(, Indice)
            Next Indice
            Ligne = Ligne + 1
        End If
    Next c

Le For Next est plus simple que mettre les 16 lignes.

Et pensez à changer le titre du post. Il doit être explicite.
"Besoins d'Aides !" ne veut rien dire quant au sujet abordé.

 

[YoYo423401]

Bonjour,
Merci pour votre solution rapide... je vais tester de suite!

 

[YoYo423401]

Bonjour Yoyo,
En PJ avec ce que j'ai compris ( j'ai supposé que le Contrôle cherché était en colonne H )
J'alimente la listview avec :

'Alimenter la listview
    Ligne = 1
    Dim Indice
    For Each c In f.Range("A2:A" & Lr)
        If InStr(1, Cells(c.Row, "H"), "Contrôle") > 0 Then
            .ListItems.Add , , c
            For Indice = 0 To 16
                .ListItems(Ligne).ListSubItems.Add , , c.Offset(, Indice)
            Next Indice
            Ligne = Ligne + 1
        End If
    Next c

Le For Next est plus simple que mettre les 16 lignes.

Et pensez à changer le titre du post. Il doit être explicite.
"Besoins d'Aides !" ne veut rien dire quant au sujet abordé.

Merci encore pour tout !

Pour insister..... dans le cas ou je veuille mettre 2 autres recherches dans la colonne I et J que dois-je coder ?

 

[sylvanu]

Bonjour Yoyo,

dans le cas ou je veuille mettre 2 autres recherches dans la colonne I et J que dois-je coder ?

Désolé, ça ne veut rien dire. Le code va dépendre des recherches demandées.
Alors au pif vous faites :

If Condition1 AND Condition2 AND Condition3 then

 

[YoYo423401]

hello Sylvanu, merci encore c'est top !