Modif sur filtre élaboré...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier le critère de tri pour ce filtre élaboré...

voir fichier joint

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement,
Christian

 

[BOISGONTIER]

Re : Modif sur filtre élaboré...

Bonjour,

Private Sub B_ok_Click()
    [L2] = Me.Nom
    Range("A1:J10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("L1:L2"), Unique:=False
End Sub

ou avec choix dans menu déroulant

Private Sub UserForm_Initialize()
  Set f = Sheets("saisies")
  Set d = CreateObject("scripting.dictionary")
  For Each c In f.Range("f2:f" & f.[F65000].End(xlUp).Row)
    d(c.Value) = ""
  Next c
  Me.ComboBox1.List = d.keys
End Sub

Private Sub ComboBox1_click()
    [L2] = Me.ComboBox1
    Range("A1:J10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("L1:L2"), Unique:=False
End Sub

JB

 

[Christian0258]

Re : Modif sur filtre élaboré...

Re, le forum, JB,

Merci, JB, pour le beau boulot.
C'est impec.

Bien à toi,
Christian

 

[Christian0258]

Re : Modif sur filtre élaboré...

Re, le forum, BOISGONTIER,

J'ai une tite demande concernant la liste des Noms récupérés par la ComBobox1 du post2 de JB ;

actuellement les Noms apparaissent dans l'ordre des saisies.

Peux-tu faire en sorte de les lister par ordre alphabétique ?

Merci pour votre aide.
Merci JB.

Bien à vous,
Christian

 

[BOISGONTIER]

Re : Modif sur filtre élaboré...

Bonjour,

cf PJ

Private Sub UserForm_Initialize()
  Set f = Sheets("saisies")
  Set d = CreateObject("scripting.dictionary")
  For Each c In f.Range("f2:f" & f.[F65000].End(xlUp).Row)
    d(c.Value) = ""
  Next c
  a = d.keys
  tri a, 1, UBound(a)
  Me.ComboBox1.List = a
End Sub

Sub tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call tri(a, g, droi)
  If gauc < d Then Call tri(a, gauc, d)
End Sub

JB

 

[Christian0258]

Re : Modif sur filtre élaboré...

Re, le forum, JB

Un grand merci, JB, pour ce nouveau travail.
Beau boulot, comme d'hab...

Bien à toi
Encore merci.
Christian

 

[Christian0258]

Re : Modif sur filtre élaboré...

Re, le forum,JB

J'ai une dernière demande pour filtrer la colonne J qui contient des croix (x)

Comment adapter cette dernière macro.

Bien à vous.
Christian

 

[BOISGONTIER]

Re : Modif sur filtre élaboré...

Avec le filtre auto

Sub FiltreCroix()
    [a1].AutoFilter Field:=10, Criteria1:="x"
End Sub

Sub tout2()
  [a1].AutoFilter
End Sub

jb

 

[Christian0258]

Re : Modif sur filtre élaboré...

Re, le forum, JB

Merci, JB, pour ton aide... à répétitions...lol
c'est parfait.

Bien à toi,
Christian