Autres (RESOLU)Afficher les lignes qui contient 1

[chaelie2015]

Bonsoir
Je souhaite via VBA (bouton) d'afficher toutes les lignes (a partir de la ligne 6) de la colonne Q qui contient la valeur 1 par un bouton.
a+

 

[Phil69970]

Bonjour @chaelie2015

Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

[chaelie2015]

Bonjour @chaelie2015

Je te propose ce fichier

*Merci de ton retour

@Phil69970

Bonsoir phil69970😉
merci pour la réponse rapide; mais je souhaite sans faire afficher le filtre sur l'entête de la colonne est il possible ?
a+

 

[Phil69970]

Re

2eme essaie

@Phil69970

 

[chaelie2015]

Re

2eme essaie

@Phil69970

Re
ça ne fonctionne pas?

 

[Phil69970]

Re

Tu es sur car je viens d'essayer sur le fichier que tu as fourni et cela fonctionne

Si cela ne marche pas explique ...... (message ....)

@Phil69970

 

[Phil69970]

Re

Essaye cette autre version :

*Merci de ton retour

@Phil69970

 

[chaelie2015]

Re

Essaye cette autre version :

*Merci de ton retour

@Phil69970

Re
le code il est entrain de faire le classement , moi je souhaite afficher que les lignes qui contient 1 et masquer les autres.
a+

 

[Phil69970]

Re

Désolé mais je comprends pas ce que tu veux

Le fichier du post # 2 fait ce que tu demandes mais cela ne te convient pas
Et le tri avec le fichier du post #4 et/ou post # 7 ne te vas pas non plus donc je comprends ce que tu veux faire

Montre moi quel résultat tu attends .....

@Phil69970

 

[chaelie2015]

Re

Désolé mais je comprends pas ce que tu veux

Le fichier du post # 2 fait ce que tu demandes mais cela ne te convient pas
Et le tri avec le fichier du post #4 et/ou post # 7 ne te vas pas non plus donc je comprends ce que tu veux faire

Montre moi quel résultat tu attends .....

@Phil69970

Re
je souhaite afficher les lignes :6 12 13 15 16 17 21 22 23 26 et 28
et les autres ligne qui contient 0 seront masqués.
a+

 

[Phil69970]

Re

Encore une autre version
Dans un 1er temps je tri sur les 1 puis je masque les 0

@Phil69970

 

[Phil69970]

Re

Ceci correspond à ta demande du post # 10

*Merci de ton retour

@Phil69970

 

[mapomme]

Bonsoir à tous,

Une autre interprétation ?

 

[job75]

Bonsoir chaelie2015, Phil69970, mapomme,

Sub Filtrer_les_1()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
If FilterMode Then ShowAllData 'si la feuille est filtrée
With Range("Q6", Range("Q" & Rows.Count).End(xlUp))
    .Replace 1, "#N/A", xlWhole
    .EntireRow.Hidden = True 'masque tout
    .SpecialCells(xlCellTypeConstants, 16).EntireRow.Hidden = False 'affiche
    .Replace "#N/A", 1
End With
End Sub

Sub RAZ()
Rows.Hidden = False 'affiche tout
End Sub

Bonne nuit.

 

[chaelie2015]

Bonjour Phil69970, mapomme,job
Merci pout les réponses , c'est parfait.
A+