Discussion :

[ryan.ighilahriz]

Bonjour à tous,

Voici mon problème :

J'ai une BD avec 4 colonnes (noms d'ouvrages, noms de groupes, la sensibilité et le pays).
Avec une macro (trouvée sur le net http://boisgontierjacques.free.fr/index2.htm) j'arrive a rechercher un item dans ma bd et filtrer mon tableau pour n'afficher que les lignes qui m'intéressent.
Par exemple, si le groupe qui m'intéresse s'appelle XXX, je tape son nom dans la barre de recherche et en cliquant sur Filtrer, j'obtiens le résultat voulu i.e le pays, les ouvrages et les sensibilités associées au groupe XXX.

A présent j'ai envie d'aller un peu plus loin. Je souhaiterais ajouter un filtre supplémentaire sur la sensibilité. C'est a dire :
1) Afficher seulement les ouvrages ayant une sensibilité > n par rapport au groupe XXX. (n étant un nombre que l'utilisateur fixera)
2) créer un bouton qui classerait par ordre de sensibilité croissante

idéalement, faire les taches 1+2 en un seul bouton

Avec l'enregistrement de macro, j'ai essayé de voir à quoi ressemblaient les lignes de codes. Sur un cas simple, ce se fait en une seule ligne mais j'ai du mal à adapter le code à mon cas...
Je mets en pièce jointe une version simplifiée de mon fichier.
Merci d'avance a tous ceux qui prendront le temps de me lire !

[78chris]

Bonjour


Tu as 2013 donc les tableaux structurés et les segments pour les filtrer d'un clic, tout cela sans une ligne de code....

Pourquoi utiliser un format xls, abandonné depuis 12 ans qui te prive de ces fonctionnalités ?

https://fauconnier.developpez.com/tu...ux-structures/

[boisgontierjacques]

Bonsoir,

Avec le filtre élaboré

En D2: =ET(NB.SI(A6:B6;"*"&$A$2&"*")>0;C6>=$B$2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A2:B2], Target) Is Nothing And Target.Count = 1 Then
    [A5:D50000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[d1:d2], _
      CopyToRange:=[M5:P5], Unique:=False
  End If
End Sub

Boisgontier

[ryan.ighilahriz]

Merci à vous deux