Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres (RESOLU)Afficher les lignes qui contient 1

chaelie2015

XLDnaute Accro
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+
 

Pièces jointes

  • Charlie Afficher les lignes contient 1.xlsx
    14 KB · Affichages: 7
Solution
Bonsoir chaelie2015, Phil69970, mapomme,
VB: 
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.
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro
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+
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir chaelie2015, Phil69970, mapomme,
VB: 
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.
 

Pièces jointes

  • Charlie Afficher les lignes contient 1(1).xlsm
    20.5 KB · Affichages: 3
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

B
  • Question
XL 2013 filtrer ligne à l'ouverture du fichier
Réponses
10
Affichages
354
bruno972
B
  • Question
Microsoft 365 Compter nombre de lignes utilisées
2
Réponses
22
Affichages
862
edgy63
N
  • Question
Microsoft 365 Affichage information de plusieurs cellules à partir d'une seule
Réponses
8
Affichages
141
narkoleptik
N
  • Résolu(e)
XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom
Réponses
10
Affichages
452
chaelie2015
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
324
Webperegrino
W
C
  • Résolu(e)
Power Query POWER QUERY Supprimer des lignes suivant critères
Réponses
3
Affichages
296
alexga78
A
  • Question
XL 2019 Listebox formulaire word
Réponses
4
Affichages
437
dindin
B
  • Question
XL 2016 Validation des données en gardant les liens hypertextes
Réponses
8
Affichages
395
Ben92290
B
G
  • Question
XL 2019 Transformer des lignes en colonnes mais conserver la colonne 1 en colonne
Réponses
2
Affichages
263
gafp
G
A
  • Résolu(e)
Microsoft 365 Correction d'un code vba
2
Réponses
22
Affichages
1 K
AD95
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…