XL 2010 masquer lignes

chti59xcel · 14 Mai 2023

Bonjour,

J'ai trouvé une macro sur votre site Internet qui m'intéresse, mais j'aurai besoin d'un coup de main pour la faire évoluer s'il vous plait.
La voici d'origine :
Sub hide()
Range("f5:f100").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next
End Sub

Serait t'il possible d'inclure aussi les cellules dont la somme est 0
Et d'ajouter la possibilité en cliquant sur le bouton macro de masquer, mais aussi de démasquer ?

D'avance, je vous remercie, bien cordialement, Chti589Xcel

Staple1600 · 14 Mai 2023

Bonjour le fil

Suggestion
Pourquoi ne pas simplement utiliser le filtre automatique ?
(avec également les affichages personnalisés)

Staple1600 · 14 Mai 2023

Re

Pour développer ma suggestion précédente
1) On applique le filtre manuellement
Puis on fait Affichage -> Personnalisé -> Ajouter
(ici je l'ai nommé: Masquer Vide & 0
2) On supprime le filtre et on ajoute un second affichage personnalisé
(que j'ai nommé : Afficher Tout

Ensuite on peut avec ces deux macros afficher ou masquer

Code:

Sub Masquer()
ActiveWorkbook.CustomViews("Masquer Vide & 0").Show
End Sub
Sub Afficher()
ActiveWorkbook.CustomViews("Afficher Tout").Show
End Sub

Pour poursuivre, on ajoute deux boutons auxquels on associera ces deux macros.

chti59xcel · 14 Mai 2023

Staple1600 à dit:
Re

Pour développer ma suggestion précédente
1) On applique le filtre manuellement
Puis on fait Affichage -> Personnalisé -> Ajouter
(ici je l'ai nommé: Masquer Vide & 0
2) On supprime le filtre et on ajoute un second affichage personnalisé
(que j'ai nommé : Afficher Tout

Ensuite on peut avec ces deux macros afficher ou masquer

Code:

Sub Masquer() ActiveWorkbook.CustomViews("Masquer Vide & 0").Show End Sub Sub Afficher() ActiveWorkbook.CustomViews("Afficher Tout").Show End Sub

Pour poursuivre, on ajoute deux boutons auxquels on associera ces deux macros.

Bonjour,

Je viens de tester, mais je n'ai pas réussi à faire fonctionner ma colonne.
L'idée, c'est de travailler cette possibilité sur la F
Cordialement

sylvanu · 14 Mai 2023

Bonjour Chti, Staple,
Essayez :

VB:

Sub hide()
    Application.ScreenUpdating = False
    For Each o In [F5:F100]
        If o.Value = "" Or o.Value = 0 Then o.EntireRow.Hidden = True
    Next
End Sub

chti59xcel · 14 Mai 2023

sylvanu à dit:
Bonjour Chti, Staple,
Essayez :

VB:

Sub hide() Application.ScreenUpdating = False For Each o In [F5:F100] If o.Value = "" Or o.Value = 0 Then o.EntireRow.Hidden = True Next End Sub

Ok, merci, oui ça fonctionne. Il me faudrait aussi la possibilité de réafficher mes chiffres toujours dans la même colonne. L'idée, c'est de me simplifier la lecture contenus dans ces cellules quand il y a des résultats.
Merci beaucoup, cordialement, Chti59Xcel

Staple1600 · 14 Mai 2023

Re, Bonjour @sylvanu

@chti59xcel

L'idée, c'est de travailler cette possibilité sur la F

C'est ce que j'ai fait lors de mon test

1) Je filtre avec les critéres suivants:
0 et vides décochés dans le filtre automatique
je créé alors manuellement un affichage personnalisé
2) j'efface le filtre
Puis je créé un second affichage personnalisé

Ensuite les deux macros précédemment proposées permettent de basculer d'un affichage à l'autre.

chti59xcel · 14 Mai 2023

Staple1600 à dit:
Re, Bonjour @sylvanu

@chti59xcel

C'est ce que j'ai fait lors de mon test Regarde la pièce jointe 1170194
1) Je filtre avec les critéres suivants:
0 et vides décochés dans le filtre automatique
je créé alors manuellement un affichage personnalisé
2) j'efface le filtre
Puis je créé un second affichage personnalisé

Ensuite les deux macros précédemment proposées permettent de basculer d'un affichage à l'autre.

Re bonjour,

Merci pour cet envoi, j'ai suivi la procédure, mais ça ne fonctionne pas.
Est-ce que le fait d'avoir des cellules vide entre plusieurs cellules avec des chiffres, ça peur jouer ?
Cordialement, Chti59Xcel

Staple1600 · 14 Mai 2023

Re

@chti59xcel
bah joins un fichier exemple (allégé et anonymisé) pour que je puisse tester ma méthode.

Je pourrais alors te dire si cela fonctionne ou pas.

sylvanu · 14 Mai 2023

Re

chti59xcel à dit:
Il me faudrait aussi la possibilité de réafficher mes chiffres toujours dans la même colonne

VB:

Sub AfficheAvec0()
    Application.ScreenUpdating = False
    For Each o In [F5:F100]
        If o.Value <> "" Then
            o.EntireRow.Hidden = False
        Else
            o.EntireRow.Hidden = True
        End If
    Next
End Sub

Comme ça vous avez deux solutions.

chti59xcel · 15 Mai 2023

sylvanu à dit:

Re

VB:

Sub AfficheAvec0()
    Application.ScreenUpdating = False
    For Each o In [F5:F100]
        If o.Value <> "" Then
            o.EntireRow.Hidden = False
        Else
            o.EntireRow.Hidden = True
        End If
    Next
End Sub

Comme ça vous avez deux solutions.

Bonjour,

Merci pour tous ces retours de macros et solutions.
Je vous joins un fichier comme demandé.
Ce que je recherche, c'est une possibilité avec un bouton macro de pouvoir masquer/démasquer les cellules de la colonne F qui sont vides ou don la somme est de zéro. Cela me permettra dans mon classeur original de pouvoir mieux visualiser mes lignes comptables remplies et le résultat.

D'avance, un grand merci, cordialement, Chti59Xcel

sylvanu · 15 Mai 2023

Bonjour,
Pourquoi ne pas avoir simplement appliquer ce que nos solutions préconisaient ?
"Just for the fun", en PJ une solution basée sur une macro Worksheet_SelectionChange.
Il suffit de cliquer sur la cellule A1 pour masquer ou démasquer les lignes.
NB: je ne comprends pas votre plage F5:F100 puisque dans votre fichier il semblerait que ce soit F2:F111;
Donc je l'ai rendu dynamique pour faire plus simple.

chti59xcel · 15 Mai 2023

sylvanu à dit:
Bonjour,
Pourquoi ne pas avoir simplement appliquer ce que nos solutions préconisaient ?
"Just for the fun", en PJ une solution basée sur une macro Worksheet_SelectionChange.
Il suffit de cliquer sur la cellule A1 pour masquer ou démasquer les lignes.
NB: je ne comprends pas votre plage F5:F100 puisque dans votre fichier il semblerait que ce soit F2:F111;
Donc je l'ai rendu dynamique pour faire plus simple.

Bonjour, merci pour ce retour de macro.
Ce n'est pas toujours simple de bien exprimer son besoin, désolé.
Si je maitrisai un peu le langage vba, ça serait plus facile, c'est sûr.
Je viens de tester la macro dans mon classeur original, ça fonctionne impeccable, un grand merci.
bien cordialement, Chti59Xcel

Staple1600 · 16 Mai 2023

Bonjour le fil

@chti59xcel
Juste pour indiquer que ma proposition fonctionne bien sur ton fichier exemple
(juste avec le filtre automatique et les affichages personnalisés)

chti59xcel · 17 Mai 2023

Staple1600 à dit:
Bonjour le fil

@chti59xcel
Juste pour indiquer que ma proposition fonctionne bien sur ton fichier exemple
(juste avec le filtre automatique et les affichages personnalisés)
Regarde la pièce jointe 1170355

Bonjour, merci pour ton retour.
Effectivement, c'est moi qui n'est pas réussi la procédure.
Il faut que je réessaye et que je trouve afin de pouvoir réutiliser cette possibilité et surtout apprendre une nouvelle fonctionnalité que je ne connaissais pas.
Bien cordialement, Chti59Xcel

XL 2010 masquer lignes

chti59xcel

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

chti59xcel

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

chti59xcel

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

chti59xcel

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

chti59xcel

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

chti59xcel

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

chti59xcel

XLDnaute Nouveau

Discussions similaires