XL 2013 Extraction d'une lite de données via un formulaire

[pierre811517]

Bonjour,

j'ai une base de données de X lignes.
Je souhaiterais afficher via un formulaire une partie de cette base en fonction de 2 critères (voire plus). Exemple: extraire le nombre de ligne si critère1=a et critère2=b
Je n'y arrive pas du tout.
Pourriez vous m'aider svp?

Merci par avance,

bien cdt,

Pierre

 

[job75]

Bonjour pierre811517, bienvenue sur XLD,

Utilisez le filtre avancé, manuellement ou par macro, nombreux exemples sur ce forum.

A+

 

[pierre811517]

Bonjour pierre811517, bienvenue sur XLD,

Utilisez le filtre avancé, manuellement ou par macro, nombreux exemples sur ce forum.

A+

Merci job75. par le filtre avancé (et avec macro) je sais le faire mais je souhaiterais le faire via un formulaire (pour mes clients desti)

Merci

 

[job75]

Le formulaire n'est pas indispensable mais si vous savez le faire faites-le !

 

[pierre811517]

Le formulaire n'est pas indispensable mais si vous savez le faire faites-le !

justement c'est ma question, je n'arrive pas à le faire avec plusieurs critères de recherche

 

[job75]

Nous encore moins sans fichier ni explications.

 

[pierre811517]

Nous encore moins sans fichier ni explications.

est ce possible ou non ?

 

[job75]

J'ai dit nombreux exemples sur le forum !!!

Lisez la Charte du forum avant de joindre votre fichier.

 

[pierre811517]

J'ai dit nombreux exemples sur le forum !!!

Lisez la Charte du forum avant de joindre votre fichier.

charte lue merci beaucoup. J'ai mis un exemple de fichier. Pour être précis je souhaiterais créer un formulaire pour extraire les l'ensemble des lignes ou code=9L et code1=774060 par exemple. Merci.

 

[p56]

Bonjour à tous,
Voici une proposition au plus simple
P.

 

[pierre811517]

Bonjour à tous,
Voici une proposition au plus simple
P.

Merci beaucoup, c'est parfait !

 

[pierre811517]

Bonjour à tous,
Voici une proposition au plus simple
P.

petite questions complémentaire: sur le fichier que je vous ai mis, si je veux ajouter des colonnes mais que je ne veux pas les filtrer (qu'elles apparaissent seulement dans le résultat), que faut-il modifier dans le code? merci

 

[job75]

Voici une proposition au plus simple

Non, le plus simple c'est de se passer d'UserForm, voyez le fichier joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If FilterMode Then ShowAllData 'si la feuille est filtrée
Range("B2:E" & Range("B" & Rows.Count).End(xlUp).Row).AdvancedFilter xlFilterInPlace, [F2:F3]
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

Formule du critère en F3 :

=ESTNUM(CHERCHE(B$1;B3))*ESTNUM(CHERCHE(C$1;C3))*ESTNUM(CHERCHE(D$1;D3))*ESTNUM(CHERCHE(E$1;E3))

Tout cela est facilement adaptable si l'on veut ajouter ou supprimer des colonnes.

 

[p56]

petite questions complémentaire: sur le fichier que je vous ai mis, si je veux ajouter des colonnes mais que je ne veux pas les filtrer (qu'elles apparaissent seulement dans le résultat), que faut-il modifier dans le code? merci

C'est simple :
* renseigner la dernière colonne dans la variable Td (sub Usf) au lieu de D dans Td = .Range("A1: D" & lg).Value
* ensuite dans les propriétés de la Listbox, il suffit d'indiquer le nb de colonnes à afficher à la ligne "ColumnCount" (pour l'instant 4)
P.

 

[job75]

Fichier (2) avec un tableau structuré :

Private Sub Worksheet_Change(ByVal Target As Range)
If FilterMode Then ShowAllData
ListObjects(1).Range.AdvancedFilter xlFilterInPlace, [G2:G3]
End Sub