Microsoft 365 Filtrer un tableau à partir de la selection d'une cellule

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2020

• #2

Bonjour le fil

Vins74000
J'aimerais t'aider mais Excel 2013 ne connait
=_xlfn.ANCHORARRAY(INTERDIT!$A$2)
Donc la liste déroulante est figée sur mon PC.

Je passe le relais pour le moment à ceux qui ont une version plus récente d'Excel.

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 15 Décembre 2020

• #3

Bonjour @Vins74000 🙂, @Staple1600 😉,

Même constat que Staple1600 sous Excel 2010.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 15 Décembre 2020

• #4

Bonjour,

Dans le code de la feuille 'Menu' du fichier joint, vous trouverez cette simple macro de filtrage de votre tableau.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C4" And Not IsEmpty(Target) Then
        ' Filtrage par numéro de série du tableau
        Sheets("Suivi menuiserie").ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=Target.Value
    End If
End Sub

Cordialement

P.S. Hello l'agrafe 🙂 Idem, n'ai pas pu me servir de la liste de validation.

[Edit] Hello @cp4

 

Pièces jointes

• PLANNING v5.xlsm

  93.8 KB · Affichages: 6

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Décembre 2020

• #5

Re, Bonjour cp4 😉, Roblochon 😉

Après mon café, j'ai repris conscience 😉

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim crit
If Target.Address = "$C$4" Then
crit = Target.Value
Feuil3.Activate
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:=crit, Operator:=xlAnd
End If
End Sub

NB: je crois que je vais finir par sortir les sous pour upgrader mon Excel 😉
Test OK sur mon Excel 2013
(Mais j'ai du faire ma propre liste de validation à la mimine sans utiliser UNIQUE)
😉

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 15 Décembre 2020

• #6

Staple1600 à dit:

je crois que je vais finir par sortir les sous pour upgrader mon Excel

Cliquez pour agrandir...

Si t'es sage le papa Noël passera .... ou pas !

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Décembre 2020

• #7

Bonjour à tous,

Un filtre avancé peut le faire.

JHA

 

Pièces jointes

• PLANNING v5.xlsm

  264 KB · Affichages: 9

Vote positif 0 Vote négatif

V

Vins74000

XLDnaute Nouveau

• 15 Décembre 2020

• #8

Wow!! tellement de réponse, je suis certain que je vais trouver mon bonheur, merci à tous!!

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 15 Décembre 2020

• #9

Re,

Quelle est la version de ton Excel?
Comme ta liste la formule de validation ni chez moi (Excel2010), ni chez Staple (Excel2013).
Tu peux ajouter ce code pour la liste de validation. Qui, je suppose fonctionnera chez toi aussi.

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, c as range, d as object

With Sheets("Suivi menuiserie")
Set Rng = .Range("A6:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
 
If Target.Address = "$C$4" Then
    Set d = CreateObject("Scripting.Dictionary")
    For Each c In Rng: d(c.Value) = "": Next c
    Target.Validation.Delete
    Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
  End If
End Sub

 

Vote positif 0 Vote négatif

V

Vins74000

XLDnaute Nouveau

• 15 Décembre 2020

• #10

je suis avec office 365, cela fonctionne avec la liste

 

Vote positif 0 Vote négatif