XL 2010 Besoins d'Aides !

YoYo423401 · 8 Juin 2022

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 · 9 Juin 2022

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 :

VB:

'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 · 9 Juin 2022

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

YoYo423401 · 10 Juin 2022

sylvanu à dit:
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 :

VB:

'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 · 10 Juin 2022

Bonjour Yoyo,

YoYo423401 à dit:
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 :

VB:

If Condition1 AND Condition2 AND Condition3 then

YoYo423401 · 10 Juin 2022

hello Sylvanu, merci encore c'est top !

XL 2010 Besoins d'Aides !

YoYo423401

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

YoYo423401

XLDnaute Nouveau

YoYo423401

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

YoYo423401

XLDnaute Nouveau

Discussions similaires