XL 2021 Fitrer BDD avec critéres Colonne B

[MuscatMimi]

Bonsoir a tous

sur cette peite BDD je désire creer un bouton pour afficher que les lignes avec X colonne B

Creer aussi un bouton pour afficher toutes les lignes

Merci a tous

 

[Piment]

Bonsoir a tous

sur cette peite BDD je désire creer un bouton pour afficher que les lignes avec X colonne B

Creer aussi un bouton pour afficher toutes les lignes

Merci a tous

Bonsoir à tous.
MuscatMimi, pourquoi vous n'utilisez pas le filtre natif d'Excel. C'est le plus simple.
Sauf si je n'ai pas compris votre demande.
Ci-joint votre classeur.
Regardez et dites-moi.
Cordialement.

 

[MuscatMimi]

Bonsoir à tous.
MuscatMimi, pourquoi vous n'utilisez pas le filtre natif d'Excel. C'est le plus simple.
Sauf si je n'ai pas compris votre demande.
Ci-joint votre classeur.
Regardez et dites-moi.
Cordialement.

Bonsoir, non c'est pas ce que je recherche, ce que je cherche c'est ce qui est écrit,merci

 

[job75]

Bonsoir MuscatMimi, Piment,

Private Sub CommandButton1_Click()
Range("A4", Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter 2, "X"
End Sub

Private Sub CommandButton2_Click()
If Me.FilterMode Then Me.ShowAllData
End Sub

A+

 

[MuscatMimi]

Bonsoir MuscatMimi, Piment,

Private Sub CommandButton1_Click()
Range("A4", Cells.SpecialCells(xlCellTypeLastCell)).AutoFilter 2, "X"
End Sub

Private Sub CommandButton2_Click()
If Me.FilterMode Then Me.ShowAllData
End Sub

A+

Super bravo c'est ce qye je cherche,merci a tous

 

[job75]

Bonjour le forum,

Testez en entrant "aaaa" en H36 et "X" en B36 vous verrez que la 1ère macro ci-dessus ne va pas, il faut :

Private Sub CommandButton1_Click()
With Range("A4:G" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    .AutoFilter 'RAZ du filtre
    .AutoFilter 2, "X"
End With
End Sub

Private Sub CommandButton2_Click()
If Me.FilterMode Then Me.ShowAllData
End Sub

A+

 

[MuscatMimi]

Bonjour le forum,

Testez en entrant "aaaa" en H36 et "X" en B36 vous verrez que la 1ère macro ci-dessus ne va pas, il faut :

Private Sub CommandButton1_Click()
With Range("A4:G" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    .AutoFilter 'RAZ du filtre
    .AutoFilter 2, "X"
End With
End Sub

Private Sub CommandButton2_Click()
If Me.FilterMode Then Me.ShowAllData
End Sub

A+

 

[MuscatMimi]

bonjoiur, super, mrci mais la premièree solution me vas trés bien